vba如何把程序赋给控件

在VBA（Visual Basic for Applications）中，要将程序代码赋给控件，通常是通过设置控件的`OnAction`属性或者通过编写事件处理程序。以下是一些常见的做法：

设置控件的OnAction属性

如果你有一个按钮（Button）控件，并且你想当点击这个按钮时执行一段代码，你可以这样设置：

```vba

Private Sub CommandButton1_Click()

' 你的代码逻辑

End Sub

```

然后在按钮控件的属性窗口中，找到`OnAction`属性，并将其设置为上面编写的子程序名称，例如`CommandButton1_Click`。

通过编写事件处理程序

大多数控件都有自己的事件，例如点击（Click）事件、双击（DbClick）事件等。以下是一个示例，展示如何为按钮的点击事件编写处理程序：

```vba

Private Sub CommandButton1_Click()

' 你的代码逻辑

MsgBox "按钮被点击了！"

End Sub

```

在这个例子中，当用户点击按钮时，会弹出一个消息框显示“按钮被点击了！”。

动态设置控件的属性

如果你想在程序运行时动态地设置控件的属性，你可以使用以下代码：

```vba

' 假设有一个按钮控件名为 CommandButton1

With Me.CommandButton1

.OnAction = "CommandButton1_Click"

' 你可以设置其他属性，如颜色、字体等

.Caption = "点击我"

.BackColor = vbBlue

End With

```

在这个例子中，`Me`关键字表示当前活动窗体，`.CommandButton1`表示窗体上的按钮控件。`With`语句允许你一次性设置多个属性。

确保在使用这些代码之前，你已经正确地创建了控件，并且控件名称与代码中的名称相匹配。