|
▼Jaka さん:ありがとうございました。
早速 以下のように記述して実行しましたが、エラーが出ます。
Sub Z11_0724選択時シートのボタンマクロの変更()
Dim Ws As Worksheet
For Each Ws In Worksheets
i = i + 12
Ws.Shapes("Button 2").OnAction = "A00メニューへ" & i '指定したアイテムが見つかりません。というエラーメッセージです。
Next
End Sub
'マクロは以下の通りです。
Sub A00_メインへ()
Application.ScreenUpdating = False
Sheets("メイン").Select
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
Range("B2").Select
End Sub
シートは全部で48シートあり、変更させたいボタンの在るシートは、並び替え後ですが、
左から13番目〜46番目までのシートです。
("E01") ("E34") のシート名
エラーを解消させるにはどこを変更したらよいでしょうか。
よろしくお願いいたします。
>▼jackey さん:
>
、
>
>マクロ登録するコードは大体こんな感じ。
>
>Sub wrc()
>Dim Ws As Worksheet
>For Each Ws In Worksheets
> i = i + 1
> Ws.Shapes("ボタン 1").OnAction = "マクロ" & i
>Next
>End Sub
>
>Sub マクロ1()
> MsgBox 11
>End Sub
>
>Sub マクロ2()
> MsgBox 22
>End Sub
>
>Sub マクロ3()
> MsgBox 33
>End Sub
|
|