带解释vba语句

《带解释vba语句》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、带解释的VBA短句[VBA起步]常用的、带解释的VBA短句[A65536].End(xlUp).Row                           'A列末行向上第一个有值的行数[A1].End(xlDown).Row                              'A列首行向下第一个有值之行数[IV1].End(xlToLeft).Column                       '第一行末列向左第一列有数值之列数。[A1].End(xlToRight).Column      

2、                '第一行首列向右有连续值的末列之列数Application.CommandBars("Standard").Controls(2).BeginGroup=True'在常用工具栏的第二个按钮前插入分隔符Cells.WrapText=False            '取消自动换行   IfLen(Target)>5Then          '如果当前单元格中的字符数超过5个,执行下一行       Target.WrapText=True       '自动换行   EndIf

3、[A1:B10].SpecialCells(xlCellTypeBlanks).Rows.Hidden=True     '有空格即隐藏行[A2].parent.name                                               '返回活动单元格的工作表名[A2].parent.parent.name                                        '返回活动单元格的工作簿名如下代码可使工作簿打开后30秒(或闲置30秒)内不输入、不重新选择等,自

4、动关闭工作簿PrivateSubWorkbook_Open()              '工作簿打开事件  tt                                    '工作簿打开时启动tt过程EndSubPrivateSubWorkbook_SheetChange(ByValShAsObject,ByValTargetAsRange) '工作表变化事件  tt                                                               '工作

5、表中任一单元格有变化时启动tt过程EndSubPrivateSubWorkbook_SheetSelectionChange(ByValShAsObject,ByValTargetAsRange)'工作表选择变化事件  tt                                                           '工作表中单元格的选择有变化时启动tt过程EndSubSubtt()                                      'tt过程  DimmyNo

6、wAsDate,BLAsInteger           '定义myNow为日期型;定义BL为长整型  myNow=Now                                '把当前的时间赋给变量myNow  Do                                         '开始循环语句Do     BL=Second(Now)-Second(myNow)        '循环中不断检查变量BL的值     IfBL=30ThenGoToCl                

7、 '当BL=30即跳转到CL     DoEvents                                '转让控制权,以便sheets可继续操作  LoopUntilBL>30                         '当BL>30即跳出循环  ExitSubCl:  Application.EnableEvents=False           '避免引起其他事件  ActiveWorkbook.CloseTrue                  '关闭活动工作簿并保存  Appl

8、ication.EnableEvents=True            '可触发其他事件EndSubrange("e4").addcomment.Text"代头"&Chr(10)&"内容……"        '添加批注range("e4").Comment.Visible=True                    '显示批注把工作簿中所有工作表的指定列调整为最佳列宽：Sub调整列宽()  D