VBA를 사용하여 Excel에서 모든 확인란의 값을 가져옵니다.
문제
다음 코드를 사용하여 Excel 시트 프로그래밍에 많은 확인란을 추가합니다.
With ActiveSheet.CheckBoxes.Add(rCell.Left, rCell.Top, rCell.Width, rCell.Height)
.Interior.ColorIndex = xlNone
.Caption = ""
End With
이제 시트에있는 모든 확인란을 구문 분석하고 값 (참 또는 거짓)과 존재하는 셀을 얻는 코드가 필요합니다. 이 작업을 수행하는 방법?
감사...
해결책
Sub Add_CheckBoxes()
With ActiveSheet.CheckBoxes.Add(ActiveCell.Left, ActiveCell.Top, ActiveCell.Width, ActiveCell.Height)
.Interior.ColorIndex = xlNone
.Caption = ""
End With
For Each chk In ActiveSheet.CheckBoxes
If chk Then MsgBox "Checked"
Next
End Sub
다른 팁
확인란을 추가하면 다음과 같이 루프 할 수 있습니다.
Sub Checkbox_Test()
Dim chk As CheckBox
Dim cell As Range
For Each chk In ActiveSheet.CheckBoxes
If chk.Value = Checked Then '1 is true, but the constant
Set cell = chk.TopLeftCell ' "Checked" avoids "magic numbers".
'do whatever with cell
MsgBox cell.Address
End If
Next chk
종료 서브
제휴하지 않습니다 StackOverflow