经典Excel VBA代码

《经典Excel VBA代码》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、经典ExcelVBA代码1VBA基础在大家的关注声中即将告一段落了，有许多经典的VBA操作我们只是作了简要的介绍，想要熟练地使用VBA还需要大家慢慢地去消化和吸收，然后在实践中总结和提高。最后我们收集了常见的VBA代码以飨广大的读者，希望对大家有所启示。Application（Excel程序）篇Application.EnableEvents=True/False’启用/禁用所有事件Application.DisplayAlerts=True/False’显示/关闭警告框提示框Application.ScreenUpdat

2、ing=True/False’显示/关闭屏幕刷新Application.StatusBar="软件报专用"’在地址栏中显示文本，标题栏用Caption属性Application.Cursor=xlIBeam‘设置光标形状为Ⅰ字形，xlWait为沙漏(等待)形，xlNormal为正常Application.WindowState=xlMinimized‘窗口最小化，xlMaximized最大化，xlNormal为正常Application.ActivateMicrosoftAppxlMicrosoftWord’开启Word应

3、用程序Application.TemplatesPath‘获取工作簿模板的位置Application.CalculateFull’重新计算所有打开的工作簿中的数据Application.RecentFiles.Maximum=2’将最近使用的文档列表数设为2Application.RecentFiles(3).Open’打开最近打开的文档中的第3个文档Application.AutoCorrect.AddReplacement"sweek","软件报"’自动将输入的"sweek"更正为"软件报"Application.Di

4、alogs(xlDialogPrint).Show‘显示打印文档的对话框Application.OnTimeNow+TimeValue("00:00:45"),"process"’45分钟后执行指定过程Application.OnTimeTimeValue("14:00:00"),"process"’下午2点执行指定过程Application.OnTimeEarliestTime:=TimeValue("14:00:00"),_Procedure:="process",Schedule:=False’取消指定时间的过程的执

5、行工作簿/工作表篇ActiveWorkbook.Sheets.Count’获取活动工作薄中工作表数ActiveWorkbook.LinkSources(xlExcelLinks)(1)‘返回当前工作簿中的第一条链接ThisWorkbook.Worksheets(“sheet2”).Visible=xlSheetHidden‘隐藏工作表，与在Excel菜单中执行“格式—工作表—隐藏”操作一样ThisWorkbook.Worksheets(“sheet2”).Visible=xlSheetVeryHidden‘隐藏工作表，不能

6、通过在Excel菜单中执行“格式—工作表—取消隐藏”来重新显示工作表ThisWorkbook.Worksheets(“sheet2”).Visible=xlSheetVisible‘显示被隐藏的工作表ThisWorkbook.Sheets(1).ProtectContents‘检查工作表是否受到保护ActiveSheet.Columns("B").CutActiveSheet.Columns("F").Insert‘以上两句将B列数据移至F列，原C列后的数据左移ActiveSheet.Range(“A:A”).Entire

7、Column.AutoFit‘自动调整当前工作表A列的列宽ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlTextValues)‘选中当前工作表中常量和文本单元格ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlErrors+xlTextValues)‘选中当前工作表中常量和文本及错误值单元格9ActiveSheet.UsedRange.Rows.Count‘当前工作表中已使用的行数ThisWorkbook.W

8、orksheets.AddThisWorkbook.Worksheets(3),,2‘在第3张工作表之前添加2个新的工作表ActiveSheet.MoveAfter:=ActiveWorkbook._Sheets(ActiveWorkbook.Sheets.Count)’将当前工作表移至工作表的最后Wo