|
誰か教えてください。初心者でわかりません。。
10個のCheckBoxがある。
14個のLabelがある。
1個のコマンドボタンがある。
各CheckBoxをクリックで下記動作を行っている。
CheckBox10個分
(例:CheckBox2_Click/CheckBox3_Click)
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
Dim i As Integer
For i = 1 To 14
Me.Controls("Label" & i).Visible = True
Next i
Dim cnt As Long
cnt1 = WorksheetFunction.CountIf(Worksheets("Sheet1").Range("BS:BS"), "あ")
Label1 = cnt1
cnt2 = WorksheetFunction.CountIf(Worksheets("Sheet1").Range("BS:BS"), "い")
Label2 = cnt2
cnt3 = WorksheetFunction.CountIf(Worksheets("Sheet1").Range("BS:BS"), "う")
Label3 = cnt3
・
・
・
cnt14 = WorksheetFunction.CountIf(Worksheets("Sheet1").Range("BS:BS"), "せ")
Label14 = cnt14
Else
Dim ii As Integer
For ii = 1 To 14
Me.Controls("Label" & ii).Visible = False
Next ii
End If
End Sub
Private Sub CheckBox3_Click()
If CheckBox2.Value = True Then
Dim i As Integer
For i = 1 To 14
Me.Controls("Label" & i).Visible = True
Next i
Dim cnt As Long
cnt1 = WorksheetFunction.CountIf(Worksheets("Sheet1").Range("BS:BS"), "ああ")
Label1 = cnt1
cnt2 = WorksheetFunction.CountIf(Worksheets("Sheet1").Range("BS:BS"), "いい")
Label2 = cnt2
cnt3 = WorksheetFunction.CountIf(Worksheets("Sheet1").Range("BS:BS"), "うう")
Label3 = cnt3
・
・
・
cnt14 = WorksheetFunction.CountIf(Worksheets("Sheet1").Range("BS:BS"), "せせ")
Label14 = cnt14
Else
Dim ii As Integer
For ii = 1 To 14
Me.Controls("Label" & ii).Visible = False
Next ii
End If
End Sub
コマンドボタンで複数のチェックに対して処理をしたい。
たとえば、CheckBox2とCheckBox3にチェックをつけてコマンドボタンを押すと
CheckBox2とCheckBox3のCountIfの合計を各Labelに表示したい。
文章が下手ですみません。
よろしくお願いします。
|
|