|
▼heru さん:
こんにちは
かみちゃんさんはら2つのテーマについてはアドバイスがありましたね。
さて、もうひとつの
>31個分の命令文をつくるのではなく1つにまとめたいのです、お願いします。
ユーザフォームのコマンドボタンであればイベントをクラスで受けて1つの
プロシジャで処理することはできますが、シート上のボタン等OLEObjectの
イベントの捕捉はサポートされていなかったように思います。
初心者ですので、もしかしたら勘違いで、ちゃんとできるのかもかもしれませんが・・
で、できないとすれば、しょうがないのでずらっとクリックイベントをかくしか
ないのかな? ただし、それぞれの31このルーティンでは共通のプロシジャに
飛ばすことで、処理コード自体は1つにするということはできますよね。
Option Explicit
Private Sub CommandButton1_Click()
実際の処理 1
End Sub
Private Sub CommandButton1_Click()
実際の処理 2
End Sub
Private Sub 実際の処理(index)
'処理
End Sub
|
|