|
コントロールツールボックスのコントロールでなく、フォームのコントロールを
使えば、登録するマクロを一つにまとめることが出来ます。一例として
アクティブシートの A2:A6 の各セルにぴったり収まるボタンを配置し、押された
ボタンによって違う処理をさせるなら
Sub ボタン配置()
Dim Tp As Single, Wp As Single, Hp As Single
Dim i As Integer
With Range("A2")
Wp = .Width: Hp = .Height
End With
For i = 2 To 6
Tp = Cells(i, 1).Top
ActiveSheet.Buttons.Add 0.1, Tp, Wp, Hp
Next i
ActiveSheet.Buttons.OnAction = "Test1"
End Sub
Sub Test1()
Dim x As Variant
x = Application.Caller
If VarType(x) <> 8 Then Exit Sub
Select Case x
Case "ボタン 1"
処理A
Case "ボタン 2"
処理B
Case ・・・
End Select
End Sub
|
|