선택 상자가 다른 셀에 특정 값을 반환합니다.

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 

I는 두 경우 체크 세포 (이상 2, 3 열) 및 YES, BLANK ("")를 각각 체크 경우에 입력 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