如何在 Excel 中将包含单选按钮的单元格设置为 ActiveCell答案

【问题标题】：How to make the cell containing the radio button as ActiveCell in Excel如何在 Excel 中将包含单选按钮的单元格设置为 ActiveCell
【发布时间】：2019-10-01 14:22:25
【问题描述】：

我有一个包含不同记录的工作表。我想要的：每条记录左侧的单选按钮。当我单击单选按钮时，它右侧的相应单元格被选中并复制。

问题出在哪里：识别 ActiveCell。我无法将包含单选按钮的单元格设为 ActiveCell。单击单选按钮后，Excel 将我单击的最后一个单元格视为 ActiveCell 并开始相对于该单元格进行复制。我想要相对于包含单选按钮的单元格进行选择。

如果有人可以编写宏以使包含单选按钮的单元格成为 ActiveCell，我将不胜感激。我从 Developer>Insert>Form Controls 插入了单选按钮。

【问题讨论】：

欢迎来到 Stack Overflow。请注意，由于这不是免费的代码编写服务，因此有必要显示您迄今为止尝试过的内容以及遇到的问题或错误（通过显示您的代码），或者至少显示您的研究内容和所做的努力.否则，它只是要求我们为您完成所有工作。阅读How to Ask 可能会帮助您改进您的问题。
嗨。获取行尝试 ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row

标签： excel vba

【解决方案1】：

您可以使用TopLeftCell 或BottomRightCell 获取选项按钮的位置

Sub OptionButton1_Click()
    Dim rdioButton As OptionButton

    Set rdioButton = ActiveSheet.Shapes(Application.Caller).DrawingObject

    Debug.Print "TopLeft", rdioButton.TopLeftCell.Address
    Debug.Print "BottomRight", rdioButton.BottomRightCell.Address

    rdioButton.TopLeftCell.Select
    Debug.Print "ActiveCell", ActiveCell.Address

End Sub

要查看即时窗口，请在VBA 编辑器中按Ctrl+G 以查看上面Debug 语句的输出或通过View-导航到它- >立即窗口

【讨论】：