窗体UserForm——命令按钮

2020-07-28 11:29:09 浏览数 (1)

窗体主要是为了做交互界面,VBA里已经做好了一些可以直接添加到窗体上的控件:

工具箱上的是一些常用控件,一般情况下都足够使用了,右键点击工具箱,会有个附加控件的东西,打开后可以看到,在工具箱上的是已经被勾选了的,这里可以有更多的选择。

这里的控件其实和前面说过的ActiveX控件是一种东西,使用方法也类似。

最常用的一个控件应该是命令按钮,拖拽一个到窗体,然后双击按钮就可以进入代码编辑,默认就会添加单击事件:

代码语言:javascript复制
Private Sub CommandButton1_Click()

End Sub

我们实现一个简单的功能:

新建一个Excel,默认有三个Sheet,名称分别为Sheet1、Sheet2、Sheet3。

在VBA编辑器插入一个窗体,添加3个命令按钮,选中按钮,在属性窗口修改Caption属性分别为Sheet1、Sheet2、Sheet3,编辑代码:

代码语言:javascript复制
Private Sub CommandButton1_Click()
    Worksheets("Sheet1").Activate
End Sub

Private Sub CommandButton2_Click()
    Worksheets("Sheet2").Activate
End Sub

Private Sub CommandButton3_Click()
    Worksheets("Sheet3").Activate
End Sub

在普通模块编辑代码:

代码语言:javascript复制
Sub TestUserFrom()
    UserForm1.Show
End Sub

运行后:

这样就完成了一个简单的交互界面,点击窗体上的按钮,可以分别激活对应的工作表。

0 人点赞