チェックボックスは異なるセルに特定の値を返します

Question

私は次のようなコードをいくつか持っています。私はCheckBoxに基づいて2つのセルに異なる値を入力する必要があります。

Sub YesNoChkBox() 
    Dim ChkBx As CheckBox, g As Integer, h As Integer, r As Integer 
    Set ChkBx = ActiveSheet.CheckBoxes(Application.Caller) 

    With ChkBx.TopLeftCell 
     r = .Row 
     g = .Column + 2 
     h = .Column + 3 
    End With 

    If ChkBx = 1 Then 
     gr = "NO" 
     hr = "NO" 
    Else 
     gr = "YES" 
     hr = "" 
    End If 
End Sub 

は、私は2個のチェック場合に細胞（上2及び3列）、及びYES、空白（ ""）は、それぞれ未チェックの場合に入力NO、NOにチェックボックスを必要とします。

私がr、g、hを使用しているのは、チェックボックスをコピーして別の行に貼り付け、それに自動的に対応するセル（行G：Hでも行5： 21）

Answer 1

これはどういう意味ですか？

If ChkBx = 1 Then 
    Cells(r, g) = "NO" 
    Cells(r, h) = "NO" 
Else 
    Cells(r, g) = "YES" 
    Cells(r, h) = "" 
End If