こんにちは。

そのままになっているようですから、ちょっと割り込ませていただきます。

特に、Sub プロシージャは、標準で「参照渡し」となるので、明示的というか可読性のために、ByRef が必要な場合のみです。同じシートモジュールに書く限りは、オブジェクトを渡すのでも、あまり変わりがないように思います。確かに、オブジェクトを再取得する場合の、タイム・ロスを否定はできませんが、この程度では差が見られません。

投稿日時 - 2009-03-25 12:39:47

#2です。参考までに
onlyromさんのコードを、以下のように引数でチェックボックスを渡すように変更すると
CheckBoxの名前と位置を意識しないで自由に作成することができるようになります。


'----------------------------------
Private Sub CheckBox1_Click()
　'クリックされたCheckBoxを設定
　Call ChkBx(ActiveSheet.OLEObjects("CheckBox1").Object)
End Sub

Private Sub CheckBox2_Click()
　Call ChkBx(ActiveSheet.OLEObjects("CheckBox2").Object)
End Sub
'-----------------------------------

Sub ChkBx(ByRef N As MSForms.CheckBox)
　With N
　　　If .Value = True Then
　　　　　MsgBox .TopLeftCell.Offset(0, -1).Value
　　　End If
　End With
End Sub

投稿日時 - 2009-03-22 08:41:17

>ということは、BOOK起動時にWorkbookOpenイベントなどで必ずSub SetCheckBox()を走らせなくてはいけないということなのでしょうか？

はいその通りです。
クラスのインスタンスを作成し、それぞれのインスタンスとチェックボックスを関連付けないとクリックイベントは発生しません。

なんらかのコードで、クラスのインスタンスを作成させかつ、インスタンスを保持しなければなりません。
Private cChkbox(1 To 3) As Class1
が関数内ではなく、モジュール内変数として、宣言しているのはそのためです。

投稿日時 - 2009-03-22 08:17:15

こんにちは。

以前、Class のインスタンスのお話はあまり興味を示されなかったようですので、こちらが書くのは控えておきますが、Class インスタンスのコードは、二重・三重になるので、多少、コードは複雑になるのはやむをえないです。

VBAでは一般的というか、私自身、#1さんのように、コードの共通部分だけ抜き出し、サブルーチン化してしまい、個々のオブジェクトのイベントを書くことになります。だから、コントロールツールの名称は、必ず枝番のように最後に数字をつけるわけですね。

面倒であるとかないとかは、この際はあまり重要でないというか、ある程度、複雑になり数が増えてくると、テキストエディタやワークシートの数式や関数を使い、コードを作ってしまってから、VBEditor 側に貼り付けるというのが、私のやり方です。

コントロール配列自体が、コントロールツール（OLEオブジェクト）では持たない性質上やむをえないのと、Classでは、イベント形式で、通常のワークシートなどにつけるものよりも、結果的に、内容によって煩雑というか、ややこしくなりがちなのです。また、インスタンスの恒常化も問題になります。欲を言えば、カプセル化についても考えなくてはなりません。プロの仕事（公開されたものという意味）では、アドインは別として、Class によるインスタンスを設けたものを見た記憶がありません。

投稿日時 - 2009-03-21 11:44:38

まず、クラスモジュールを１つ作成してください。例では、Class1とします
そのクラスの中で、WithEventsをつけて、チェックボックスオブジェクトを宣言します。
そうすると、クラスの中でそのオブジェクトのイベントを記述することが出来るようになります。
中身の例です
Option Explicit
Private WithEvents objCheckBox As MsForms.CheckBox

Public Sub SetCheckBox(ByRef InCheckBox As MsForms.CheckBox)
　　Set objCheckBox = InCheckBox
End Sub

Private Sub objCheckBox_Click()
　　MsgBox objCheckBox.Name & "が" & objCheckBox.Value & "にチェックされました"
End Sub


このクラスを利用する例です
Option Explicit
Private cChkbox(1 To 3) As Class1
Sub SetCheckBox()
　　Dim i As Long
　　
　　For i = 1 To 3
　　　　Set cChkbox(i) = New Class1
　　　　Call cChkbox(i).SetCheckBox(ActiveSheet.OLEObjects("CheckBox" & i).Object)
　　Next
End Sub


ワークシート上にCheckBox1、CheckBox2、CheckBox3という名のチェックボックスが
作成されていることが前提です。

投稿日時 - 2009-03-21 00:11:17