Excel VBA質問箱 IV

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

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


33801 / 76734 ←次へ | 前へ→

【48149】Re:CheckBoxの使い方
発言  りん E-MAIL  - 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 質問
【48149】Re:CheckBoxの使い方 りん 07/4/5(木) 8:43 発言
【48156】Re:CheckBoxの使い方 Kein 07/4/5(木) 14:23 回答
【48170】Re:CheckBoxの使い方 ToShi 07/4/5(木) 22:09 お礼

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