从命令按钮 VBA 获取值答案

【问题标题】：Get value from command button VBA从命令按钮 VBA 获取值
【发布时间】：2021-01-28 23:22:42
【问题描述】：

我创建了一个带有几个命令按钮的用户窗体。

我似乎不知道如何从他们那里获取信息。

我想从另一个用户表单打开这个用户表单，然后我希望用户从其中一个按钮中选择一个选项，该选项将更改表格本身中的特定单元格

the userform I created

我没有在这个用户窗体上写任何东西，因此它没有代码来只显示设计。

如何从要写入特定工作表的特定单元格的按钮中获取信息？

【问题讨论】：

双击一个按钮。这将带你到后面的代码。您可以在_Click 事件中添加操作来做任何您想做的事情。可以使用 Me. 对象从后面的代码中访问表单数据。
然后阅读：stackoverflow.com/help/how-to-ask

标签： vba userform commandbutton

【解决方案1】：

双击其中一个按钮，在代码菜单中会出现一个新的子菜单。这看起来像：

Sub CommandButton1_onClick()
End sub

除了这个事件方法，它还有一些属性。这里有用的是CommandButton1.Value，它代表按钮的状态（真或假iirc）。

所以为每个按钮构建（我强烈建议给它们自定义名称以防止在麻烦中迷路），如下所示：

Sub CommandButton1_onClick()
   if CommandButton1.Value then
      ThisWorkBook.WorkSheets("WorksheetName").Range("YourRange").Value = "Some value"
   else
      ThisWorkBook.WorkSheets("WorksheetName").Range("YourRange").Value = ""
   end if
End sub

【讨论】：