将单选按钮和组合框输出到Excel电子表格中。

Question

我想知道当用户从组合框中选择某个内容并按下按钮（已经设置）时，它会将选择输出到Excel电子表格中。

选择单选按钮也是如此。

我可以使用以下代码

为文本框执行此操作

Range("B8") = TextBox2.Text

一如既往地谢谢。

Answer 1

单选按钮，您可以遍历单选按钮，找到所选按钮并输出控件的Name，如下所示：

Dim cCon as Control

For Each cCon In Me.Controls
    If TypeName(cCon) = "OptionButton" And cCon.Value Then
        MsgBox cCon.Name
    End If
Next cCon

对于ComboBox，如果只有一列，则可以使用.Value属性返回值：

Range("A1").Value = ComboBox1.Value

如果有多个列，您可以使用以下内容：

Range("A1").Value = ComboBox1.List(ComboBox1.ListIndex,1) 'Where 1 is the column number