Excel 在VBA中怎么调用公式-excel2010 vba打开,vba 打开excel

启动EXCEL，使用菜单 【视图】-- 【宏】-- 【查看宏】，选中你要运行的某个宏，单击【执行】，就运行了相应的VBA代码。

你是要来运行　EXCEL工作表函数还是要给在源VBA中给单元格写百公式
如果度是要用函数
applivation.worksheetfunction.
如果是要给格写问公式　答比如　B4＝A1+1
请用　range("B4").Formula = "=A1+1"
很简单，给你个示例，你按照操作：
1，新建一个e69da5e887aa7a64336Excel文档，另存为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

那么弹出结果："我被点击了！！！！！！"

很简单，给你个示例，你按照操作：
1，新建一个Excel文档，另存为AA.xlsm
2，在AA.XLSM文件中添加一个按钮CommandButton1
3，在设计模式下双击Commandbutton1按钮，那么进入VBe窗口，并且得到Private Sub COmmandbutton1_Click()事件
4，将Private修改为Public
5，给单击e799bee5baa6e997aee7ad94e58685e5aeb9363事件添加代码：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

那么弹出结果："我被点击了！！！！！！"