带解析的VBA语句.docVIP

带解释的 VBA 短句 [VBA起步]常用的、带解释的 VBA 短句[A65536].End(xlUp).Row??????????????????????????? A列末行向上第一个有值的行数[A1].End(xlDown).Row?????????????????????????????? A列首行向下第一个有值之行数[IV1].End(xlToLeft).Column??????????????????????? 第一行末列向左第一列有数值之列数。[A1].End(xlToRight).Column?????????????????????? 第一行首列向右有连续值的末列之列数Application.CommandBars(Standard).Controls(2).BeginGroup=True 在常用工具栏的第二个按钮前插入分隔符Cells.WrapText = False???????????? 取消自动换行??? If Len(Target) 5 Then?????????? 如果当前单元格中的字符数超过5个,执行下一行??????? Target.WrapText = True??????? 自动换行??? End If [A1:B10].SpecialCells(xlCellTypeBlanks).Rows.Hidden = True????? 有空格即隐藏行[A2].??????????????????????????????????????????????? 返回活动单元格的工作表名[A2].???????????????????????????????????????? 返回活动单元格的工作簿名如下代码可使工作簿打开后30秒(或闲置30秒)内不输入、不重新选择等,自动关闭工作簿Private Sub Workbook_Open()?????????????? 工作簿打开事件?? tt???????????????????????????????????? 工作簿打开时启动 tt 过程End SubPrivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)? 工作表变化事件?? tt??????????????????????????????????????????????????????????????? 工作表中任一单元格有变化时启动 tt 过程End SubPrivate Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 工作表选择变化事件?? tt??????????????????????????????????????????????????????????? 工作表中单元格的选择有变化时启动 tt 过程End SubSub tt()?????????????????????????????????????? tt 过程?? Dim myNow As Date, BL As Integer??????????? 定义myNow为日期型;定义BL为长整型 ?? myNow = Now???????????????????????????????? 把当前的时间赋给变量myNow?? Do????????????????????????????????????????? 开始循环语句Do????? BL = Second(Now) - Second(myNow)???????? 循环中不断检查变量BL的值????? If BL = 30 Then GoTo Cl????????????????? 当BL=30即跳转到CL????? DoEvents???????????????????????????????? 转让控制权,以便sheets可继续操作?? Loop Until BL 30????????????????????????? 当BL30即跳出循环?? Exit SubCl:?? Application.EnableEvents = False??????????? 避免引起其他事件 ?? ActiveWorkbook.Close True?????????????????? 关闭活动工作簿并保存?? Application.EnableEvents = True???????????? 可触发其他事件End Subrange(e4).addcomment.Text 代头 Chr(10) 内容……????????