<em>excel</em> vba 中ActiveX <em>控件</em&

——》1，呵呵，这个问题真的很有意思。

——》2，如Book1工作簿里里面的一个工作表Sheet1。

我们先录入一个宏，例如：

Sub Test()
Range("F9").Select
ActiveCell.FormulaR1C1 = "a"
Range("F9").Select
End Sub

——》3，接着我们单击“视图”菜单－“工具栏”－“控件工具箱”

在弹出的“控件工具箱”里面选择“命令按钮”。然后在工作表Sheet1上面画一个按钮。关闭“控件工具箱”。
对这个按钮单击鼠标右键，选择“命令按钮对象”－“编辑”。修改一下该按钮显示的名称，如“统计”。或者你可以对这个按钮单击鼠标右键，选择“属性”对该按钮进行详细的编辑。

——》4，记得先调整好该按钮的大小和位置。7a686964616fe58685e5aeb9361否则一会儿调整起来就很麻烦了。呵呵不是不可以再调整它的大小和位置了，只是很麻烦而已。

——》5，这步是最重要的。先左键单击该按钮，即选中该按钮。此时“公式编辑栏”里面会显示诸如：

=EMBED("Forms.CommandButton.1","")

这样的公式。我们将这些内容全部删除，然后回车。这时候你依旧可以调整它的大小和位置。

——》6，现在对这个按钮单击鼠标右键，选择“指定宏”，然后在弹出的窗口中选择“Test”宏，然后点“确定”。

——》7，呵呵，看看怎么样，一个宏和按钮就这样联系起来了。

试试 call 模块1.宏一

把这个写成过程，例如起名叫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所在的窗口里定义zdaa就行。