《(代码)常用的VBA短句(带注释)》由会员分享,可在线阅读,更多相关《(代码)常用的VBA短句(带注释)(11页珍藏版)》请在金锄头文库上搜索。
1、.常用的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 如果
2、当前单元格中的字符数超过5个,执行下一行 Target.WrapText = True 自动换行 End IfA1: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.Comm
3、andBars(命令按钮名称).Position = msoBarFloating 使命令按钮悬浮在表格中Application.CommandBars(命令按钮名称).Position = msoBarTop 使命令按钮排列在工具栏中ActiveSheet.Protect Password:=wshzw 为工作表保护加口令ActiveSheet.Unprotect Password:=wshzw 解除工作表保护ActiveSheet.ProtectContents 判断工作表是否处于保护状态Application.DisplayAlerts = False 屏蔽确认提示ActiveCell.
4、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 不询问是否更新,并自动更新Act
5、iveSheet.Hyperlinks.Delete 删除活动工作表超ActiveWorkbook.SaveLinkValues = False 不保存活动工作簿的外部值ActiveSheet.PageSetup.CenterFooter = Range(k2).Value 打印时设置自定义页脚ActiveSheet.PageSetup.Orientation = xlLandscape 设置为横向打印ActiveSheet.PageSetup.Orientation = xlPortrait 设置为纵向打印Application.WindowState = xlMinimized 最小化窗口
6、Application.WindowState = xlNormal 最大化窗口ActiveWorkbook.FullName 当前窗口文件名与路径Application.AltStartupPath = E:MyMyStart 替补启动目录路径Application.AutoRecover.Path 返回/设置Excel存储自动恢复临时文件的完整路径Application.DefaultFilePath 选项常规中的默认工作目录Application.Evaluate (=INFO(directory) 默认工作目录Application.LibraryPath 返回库文件夹的路径Appli
7、cation.NetworkTemplatesPath 返回保存模板的网络路径Application.Path 返回应用程序完整路径Application.RecentFiles.Item(1).Path 返回最近使用的某个文件路径,Item(1)=第一个文件Application.StartupPath Excel启动文件夹的路径Application.TemplatesPath 返回模板所存储的本地路径Application.UserLibraryPath 返回用户计算机上 COM 加载宏的安装路径Debug.Print Application.PathSeparator 路径分隔符 Cu
8、rDir 默认工作目录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 显示自动筛选后的行数Workboo
9、ks.Close 关闭所有工作簿Application.Quit 关闭所有工作簿Application.ScreenUpdating = False .Application.ScreenUpdating = True 冻结屏幕以加快程序运行Application.EnableEvents = False .Application.EnableEvents = True 抑制事件连锁执行Application.EnableEvents = FalseActiveWorkbook.Save 抑制BeforeSave事件的发生Application.EnableEvents = True 抑制指定
10、事件FileDateTime (E:My Documents33.xls)或FileDateTime (ThisWorkbook.FullName) 文件被创建或最后修改后的日期和时间FileLen (ThisWorkbook.FullName) / 1024或FileLen (E:My Documentstemp33.xls) / 1024 文件的长度(大小),单位是 KBDim mm(2, 10)Range(a1:b10) = mm 可以将二维数组赋值给RangeApplication.Dialogs(xlDialogSaveAs).Show 显示保存对话框T = Application.
11、GetOpenFilename(Text Files (*.dat), *.dat) 选择文件打开路径如下代码可使工作簿打开后30秒(或闲置30秒)不输入、不重新选择等,自动关闭工作簿Private Sub Workbook_Open() 工作簿打开事件 tt 工作簿打开时启动 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 SubSu