戻りCheckBoxes.LinkedCellアドレスVBA

Question

私は、自動的に新しいチェックボックスを生成し、それにセルをリンクするために、次のコードを使用します。

ActiveSheet.CheckBoxes.Add().LinkedCell = Selection.Address 

私は.LinkedCellセルの背景色を変更する必要のある別のsubを作成したいです（青）またはチェックされていない（赤）のチェックボックスをオンにします。ワークシートに約200のチェックボックスがあります。

subがそのセルの背景色を変更できるように、現在チェック/チェックされていないチェックボックスの.LinkedCellアドレスを取得/返信する方法はありますか？

たとえば、.LinkedCellがチェックボックスが最初に配置されたセルであるとします。これは、各チェックボックスの初期状態のようになります。私はこのコードを使用し、今まで

：

と、これはユーザーの確認後の結果だろう/ checboxesのチェックを外しますチェックボックス自体の背景色を変更します。しかし、私はそれを望んでいない、私は.LinkedCellの色を変更したい。

Sub SetMacro() 
    Dim cb 
    For Each cb In ActiveSheet.CheckBoxes 
     If cb.OnAction = "" Then cb.OnAction = "CheckedUnchecked" 
    Next cb 
End Sub 

と

Sub CheckedUnchecked() 
    With ActiveSheet.Shapes(Application.Caller).DrawingObject 
     If .Value = 1 Then 
      .Interior.ColorIndex = 5 
     Else 
      .Interior.ColorIndex = 3 
     End If 
    End With 
End Sub 

Answer 1

次を使用してCheckedUncheckedコードを置き換えることができます：

Sub CheckedUnchecked() 
    With ActiveSheet.Range(ActiveSheet.CheckBoxes(Application.Caller).LinkedCell) 
     If .Value Then 
      .Interior.ColorIndex = 5 
     Else 
      .Interior.ColorIndex = 3 
     End If 
    End With 
End Sub