常用的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 返回活动单元格的工作簿名勾选VBA 项目的信任 Application.SendKeys%(tmstv)ENTER 在 Excel 窗口操作Application.SendKeys%(qtmstv)ENTER 在 VBE 窗口操作Application.CommandBars(命令按钮名称).Position=msoBarFloating 使命令按钮 悬浮在表格中Application.CommandBars(命令按钮名称).Position=msoBarTop 使命令按钮 排列在工具栏中ActiveSheet.Protect Password:=wshzw 为工作表保护加口令ActiveSheet.Unprotect Password:=wshzw 解除工作表保护ActiveSheet.ProtectContents 判断工作表是否处于保护状态Application.DisplayAlerts=False 屏蔽确认提示ActiveCell.CurrentRegion.Select 选择与活动单元格相连的区域Range(a2:a20).NumberFormatLocal=00-00 区域的格式化ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row 已用区域的最末行ActiveSheet.Copy Before:=Sheets(1)复制活动工作表到第一张工作表之前Range(a2:a20).FormulaHidden=True 工作表处于保护状态时隐藏部分单元格公式Application.AskToUpdateLinks=False 不询问是否更新链接,并自动更新链接ActiveSheet.Hyperlinks.Delete 删除活动工作表超链接ActiveWorkbook.SaveLinkValues=False 不保存活动工作簿的外部链接值ActiveSheet.PageSetup.CenterFooter=Range(k2).Value 打印时设置自定义页脚ActiveSheet.PageSetup.Orientation=xlLandscape 设置为横向打印ActiveSheet.PageSetup.Orientation=xlPortrait 设置为纵向打印Application.WindowState=xlMinimized 最小化窗口Application.WindowState=xlNormal 最大化窗口ActiveWorkbook.FullName 当前窗口文件名与路径Application.AltStartupPath=E:MyMyStart 替补启动目录路径Application.AutoRecover.Path 返回/设置 Excel 存储 自动恢复 临时文件的完整路径Application.DefaultFilePath 选项 常规中的默认工作目录Application.Evaluate(=INFO(directory)默认工作目录Application.LibraryPath 返回库文件夹的路径Application.NetworkTemplatesPath 返回保存模板的网络路径Application.Path 返回应用程序完整路径Application.RecentFiles.Item(1).Path 返回最近使用的某个文件路径,Item(1)=第一个文件Application.StartupPath Excel 启动文件夹的路径Application.TemplatesPath 返回模板所存储的本地路径Application.UserLibraryPath 返回用户计算机上COM 加载宏的安装路径Debug.Print Application.PathSeparator 路径分隔符 CurDir 默认工作目录Excel.Parent.DefaultFilePath 默认工作目录ThisWorkbook.Path 返回当前工作薄的路径ActiveCell.Offset(,-1).Name=hzw 定义名称ActiveCell.Precedents.Address 被当前单元格所引用的区域地址ActiveCell.Resize(0,2).Select 选定当前单元格并向右延伸二格ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count-1 显示自动筛选后的行数Workbooks.Close 关闭所有工作簿Application.Quit 关闭所有工作簿Application.ScreenUpdating=False .Application.ScreenUpdating=True 冻结屏幕以加快程序运行Application.EnableEvents=False .Application.EnableEvents=True 抑制事件连锁执行Application.EnableEvents=False ActiveWorkbook.Save 抑制 BeforeSave 事件的发生Application.EnableEvents=True 抑制指定事件FileDateTime(E:My Documents33.xls)或FileDateTime(ThisWorkbook.FullName)文件被创建或最后修改后的日期和时间FileLen(ThisWorkbook.FullName)/1024 或FileLen(E:My Documentstemp33.xls)/1024 文件的长度(大小),单位是KB Dim mm(2,10)Range(a1:b10)=mm 可以将二维数组赋值给Range Application.Dialogs(xlDialogSaveAs).Show 显示保存对话框T=Application.GetOpenFilename(Text Files(*.dat),*.dat)选择文件打开路径如下代码可使工作簿打开后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 可触发其他事件End Sub Range(e4).AddComment.Text 代头&Chr(10)&内容,添加批注Range(e4).Comment.Visible=True 显示批注把工作簿中所有工作表的指定列调整为最佳列宽:Sub 调整列宽()Dim i%For i=1 To Sheets.Count 遍历工作簿中所有的工作表Sheets(i).Columns(A:K).AutoFit 把每个工作表的A:K 列调整为最佳列宽Next i End Sub Do 循环语句的几种形式:1.Do While i 1 条件为 True 时执行.要执行的语句Loop 2.Do Until i 1 条件为 False时执行.要执行的语句Loop 3.Do.要执行的语句Loop While i 1 条件为 True 时执行4.Do.要执行的语句Loop Until i 1 条件为 False 时执行5.While.Wend 语句While i 1 条件为 True 时执行.要执行的语句Wend 工作表的复制与命名Sub wshzw()Dim i As Integer For i=1 To 5 Sheets(Sheet1).Copy After:=Sheets(1)Before/After 复制新表在Sheets(Sheet1)前/后ActiveSheet.Name=i&月 为复制的新表命名Next i Sheets(Sheet1).Name=总表 为 Sheets(Sheet1)改名End Sub Sub 删除工作表()Application.DisplayAlerts=False Sheet1.Delete Application.DisplayAlerts=True End Sub Sub 添加工作表()For i=1 To 5 Worksheets.Add.Name=i Next End Sub A1:A20.AdvancedFilter xlFilterCopy,B1,Unique:=True 可去掉重复数据A2:C32.Replace What:=F,Replacement:=G 指定范围内的查找与替换ActiveSheet.AutoFilterMode=False 取消自动筛选执行以下语句可有效缩小工作簿的大小，执行前请先看清每条语句的作用:ActiveSheet.UsedRange.ClearComments 清除活动工作表已使用范围所有批注ActiveSheet.UsedRange.ClearFormats 清除活动工作表已使用范围所有格式ActiveSheet.UsedRange.Validation.Delete 取消活动工作表已使用范围的数据有效性ActiveSheet.Hyperlinks.Delete 删除活动工作表超链接ActiveSheet.DrawingObjects.Delete 删除活动工作表已使用范围的所有对象ActiveSheet.UsedRange=ActiveSheet.UsedRange.Value 取消活动工作表已使用范围的公式并保留值还有:Sub x()Dim myRange As String myRange=ActiveSheet.UsedRange.Address 去除活动工作表无数据的行列End Sub 这相当于把新的已使用区域赋值给变量，效果等同于手工删除多余的列或行后立即保存;来一个函数的Private Sub Worksheet_SelectionChange(ByVal Target As Range)右边单元格反向显示活动单元格文本If ActiveCell.Column=2 Then 第二行以下的区域On Error Resume Next ChangColor_With1.FormatConditions.Delete Target.EntireRow.Name=ChangColor_With1 With ChangColor_With1.FormatConditions.Delete.Add xlExpression,TRUE.Item(1).Interior.ColorIndex=5.Item(1).Font.ColorIndex=2 End With End If End Sub 8.使窗体在启动的时候自动最大化Private Sub UserForm_Initialize()Application.WindowState=xlMaximized With Application Me.Top=.Top Me.Left=.Left Me.Height=.Height Me.Width=.Width End With End Sub 9.不保存工作簿退出EXCEL Application.DisplayAlerts=False Application.Quit 10.使窗体的关闭按纽不好用Private Sub UserForm_QueryClose(Cancel As Integer,CloseMode As Integer)If CloseMode=vbformcontrdmenu Then MsgBox 请用关闭按钮关闭窗口!,64,提示 Cancel=True End If End Sub 11.使窗体在3 秒后自动关闭Private Sub UserForm_Activate()Application.Wait Now+TimeValue(00:00:03)UserForm1.Hide End Sub 12.启动窗体的时候自动使Label1 显示 Sheet1工作表 3 列,8 行的内容Private Sub UserForm_Activate()Label1.Caption=Sheets(sheet1).Cells(3,8)End Sub 13.让按纽 CommandButton1 在窗体上以不可用状态显示CommandButton1.Enabled=False 14.让按纽 Commandbutton1 在窗体上以隐藏方式存在CommandButton10.Visible=False 15.点击 Commandbutton1 按纽进入”工资”工作表Sheets(工资).Select 16.在 Textbox1 中输入数据,窗体可显示出”工资”工作表中与输入内容关联的项Private Sub TextBox1_Change()For X=1 To Application.CountA(Sheets(工资).Range(a:a)If Sheets(工资).Cells(X,1)=TextBox1.Text Then在工资表第一列查找与Textbox1 输入相符的项Label2.Caption=Sheets(工资).Cells(X,2)在 Label2 中显示 Textbox1 数据所在的第二列的数据Label7.Caption=Sheets(工资).Cells(X,3)在 Label2 中显示 Textbox1 数据所在的第三列的数据End If Next End Sub 17.使 EXCEL 启动的时候自动最小化/最大化Private Sub Workbook_Open()Application.WindowState=xlMinimized 最小化Application.WindowState=xlMaximized 最大化End Sub 18.在 Label25 以数字的形式显示TextBox12 Label14 的结果Label25.Caption=Val(TextBox12.Text)*Val(Label14.Caption)19.单选按纽名与Sheet6 工作表名相同OptionButton6.Caption=Sheet6.Name 20.”登陆”窗体的显示,隐藏登陆.Show 显示登陆.Hide 隐藏21.使窗体的标题栏不显示(1)插入类模块”CFormChanger”代码如下:Private Declare Function FindWindow Lib user32 Alias FindWindowA(ByVal lpClassName As String,ByVal lpWindowName As String)As Long Private Declare Function GetWindowLong Lib user32 Alias GetWindowLongA(ByVal hWnd As Long,ByVal nIndex As Long)As Long Private Declare Function SetWindowLong Lib user32 Alias SetWindowLongA(ByVal hWnd As Long,ByVal nIndex As Long,ByVal dwNewLong As Long)As Long Private Declare Function DrawMenuBar Lib user32(ByVal hWnd As Long)As Long Private Const GWL_STYLE As Long=(-16)Private Const WS_CAPTION As Long=&HC00000 Dim hWndForm As Long.Public Property Set Form(oForm As Object)29 If Val(Application.Version)=2 Then 第二行以下的所有列On Error Resume Next ChangColor_With2.FormatConditions.Delete ChangColor_With3.FormatConditions.Delete Target.EntireRow.Name=ChangColor_With2 Target.EntireColumn.Name=ChangColor_With3 With ChangColor_With2.FormatConditions.Delete.Add xlExpression,TRUE.Item(1).Interior.ColorIndex=5 End With With ChangColor_With3.FormatConditions.Delete.Add xlExpression,TRUE.Item(1).Interior.ColorIndex=5 End With End If End Sub 23.显示动态时间（1）插入窗体Userform1 及 Label1 并在窗体声明中插入Option Explicit Public nextRun As Date（2）在窗体Activate 事件中插入Showtime（3）在窗体QueryClose 事件中插入Application.OnTime nextRun,showtime,schedule:=False（4）插入模块Module1 并输入Option Explicit Sub showtime()UserForm1.Label1=Now UserForm1.Repaint DoEvents UserForm1.nextRun=Now+1/86400 Application.OnTime UserForm1.nextRun,showtime End Sub 24.加载 Combobox1 选项ComboBox1.AddItem 收入型 ComboBox1.Additem“支出型”25.使 Textbox1 自动程输入状态显示(有光标闪动)TextBox1.SetFocus 26.打开 C 盘目录Shell explorer.exe C:,1 。