如何将选项按钮添加到电子表格？

Question

我正在尝试将一个宏按钮的 'Hello, World' 放在一起，该宏按钮将在 Excel 电子表格的单元格上创建一个 option/radio 按钮，这是最简单的代码片段这份工作，这样我就可以更好地理解 OptionButtons.Add 并在此基础上继续努力。

为什么以下 VBA 代码会抛出错误？

"Compile error: Expected: =":

Sub BrokenOptionButtonTest()
Dim rang As Range
Set rang = Cells(Selection.Row, Selection.Column)
ActiveSheet.OptionButtons.Add(rang.Left, rang.Top, rang.Width, rang.Height)
End Sub

为什么下面的 VBA 代码不会抛出错误？

Sub PuzzlingOptionButtonTest()
Dim rang As Range
Set rang = Cells(Selection.Row, Selection.Column)
With ActiveSheet.OptionButtons.Add(rang.Left, rang.Top, rang.Width, rang.Height)
End With
End Sub

Answer 1

去掉第一个括号，因为您没有使用 Buttons.Add

中的 return 值

在第二个块中，您使用 return 值作为 With 块的主题，所以没有问题。

例如参见

Sub OptionButtonTest()
    With Selection.Cells(1)
        .Parent.OptionButtons.Add .Left, .Top, .Width, .Height
    End With
End Sub

如何将选项按钮添加到电子表格？

How to add option button to spreadsheet?

excel

vba

with-statement

radio-button