excel - 使用 VBA 将 Excel 复选框链接到另一个工作表中的单元格

Question

我对 Excel VBA 比较陌生。我在网上找到了以下代码，可以在特定工作表的 excel 中添加多个复选框(我们称之为 Sheet 1):

Sub AddCheckBoxes()
   On Error Resume Next
   Dim c As Range, myRange As Range
   Set myRange = Selection
   For Each c In myRange.Cells
   ActiveSheet.CheckBoxes.Add(c.Left, c.Top, c.Width, c.Height).Select
   With Selection
   .LinkedCell = c.Address
   .Characters.Text = ""
   .Name = c.Address

   End With
   Next
   myRange.Select
  End Sub

如上所示，每个复选框都链接到它所在的单元格。我要做的是找到一种方法将复选框的结果(真，假)链接到另一个工作表(我们称之为工作表 2 ) 在同一个 Excel 文件中。例如，如果我要单击表 1 上 W9 行上的复选框，它应该在表 2 上的 W9 上显示 True。有没有办法调整上述代码以使其工作？

提前感谢您的帮助

Answer 1

你可以改变

.LinkedCell = c.Address

类似于

.LinkedCell = "Sheet2!" & c.Address