複選框將具體值返回給不同的單元格

Question

我有以下代碼，我假設有幾個問題。我需要它在基於CheckBox的兩個單元格中輸入不同的值。

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 

我需要的複選框輸入NO，NO成如果檢查了兩個單元（2分3列以上），和YES，BLANK（ 「」）分別如果不加以控制。

我使用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