点击“选项”按钮
出现“excel选项”对话框
点击“自定义功能区”
在“开发工具”前面打上对号,点击确定完成设置。
在功能区选择,“开发工具”-“Visual Basic”
出现Vba编辑器。
很简单,给你个示例,你按照 *** 作:1,新建一个Excel文档,另存为AA.xlsm
2,在AA.XLSM文件中添加一个按钮CommandButton1
3,在设计模式下双击Commandbutton1按钮,那么进入VBe窗口,并且得到Private Sub COmmandbutton1_Click()事件
4,将Private修改为Public
5,给单击事件添加代码:Msgbox "我被点击了呢!!!!!!"
代码如下:
Public Sub CommandButton1_Click()
MsgBox "我呗点击了!"
End Sub
不要关闭工作簿,然后接下来继续 *** 作
6,打开VB,添加一个按钮
7,给按钮添加如下代码:
Private Sub Command1_Click()
Dim xxapp
Set xxapp = GetObject(, "Excel.application") '
Set wb = xxapp.workbooks("AA.xlsm")
Call wb.sheets(1).CommandButton1_Click '调用Commandbutton1的单击事件
End Sub
那么d出结果:"我被点击了!!!!!!"
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)