Question

我对Excel VBA比较陌生。我在网上找到以下代码，在特定工作表中的excel中添加多个复选框（让我们称之为表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

如上所示，每个复选框都链接到它所在的单元格。我要做的是找到一种方法将复选框的结果（True，False）链接到另一个工作表（让我们调用它在同一个excel文件中的工作表2）。例如，如果我单击工作表1上第W9行的复选框，它应该在工作表2上的W9上显示为True。有没有办法调整上面的代码才能使其工作？

感谢您的提前帮助

Answer 1

您可以更改

.LinkedCell = c.Address

类似

.LinkedCell = "Sheet2!" & c.Address

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

1 个答案: