EXCEL2010
点击[开发工具]-代码模块的[宏],看到录制的宏,选中点[编辑],进入“Microsoft Visual Basic for Applications”(简称VBA)的代码编辑状态。另外在EXCEL窗口上同时按ALT+F11也可以可以直接进入VBA的代码编辑状态。
在左侧的'工程资源管理器'(如果看不到,可以按Ctrl+R呼出)中找到“模块”,一般我们录制的第一宏就在“模块1”中。双击“模块1”在右侧的空白窗口中会看到我们先前录制的代码。
代码中的 'Sub 宏1()' 与 'End Sub'之间即是宏的整个操作步骤。其中 Application.WindowState = xlMinimized 将EXCEL窗口最大化 Range('A1').Select 单元格A1被选中 With Selection.Interior 对已经选中的单元格(A1)进行操作 .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 255 设置为红色 .TintAndShade = 0 .PatternTintAndShade = 0 End With Range('A2').Select 单元格A2被选中 ActiveCell.FormulaR1C1 = '宏' 在激活的单元格(A2)中输入“宏” Range('A2').Select 单元格A2被选中 Selection.Font.Bold = True 设置为粗体 Selection.Font.Italic = True 设置为斜体 With Selection.Font .Color = -11489280 设置颜色 .TintAndShade = 0 End With With Selection.Font .Name = '宋体' 设置为宋体 .Size = 26 设置字号26 .Strikethrough = False .Superscript = False .Subscript = False .OutlineFont = False .Shadow = False .Underline = xlUnderlineStyleNone .Color = -11489280 设置颜色 .TintAndShade = 0 .ThemeFont = xlThemeFontMinor End With Range('A3:D11').Select 选择'A3:D11'区域