编写第一个VBA程序

实现在活动工作簿中自动新建工作表并将其重命名为“工资汇总”。

(1)打开VBE窗口,点击菜单“插入”——“模块”,在模块中新建一个模块(若删除模块,可点击删除模块对象,右键选择移除模块,这时弹出一个框“移除模块前是否导出”据自己情况选择。),同时自动弹出其代码窗口,若不弹出则可双击该模块对象打开其代码窗口;将光标定于模块的代码窗口中,点击菜单“插入”——“过程”,弹出“添加过程”对话框,输入名称AddSheet,点击确定,在模块对应的代码窗口自动生成自定义过程框架;在AddSheet过程框架中输入代码,实现自动新建名为“工资汇总”,代码如下:

Public Sub AddSheet()

’新建工作表,命名为“工资汇总”

Dim ws As Worksheet

Set ws = Worksheets.Add

ws.Name="工资汇总”

End Sub




点击工具栏中的三角形按钮,运行模块中的AddSheet过程,执行代码后,当前工作簿中新增一张名为“工资汇总”的工作表。



(2)若要再自动生成另一个工作表并命名为其他名称,可在上面的代码中第二个“工资汇总”改为另一个名称,再点击三角形运行即可在当前工作簿中生成一张新的工作表,比如:



(3)若要保存代码,将其所在工作簿保存类型为“Excel启用宏的工作簿”。

相关推荐
很详细的VBA语法介绍: 一、VBA入门知识 。。。 二、了解对象、属性、方法和事件 1、了解对象、属性、方法和事件 2、Application 对象 3、Workbook 对象 4、Workbooks 属性 5、Range 对象 6、Range 属性 7、Cells 属性 。。。 三、VBA语法 (一)Visual Basic 的命名规则 1、写 Visual Basic 语句 2、写声明语句 3、Dim 语句的语法 4、Activate 方法的语法 5、Set 语句 3 6、MsgBox 函数的语法 7、选项语句的语法 8、AddressOf 运算符 9、了解变体 10、写赋值语句 11、写可执行的语句 12、Public 语句 13、Private 语句 14、使用数组 15、使用常数 16、AppActivate 语句 17、Beep 语句 19、Date 语句 20、Error 语句 21、Exit 语句 22、GoSub...Return 语句 23、GoTo 语句 24、Input # 语句 25、Let 语句 26、Load 语句 27、Name 语句 28、On...GoSub、On...GoTo 语句 29、Open 语句 30、Rem 语句 31、Stop 语句 32、Time 语句 33、While...Wend 语句 (二)逻辑语句 1、If...Then...Else 语句 2、使用 Select Case 语句 3、使用 For...Next 语句 4、For Each...Next 语句 5、 Do...Loop 语句 6、 With 语句 (三)过程 1、写 Sub 过程 2、写 Function 过程 3、写 Property 过程 四、 ActiveX 控件 1、AfterUpdate 事件 2、Click 事件 3、Click 事件、命令按钮控件、Accelerator 和 Caption 属性示例 4、DblClick 事件 5、Error 事件 6、KeyDown 和 KeyUp 事件 7、KeyPress 事件 8、KeyPress 事件示例 9、MouseDown 和 MouseUp 事件 10、MouseMove 事件 11、列表框控件 12、SpinDown 和 SpinUp 事件 13、SpinDown、SpinUp 事件和 Delay 属性示例 14、组合框控件 15、命令按钮控件 。。。
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页