Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

40024 / 76732

←次へ　｜　前へ→


	【41812】Re:チェックボックスのチェック数を数える

Kein - 06/8/23(水) 14:52 -


	引用なし

	パスワード

コントロールツールボックスのチェックボックスを使うのでなく、
フォームツールバーのチェックボックスに変更して、同様の処理を
した方が効率的かと思います。テストするなら任意の空白シート
を開き、以下の CkBoxes_Add を１回だけ実行して下さい。
チェックをつけた数は C1セルにカウントされます。もちろん
チェックを外したときは、カウントを一つ減らします。
結果がよければ、現在コントロールツールボックスのコントロール
を配置しているシートを開いて、実行してみて下さい。

Sub CkBoxes_Add()
　 Dim Obj As OLEObject
　 Dim i As Integer
　 Dim Tp As Single, Hp As Single
　
　 With ActiveSheet
　　　If .OLEObjects.Count > 0 Then
　　　　 For Each Obj In ActiveSheet.OLEObjects
　　　　　　If Obj.ProgId = "Forms.CheckBox.1" Then
　　　　　　　 Obj.Delete
　　　　　　End If
　　　　 Next
　　　End If
　　　With .CheckBoxes
　　　　 If .Count > 0 Then .Delete
　　　End With
　　　For i = 1 To 30
　　　　 Tp = .Cells(i, 1).Top
　　　　 Hp = .Cells(i, 1).Height
　　　　 .CheckBoxes.Add 0, Tp, Hp, Hp
　　　Next i
　　　With .CheckBoxes
　　　　 .Text = ""
　　　　 .OnAction = "Ck_Count"
　　　End With
　 End With
End Sub

Sub Ck_Count()
　 Dim x As Variant
　 Dim Ck As Long
　
　 x = Application.Caller
　 If VarType(x) <> 8 Then Exit Sub
　 Ck = ActiveSheet.CheckBoxes(x).Value
　 With Cells(1, 3)
　　　If Ck = xlOn Then
　　　　 .Value = .Value + 1
　　　Else
　　　　 .Value = .Value - 1
　　　End If
　 End With
End Sub

0 hits

▼

【41803】チェックボックスのチェック数を数える ひこ 06/8/23(水) 11:00