《带解释的vba语句》由会员分享，可在线阅读，更多相关《带解释的vba语句（8页珍藏版）》请在金锄头文库上搜索。
1、带解释的带解释的 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 取消自
2、动换行If Len(Target) 5 Then 如果当前单元格中的字符数超过 5 个,执行下一行Target.WrapText = True 自动换行End IfA1:B10.SpecialCells(xlCellTypeBlanks).Rows.Hidden = True 有空格即隐藏行A2.parent.name 返回活动单元格的工作表名A2.parent.parent.name 返回活动单元格的工作簿名如下代码可使工作簿打开后 30 秒(或闲置 30 秒)内不输入、不重新选择等,自动关闭工作簿Private Sub Workbook_Open() 工作簿打开事件tt 工作簿打开时启动
3、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 定
4、义 myNow 为日期型;定义 BL 为长整型 myNow = Now 把当前的时间赋给变量 myNowDo 开始循环语句 DoBL = Second(Now) - Second(myNow) 循环中不断检查变量 BL 的值If BL = 30 Then GoTo Cl 当 BL=30 即跳转到 CLDoEvents 转让控制权,以便 sheets 可继续操作Loop Until BL 30 当 BL30 即跳出循环Exit SubCl:Application.EnableEvents = False 避免引起其他事件 ActiveWorkbook.Close True 关闭活动工作簿并保存A
5、pplication.EnableEvents = True 可触发其他事件End Subrange(“e4“).addcomment.Text “代头“ 来一个函数的Private Sub Worksheet_SelectionChange(ByVal Target As Range)右边单元格反向显示活动单元格文本If ActiveCell.Column 100“, Operator:=xlAnd, _Criteria2:=“200“Windows(Mybo).Worksheets(She).Range(“A1:K5000“).Copy _Destination:=Windows(mybook).Worksheets(“acfmis“).Range(“A1“)
