Контроль формы checkbox ссылка со ссылкой на ячейку

Question

Я разработал ссылку на связанную ячейку для флажка управления формой, .LinkedCell = Worksheets("sheet1").Range("D" & myCell.Row & "").Value, который, к сожалению, не будет ссылаться на указанную ячейку. Хотя, ссылка на подпись действительно работает. Я поместил весь макрос ниже:

Sub test() 

    Dim myBox As CheckBox 
    Dim myCell As Range 

    Dim cellRange As String 

    With ActiveSheet 
     For Each myCell In .Range("B10:B12").Cells 
      With myCell 
       Set myBox = .Parent.CheckBoxes.Add(Top:=.Top, Width:=.Width, Left:=.Left, Height:=.Height) 

       With myBox 
        .LinkedCell = Worksheets("sheet1").Range("D" & myCell.Row & "").Value 
        .Caption = Worksheets("sheet1").Range("B" & myCell.Row & "").Value 
        .Name = "checkbox_" & myCell.Address(0, 0) 
       End With 

       .NumberFormat = ";;;" 
      End With 

     Next myCell 
    End With 
End Sub 

Я пытался ссылаться на ячейку таким образом также: .Range("sheet1!B" & myCell.Row).Value. Этот метод полностью не работает.

Answer 1

Вам нужен .Address, а не .Value. Попробуйте

.LinkedCell = Worksheets("sheet1").Range("D" & myCell.Row).Address 

или

.LinkedCell = ActiveSheet.Range("D" & myCell.Row).Address 

Также не нужно "" после указания строки. Таким образом, "B" & myCell.Row & "" можно написать как "B" & myCell.Row