如何在VBA中以指纹方式添加按钮，指向另一个工作表

Question

我正在尝试添加一个VBA程序，它将在C列中添加一个按钮，将您发送到同一行的工作表。我希望按钮位于C列中与工作表名称对应的单元格中。工作表的名称位于A列。

以下是我拥有的数据示例：

我的实际数据有更多的表格，这就是为什么我认为程序最好。

任何帮助将不胜感激，

最佳

Answer 1

试一试 - 它不会添加按钮，但会将每列中的文本超链接到相应的工作表

f

Answer 2

您可以尝试这样的想法：

Sub addBtn()
      Dim btn As Button
      Application.ScreenUpdating = False
      ActiveSheet.Buttons.Delete
      Dim t As Range
      For i = 1 To 5000 Step 1
        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 = Worksheets("A"&i).Value.Activate
          .Caption = "Btn " & i
          .Name = ActiveSheet.Range("A"&i)
        End With
      Next i
      Application.ScreenUpdating = True
    End Sub