excel vba中如何通过代码将宏与按钮 控件进行绑定
时间: 2023-06-03 13:06:29 浏览: 999
您可以通过以下代码将宏与按钮控件进行绑定:
Sub BindMacroToButton()
Dim NewButton As Button
Set NewButton = Worksheets("Sheet1").Buttons.Add(100, 100, 60, 30)
NewButton.OnAction = "MacroName"
End Sub
其中,“Sheet1”是要绑定按钮的工作表名称,“100, 100”是按钮左上角的位置,“60, 30”是按钮的宽度和高度,“MacroName”是要绑定的宏的名称。您可以将此代码复制到 Excel VBA 中并运行以创建绑定的按钮。
相关问题
excel vba中如何通过代码将宏与窗体中的按钮控件进行绑定
这是一个技术类问题,我可以回答。您可以使用以下代码来将宏与窗体中的按钮控件进行绑定:
1. 在窗体中创建按钮控件,给按钮设置名称和相应的宏。
2. 在VBA编辑器中打开窗体代码,找到对应的按钮控件的_Click()事件。
3. 在_Click()事件中编写要执行的宏代码。
例如,以下是将名为“Button1”的按钮控件与名为“Macro1”的宏进行绑定的代码:
Private Sub Button1_Click()
Call Macro1
End Sub
excel vba中 在哪里使用代码对控件属性进行设置
你可以使用VBA代码在"属性"窗口中声明控件属性并设置其值。具体来说,你可以使用"Property Let"语句在控件代码模块中定义控件属性,例如:
```
Private m_myProperty As String
Public Property Let MyProperty(ByVal value As String)
m_myProperty = value
End Property
```
然后,您可以在另一个VBA过程中使用以下代码将控件属性设置为所需值:
```
Dim myControl As Control
Set myControl = Me.Controls("myControlName")
myControl.MyProperty = "desiredValue"
```
请注意,在上面的代码中,"myControlName"应替换为您的控件名称,并且"desiredValue"应替换为所需属性值。
相关推荐
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![pdf](https://img-home.csdnimg.cn/images/20210720083512.png)
![application/x-rar](https://img-home.csdnimg.cn/images/20210720083606.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)