使用 vba 创建命令按钮

Question

在当前工作表上添加命令按钮，然后插入在单击该按钮时运行的代码的 vba 代码是什么？

提前致谢。注意：单击命令按钮的任务是：选择工作簿名称“123”（已打开），选择工作表名称“ABC”，然后选择范围 a123。

Answer 1

典型的按钮制造商：

Sub button_maker()
    Dim r As Range
    Set r = Selection
        ActiveSheet.Buttons.Add(94.5, 75.75, 51, 27.75).Select
        Selection.OnAction = "macro123"
        ActiveSheet.Shapes(1).Select
        Selection.Characters.Text = "macro123"
    r.Select
End Sub

和典型的按钮代码：

Sub macro123()
    Workbooks("123.xlsx").Activate
    Sheets("ABC").Select
    Range("A123").Select
End Sub