|
kouka さん、こんにちわ。
>シート上にフォームのチェックボックスをいくつか配置して、
>そのチェックボックスがオンの状態なのか、
>オフの状態なのかを取得するにはどういう記述をすればいいですか?
シート上のフォームコントロールのチェックボックスのチェック状況を判断します。
Sub test()
Dim sh As Shape, sh2 As ControlFormat
For Each sh In ActiveSheet.Shapes
If sh.Type = msoFormControl Then
If sh.FormControlType = xlCheckBox Then
Select Case sh.ControlFormat.Value
Case 1: Msg = "チェックあり" 'TRUE
Case -4146: Msg = "チェックなし" 'FALSE
Case Else: Msg = "淡色表示 " '#N/A(淡色)
End Select
MsgBox Msg, vbInformation, sh.Name
End If
End If
Next
End Sub
こんな感じです。
|
|