UC知道Excel宏与控件关联
来源：百度知道 编辑：UC知道 时间：2024/09/28 12:39:49
我用Excel做了一个宏,也画了一个控件按钮"commandbuttom1",宏是这样写的:
ActiveCell.Select
Range("g7").Select
ActiveCell.FormulaR1C1 = "=IF(MOD(INT(RAND()*100),2)=0,""A"",""B"")"
ActiveCell.Select
Range("g7").Select
怎样做可以按一下这个按钮就让宏运行?
ActiveCell.Select
Range("g7").Select
ActiveCell.FormulaR1C1 = "=IF(MOD(INT(RAND()*100),2)=0,""A"",""B"")"
ActiveCell.Select
Range("g7").Select
怎样做可以按一下这个按钮就让宏运行?
把这个写成过程，例如起名叫aa吧。
在vba里新建个模块，把上面的代码粘过去，如下
sub aa()
ActiveCell.Select
Range("g7").Select
ActiveCell.FormulaR1C1 = "=IF(MOD(INT(RAND()*100),2)=0,""A"",""B"")"
ActiveCell.Select
Range("g7").Select
end sub
然后在你的按钮事件里调用aa过程即可。如下：
Private Sub CommandButton1_Click()
Call aa
End Sub
其实，在程序的任何地方，都可以这么调用aa，只是如果你要在所有窗口里都能调用，就把aa写在模块里，如果只是一个窗口调用，那就在CommandButton1所在的窗口里定义aa就行。
1、 控件 按钮 是通过 代码（VBA程序运行）
2、与宏 关联 应该是 窗体 （菜单栏选择---‘视图’--‘窗体’----拖出按钮窗体----在按钮窗体上鼠标右键---‘指定宏...’）