从命令按钮VBA获取价值

问题描述

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

我似乎无法弄清楚如何从他们那里获得信息。

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

the userform I created

我没有在此用户窗体上写任何内容，因此没有代码可以仅显示设计。

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

解决方法

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

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