Excel VBA質問箱 IV

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

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


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

33801 / 76734

←次へ　｜　前へ→


	【48149】Re:CheckBoxの使い方

りん

- 07/4/5(木) 8:43 -


	引用なし

	パスワード

ToShi さん、おはようございます。

>CheckBoxだけで動作させる方法を検討していますが･･･
>コマンドボタンを使わずに、CheckBoxだけの操作をコードにしたいのですが、
>どのようにすると良いのでしょうか？アドバイスお願いします。
CheckBoxのChangeイベントで操作してみてはいかがでしょうか？

'フォームに書く
Private Sub CheckBox1_Change()
　 MsgBox CheckBox1.Value
End Sub

こんな風にまとめる事もできます（全部フォームに書く）。
Private Sub CheckBox1_Change()
　 cbcall CheckBox1
End Sub
Private Sub CheckBox2_Change()
　 cbcall CheckBox2
End Sub
Private Sub CheckBox3_Change()
　 cbcall CheckBox3
End Sub
'↓実働部分はここ
Private Sub cbcall(ctl As Control)
　 MsgBox ctl.Value, vbInformation, ctl.Name
End Sub

クラスモジュールでイベントを共有する方法もあるらしいです。

3 hits

▼

【48145】CheckBoxの使い方 ToShi 07/4/5(木) 6:59