各シートに「戻る」というボタンを作りましたが、
「戻るボタンを押したらシートの1枚目をアクティブにする」というマクロを付けたいです。
下記は、『「戻る」というマクロを2枚目のシート以降すべてに付ける』というマクロです。
このマクロの中に、各シートの「戻る」ボタンを押せば、シートの1枚目に戻るような
指示を入れたいです。
分かる方いましたら、お願いします。。。
※下記のマクロは以前ご回答いただいたマクロを引用したものです。
///////////////////////////////////
Sub 戻るボタン設置()
Dim Sht As Worksheet
For Each Sht In Worksheets
If Not Sht.Name = Worksheets(1).Name Then
With Sht
For i = 1 To 1
'幅140、高さ20のボタンを追加
.Buttons.Add(900 * i, 10, 140, 20).Text = "戻る"
Next i
End With
End If
Next Sht
Sheets(1).Select
End Sub
No.2ベストアンサー
- 回答日時:
一例です。
Sub 戻るボタン設置()
Dim Sht As Worksheet, i As Long
For Each Sht In Worksheets
If Not Sht.Name = Worksheets(1).Name Then
With Sht
For i = 1 To 1
'幅140、高さ20のボタンを追加
.Buttons.Add(900 * i, 10, 140, 20).Text = "戻る"
'マクロ登録
.Buttons(1).OnAction = "シート移動"
Next i
End With
End If
Next Sht
Sheets(1).Select
End Sub
Sub シート移動()
' If ActiveSheet.Name = Worksheets(1).Name Then Exit Sub
Worksheets(1).Select
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ゆるやかでぃべーと タイムマシンを破壊すべきか。
これはディベートの論題だと仮定したうえでの回答お願いします。あなたは、その末にタイムマシンを壊してしまうのか、使い道を探すのかどうかを考えてもらいたいです。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
マクロ 各シートの決められた位置に「戻る」ボタンを設置
Excel(エクセル)
-
エクセルのマクロ機能で前のシートに返るVBAはどうかくか
Excel(エクセル)
-
Excelでハイパーリンクでジャンプした後、リンク元の位置に戻りたい
Excel(エクセル)
-
-
4
エクセルファイルを開く時、常に同じシートから開くようにするには?
Windows Vista・XP
-
5
excelで直前に参照していたブックに戻るマクロは作れますか?
Excel(エクセル)
-
6
Excel: ハイパーリンクのジャンプ先から戻る方法
Excel(エクセル)
-
7
エクセル 非表示のシートをハイパーリンクで表示できますか?
Excel(エクセル)
-
8
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
9
VBAでの結合セルのコピー&ペースト
Excel(エクセル)
-
10
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
11
エクセルのマクロで印刷プレビューを閉じる方法
Excel(エクセル)
-
12
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
13
エクセルでオブジェクトを常に表記する
Excel(エクセル)
-
14
条件によって印刷するシートを変える方法 EXCEL-VBA
Excel(エクセル)
-
15
EXCEL マクロ 条件の合ったシートだけ印刷したい
Excel(エクセル)
-
16
セルの文字を「印刷時だけ非表示」にしたいです。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別シートのマクロを実行する方法
-
Application.Runエラー(1004)
-
Access終了時にマクロまたはVBA...
-
エクセルのマクロボタンが編集...
-
InputBox内の表示について
-
シート保護を掛けたまま並べ替...
-
マクロとモジュールの違いを教...
-
アクセスのマクロについて
-
マクロ 戻るボタンを押したらシ...
-
excelで会議室予約表の作成(マ...
-
access2010 コマンドまたはアク...
-
RunMacroメソッドではsubプロシ...
-
AccessでExcelファイルを印刷
-
ExcelのVBAでDisplayalertsで警...
-
アクテイブなブック以外を一括...
-
マクロについて
-
JCL
-
エクセルのマクロでワークシー...
-
コマンドボタンにマクロを登録...
-
エクセル VBA SendKeys ループ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別シートのマクロを実行する方法
-
Application.Runエラー(1004)
-
エクセルのマクロボタンが編集...
-
Access終了時にマクロまたはVBA...
-
InputBox内の表示について
-
エクセルVBAで、ボタンの文字を...
-
access2010 コマンドまたはアク...
-
シート保護を掛けたまま並べ替...
-
ExcelVBAで右クリックメニュー...
-
特定のシートだけ印刷はマクロ...
-
マクロ 戻るボタンを押したらシ...
-
excelで会議室予約表の作成(マ...
-
エクセル VBA SendKeys ループ...
-
ExcelのVBAでDisplayalertsで警...
-
AccessでExcelファイルを印刷
-
マクロが登録できません
-
アクセスのマクロについて
-
アクセス:検索フォームボタンに...
-
マクロとモジュールの違いを教...
-
プロシージャが大きすぎます!
おすすめ情報
>下記は、『「戻る」というマクロを2枚目のシート以降すべてに付ける』というマクロです。
間違えました。
下記は、『「戻る」というボタンを2枚目のシート以降すべてに付ける』というマクロです。
すみませんでした。よろしくお願いいたします。