带解释的VBA语句.doc

带解释的 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 IfA1:B10.SpecialCells(xlCellTypeBlanks).Rows.Hidden = True 有空格即隐藏行A2. 返回活动单元格的工作表名A2. 返回活动单元格的工作簿名如下代码可使工作簿打开后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 SubSub 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 SubCl: Application.EnableEvents = False 避免引起其他事件 ActiveWorkbook.Close True 关闭活动工作簿并保存 Application.EnableEvents = True 可触发其他事件End Subrange(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 SubDo循环语句的几种形式:1. Do While i1 条件为True时执行. . 要执行的语句Loop2.Do Until i1 条件为False时执行. . 要执行的语句Loop3.Do . . 要执行的语句Loop While i1 条件为True时执行4.Do . . 要执行的语句Loop Until i1 条件为False时执行5.While.Wend 语句While i1 条件为True时执行. . 要执行的语句Wend勾选VBA项目的信任Application.SendKeys %(tmstv)ENTER 在 Excel 窗口操作Application.SendKeys %(qtmstv)ENTER 在 VBE 窗口操作Application.CommandBars(命令按钮名称).Position = msoBarFloating 使命令按钮悬浮在表格中 Application.CommandBars(命令按钮名称).Position = msoBarTop 使命令按钮排列在工具栏中ActiveStect Password:=wshzw 为工作表保护加口令ActiveSheet.Unprotect Password:=wshzw 解除工作表保护Activesheet.ProtectContents 判断工作表是否处于保护状态工作表的复制与命名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 SubApplication.EnableEvents = False .Application.EnableEvents = True 抑制事件连锁执行Application.EnableEvents = FalseActiveWorkbook.Save 抑制BeforeSave事件的发生Application.EnableEvents = True 抑制指定事件Application.DisplayAlerts=False 屏蔽确认提示 Application.ScreenUpdating = False .Application.ScreenUpdating = true 冻结屏幕以加快程序运行ActiveCell.CurrentRegion.Select 选择与活动单元格相连的区域range(a2:a20).NumberFormatLocal = 00-00 区域的格式化ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row 已用区域的最末行ActiveSheet.Copy Before:=Sheets(1) 复制活动工作表到第一张工作表之前range(a2:a20).FormulaHidden = True 工作表处于保护状态时隐藏部分单元格公式FileDateTime(E:My Documents33.xls)或FileDateTime(thisworkbook.FullName) 文件被创建或最后修改后的日期和时间FileLen(thisworkbook.FullName) / 1024或FileLen(E:My Documentstemp33.xls) / 1024 文件的长度(大小),单位是 KBApplication.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 最大化窗口Sub 删除工作表() Application.DisplayAlerts = False Sheet1.Delete Application.DisplayAlerts = TrueEnd Sub有删除就有添加Sub 添加工作表() For i = 1 To 5 Worksheets.Add.Name = i NextEnd SubA1: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 SubActiveWorkbook.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 返回当前工作薄的路径dim mm(2,10)Range(a1:b10)=mm 可以将二维数组赋值给RangeApplication.Dialogs(XLdialogsaveas).show 显示保存对话框SIZE=1Sub x() Dim myRange As String myRange = ActiveSheet.UsedRange.Address 去除活动工作表无数据的行列End Sub这相当于把新的已使用区域赋值给变量，效果等同于手工删除