常用VBA语句.doc

文档介绍：对于VBA的初学者来说,很想了解一些VBA短句的含义。
1、[A65536].End(xlUp).Row                            'A列末行向上第一个有值的行数
2、[A1].End(xlDown).Row                               'A列首行向下第一个有值之行数
3、[IV1].End(xlToLeft).Column                        '第一行末列向左第一列有数值之列数。
4、[A1].End(xlToRight).Column                       '第一行首列向右有连续值的末列之列数
5、mandBars("Standard").Controls(2).BeginGroup=True '在常用工具栏的第二个按钮前插入分隔符
6、 = False             '取消自动换行
    If Len(Target) > 5 Then           '如果当前单元格中的字符数超过5个,执行下一行
         = True        '自动换行
    End If
7、[A1:B10].SpecialCells(xlCellTypeBlanks). = True      '有空格即隐藏行
8、[A2].                                                '返回活动单元格的工作表名
9、[A2].                                         '返回活动单元格的工作簿名
10、Private Sub Workbook_Open()               '工作簿打开事件
        tt                '工作簿打开时启动 tt 过程。另注:tt模块或过程须已编写存在
    End Sub
11、Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)  '工作表变化事件
             tt           '工作表中任一单元格有变化时启动 tt 过程。
     End Sub
12、Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) '工作表选            择变化事件
              tt                                                  '工作表中单元格的选择有变化时启动 tt 过程
     End Sub
13、Sub 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                          '当BL>30即跳出循环
     Exit Sub
Cl:
   = False            '避免引起其他事件
   True                   '关闭活动工作簿并保存
   = True             '可触发其他事件