复选框将具体值返回给不同的单元格

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