Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


15845 / 76734 ←次へ | 前へ→

【66363】複数のチェックボックス動作
質問  とってぃ E-MAIL  - 10/8/27(金) 17:11 -

引用なし
パスワード
   誰か教えてください。初心者でわかりません。。

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に表示したい。

文章が下手ですみません。
よろしくお願いします。

1 hits

【66363】複数のチェックボックス動作 とってぃ 10/8/27(金) 17:11 質問
【66366】Re:複数のチェックボックス動作 kanabun 10/8/27(金) 18:33 発言

15845 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free