Excel VBA質問箱 IV

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

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


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

22904 / 76807

←次へ　｜　前へ→


	【59278】Re:コマンドボタンのマクロ登録を変更したい

jackey - 08/12/4(木) 15:24 -


	引用なし

	パスワード

▼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

1 hits

▼

【59272】コマンドボタンのマクロ登録を変更したい jackey 08/12/4(木) 10:22