|
こんにちは。
皆様お教えください。
例えば、チェックボックスを5つ作って、チェックされた数を
取得したいのですが。
下記のようにチェックボックスごとに変数を作って、最後にその合計を
出すというマクロを作ったのですが、何か長ったらしい気がします。
もっとスマートな記述があるのでしょうか?
妥当な記述ですか?
教えください。
宜しくお願い致します。
Private Sub CommandButton1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim goukei As Integer
If CheckBox1 = True Then
a = 1
Else
a = 0
End If
If CheckBox2 = True Then
b = 1
Else
b = 0
End If
If CheckBox3 = True Then
c = 1
Else
c = 0
End If
If CheckBox4 = True Then
d = 1
Else
d = 0
End If
If CheckBox5 = True Then
e = 1
Else
e = 0
End If
goukei = a + b + c + d + e
End Sub
|
|