亿万文档 免费下载
经典Excel VBA代码
经典Excel VBA代码1
VBA基础在大家的关注声中即将告一段落了,有许多经典的VBA操作我们只是作了简要的介绍,想要熟练地使用VBA还需要大家慢慢地去消化和吸收,然后在实践中总结和提高。最后我们收集了常见的VBA代码以飨广大的读者,希望对大家有所启示。
Application(Excel程序)篇
Application.EnableEvents= True/ False ’启用/禁用所有事件
Application.DisplayAlerts=True/False ’显示/关闭警告框提示框
Application.ScreenUpdating= True/False ’显示/关闭屏幕刷新
Application.StatusBar = "软件报专用" ’在地址栏中显示文本,标题栏用Caption属性
Application.Cursor = xlIBeam ‘设置光标形状为Ⅰ字形,xlWait为沙漏(等待)形,xlNormal为正常 Application.WindowState = xlMinimized ‘窗口最小化,xlMaximized最大化,xlNormal为正常 Application.ActivateMicrosoftApp xlMicrosoftWord ’开启Word应用程序
Application.TemplatesPath ‘获取工作簿模板的位置
Application.CalculateFull ’重新计算所有打开的工作簿中的数据
Application.RecentFiles.Maximum = 2 ’将最近使用的文档列表数设为2
Application.RecentFiles(3).Open ’打开最近打开的文档中的第3个文档
Application.AutoCorrect.AddReplacement "sweek", "软件报" ’自动将输入的"sweek"更正为"软件报"
Application.Dialogs(xlDialogPrint).Show ‘显示打印文档的对话框
Application.OnTime Now + TimeValue("00:00:45"), "process" ’45分钟后执行指定过程
Application.OnTime TimeValue("14:00:00"), " process " ’下午2点执行指定过程
Application.OnTime EarliestTime:=TimeValue("14:00:00"), _
Procedure:="process", Schedule:=False ’取消指定时间的过程的执行
工作簿/工作表篇
ActiveWorkbook.Sheets.Count ’获取活动工作薄中工作表数
ActiveWorkbook.LinkSources(xlExcelLinks)(1) ‘返回当前工作簿中的第一条链接
ThisWorkbook.Worksheets(“sheet2”).Visible=xlSheetHidden ‘隐藏工作表,与在Excel菜单中执行“格式—工作表—隐藏”操作一样
ThisWorkbook.Worksheets(“sheet2”).Visible=xlSheetVeryHidden ‘隐藏工作表,不能通过在Excel菜单中执行“格式—工作表—取消隐藏”来重新显示工作表
ThisWorkbook.Worksheets(“sheet2”).Visible=xlSheetVisible ‘显示被隐藏的工作表
ThisWorkbook.Sheets(1).ProtectContents ‘检查工作表是否受到保护
ActiveSheet.Columns("B").Cut
ActiveSheet.Columns("F").Insert ‘以上两句将B列数据移至F列,原C列后的数据左移
ActiveSheet.Range(“A:A”).EntireColumn.AutoFit ‘自动调整当前工作表A列的列宽
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlTextValues) ‘选中当前工作表中常量和文本单元格
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlErrors+xlTextValues) ‘选中当前工作表中常量和文本及错误值单元格
猜你喜欢