带解释的 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].parent.name '返回活动单元格的工作表名 [A2].parent.parent.name '返回活动单元格的工作簿名 如下代码可使工作簿打开后 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 '当 BL>30 即跳出循环 Exit Sub Cl: Application.EnableEvents = False '避免引起其他事件 ActiveWorkbook.Close True '关闭活动工作簿并保存 Application.EnableEvents = True '可触发其他事件 End Sub range("e4").addcomment.Text "代头" & Chr(10) & "内容……" '添加批注 range("e4").Comment.Visible = True '显示批注 把工作簿中所有工作表的指定列调整为最...
