ExcelVBAで複数のコマンドボタンを一つに！

ユーザーフォーム上にたくさんのボタンを配置しているのですが、
すべて同じ動作なので、一つにまとめたいです。
どのように記述したらよいでしょうか？

Private Sub CommandButton1_Click()
Selection.Interior.color = select_Color
End Sub

Private Sub CommandButton2_Click()
Selection.Interior.color = select_Color
End Sub

Private Sub CommandButton3_Click()
Selection.Interior.color = select_Color
End Sub

Private Sub CommandButton4_Click()
Selection.Interior.color = select_Color
End Sub

No.1 ベストアンサー 回答者： keithin 回答日時： 2011/02/27 22:35

ふつーにやっていては出来ないことなので，次の資料を参考にして作成してください。

http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub0 …

No.2 回答者： layy 回答日時： 2011/02/27 22:38

＞まとめて、

ボタン４つで動作はどこか１か所で記述

Private Sub CommandButton1_Click()
call sele_color
End Sub

Private Sub sele_color()
Selection.Interior.color = select_Color
End Sub

こういう記述？。

この回答への補足

いえ、ボタンは20個くらいあります。

補足日時：2011/02/28 00:29