引用文件路径.DOC

，常用的、带解释的 VBA 短句 by:yuhongpu /dispbbs.asp?boardID=2ID=169024page=1px=0 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 Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 工作表变化事件 tt 工作表中任一单元格有变化时启动 tt 过程 End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 工作表选择变化事件 tt 工作表中单元格的选择有变化时启动 tt 过程 End Sub 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 当BL30即跳出循环 Exit Sub Cl: Application.EnableEvents = False 避免引起其他事件 ActiveWorkbook.Close True 关闭活动工作簿并保存 Application.EnableEvents = True 可触发其他事件