>source

체크박스를 선택하면 Excel에서 스프레드시트에 값을 쓰려고 합니다.

각 확인란의 이름은 Dog, Cat 및 기타입니다.

확인란의 모든 조합을 선택할 수 있으며(사용자가 적용되는 모든 항목을 선택할 수 있음) 사용자가 선택한 선택 항목을 B10 셀에서 시작하여 Excel의 "동물" 시트에 작성하기를 원합니다.

내 문제는 사용자 선택을 Excel 스프레드시트에 연결하는 데 문제가 있고 사용자가 '확인' 버튼을 클릭하면 양식이 닫히지 않는다는 것입니다. 모듈의 스크린샷과 함께 여기에 내 code를 복사했습니다.

Sub Source()
Call OK_Click
End Sub
 Sub OK_Click()
    If Dog.Value= True Then
        ThisWorkbook.Sheets("Animals").Range("B10").Value= Dog
    ElseIf Catl.Value= True Then
        ThisWorkbook.Sheets("Animals").Range("B11").Value= Cat
    ElseIf Other.Value= True Then
    ThisWorkbook.Sheets("Animals").Range("B12").Value= Other
    End If
End Sub

=Dog.Name 등 또는=the string "Dog" 등을 사용해 보십시오. 또한 Else 절이 필요하지 않다고 생각합니다. If Then 문을 각 확인란에 대해 별도의 행 n개를 사용하기만 하면 됩니다.

bugdrown2021-12-18 14:03:16

ThisWorkbook.Sheets("동물").Range("B10").Value= IIf(Dog.Value,"개", "")

Tim Williams2021-12-18 14:03:16
  • 이전 python : 파이썬 키비 축구 저글링 게임
  • 다음 주기적 Recyclerview android에서 스냅 센터 onItemClick