excel - 如何在 VBA 中以编程方式在某些工作表单元格数据旁边添加按钮？

Question

我有一个函数可以生成 100 行(和 2 列)的数据。对于每一行(第三列)，我需要添加一个按钮，单击该按钮时，会弹出一个自定义模式对话框，为用户提供 4 个选项/按钮可供选择。

知道如何做到这一点吗？

Answer 1

我认为这足以让你走上一条美好的道路:

Sub a()
  Dim btn As Button
  Application.ScreenUpdating = False
  ActiveSheet.Buttons.Delete
  Dim t As Range
  For i = 2 To 6 Step 2
    Set t = ActiveSheet.Range(Cells(i, 3), Cells(i, 3))
    Set btn = ActiveSheet.Buttons.Add(t.Left, t.Top, t.Width, t.Height)
    With btn
      .OnAction = "btnS"
      .Caption = "Btn " & i
      .Name = "Btn" & i
    End With
  Next i
  Application.ScreenUpdating = True
End Sub

Sub btnS()
 MsgBox Application.Caller
End Sub

它创建按钮并将它们绑定(bind)到butnS()。在 btnS() 子中，您应该显示对话框等。