Excel VBA質問箱 IV

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

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


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

32151 / 76807

←次へ　｜　前へ→


	【49895】Re:複数のボタンに同じコードを……

neptune - 07/6/27(水) 13:18 -


	引用なし

	パスワード

▼shutlmharze さん：
こんにちは

>のように纏めてしまいたいのです。何か方法はあるでしょうか。

もっとうまいやり方があるとは思いますが、こんなのでもいけます。
面倒くさいですよ。

もし判らなければ、同じプロシージャを呼び出すコードを全部の
イベントプロシージャに書きましょう。その方がはるかに早いと思います。

'//////////////////UserForm//////UserForm1//////////////
'//UserFormに２つだけCommandButtonを貼り付けているだけ////////
Option Explicit

Private clsButton(2) As Class1

Private Sub UserForm_Initialize()
　　Set clsButton(0) = New Class1
　　Set clsButton(0).SetButton = Me.CommandButton1
　　Set clsButton(1) = New Class1
　　Set clsButton(1).SetButton = Me.CommandButton2
End Sub

Private Sub UserForm_Terminate()
　　Set clsButton(0) = Nothing
　　Set clsButton(1) = Nothing
End Sub

'////////Classモジュール///// Class1 ////////
Option Explicit

Private WithEvents mButton As MSForms.CommandButton

Public Property Set SetButton(pButton As MSForms.CommandButton)
　　Set mButton = pButton
End Property

Private Sub Class_Terminate()
　　If Not mButton Is Nothing Then
　　　　Set mButton = Nothing
　　End If
End Sub

Private Sub mButton_Click()
　　Unload UserForm1
End Sub

研究してくださいませ。この手法はClass（クラス）を使用しています。

1 hits

▼

【49892】複数のボタンに同じコードを…… shutlmharze 07/6/27(水) 12:11