各シートに「戻る」というボタンを作りましたが、
「戻るボタンを押したらシートの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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) シート削除のマクロで「deleteメソッドは失敗しました」となります。助けてください! Sub 不要 6 2022/09/08 16:41
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) コード名シートA列と集計シートA列のコードが一致したら、コード名シートA5からk12の範囲をコピーし 1 2022/08/29 23:46
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
マクロ 各シートの決められた位置に「戻る」ボタンを設置
Excel(エクセル)
-
エクセルのマクロ機能で前のシートに返るVBAはどうかくか
Excel(エクセル)
-
Excelでハイパーリンクでジャンプした後、リンク元の位置に戻りたい
Excel(エクセル)
-
-
4
excelで直前に参照していたブックに戻るマクロは作れますか?
Excel(エクセル)
-
5
エクセルVBA 開始セルに戻る方法
Excel(エクセル)
-
6
Excel: ハイパーリンクのジャンプ先から戻る方法
Excel(エクセル)
-
7
スクロールしてもボタンを常に表示させたい。Excel2002
Excel(エクセル)
-
8
VBAでの結合セルのコピー&ペースト
Excel(エクセル)
-
9
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
10
セルの値と同じ名前のシートをアクティブにするには?
Excel(エクセル)
-
11
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
12
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
13
VBAを何回も作り直して、容量が増えた
Excel(エクセル)
-
14
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
15
VBAで結合したセルがクリアできない
Excel(エクセル)
-
16
SUMIF関数で、「ブランク以外を合計」を指定したい
その他(Microsoft Office)
-
17
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
18
【VBA】指定したセルと同じ値で、別シートにあるセルに移動するには?
Visual Basic(VBA)
-
19
条件によって印刷するシートを変える方法 EXCEL-VBA
Excel(エクセル)
-
20
EXCEL マクロ 条件の合ったシートだけ印刷したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別シートのマクロを実行する方法
-
Access終了時にマクロまたはVBA...
-
エクセルのマクロボタンが編集...
-
Application.Runエラー(1004)
-
今日の日付の範囲を指定して印...
-
マクロが登録できません
-
エクセルのマクロ
-
マクロ 戻るボタンを押したらシ...
-
プロシージャが大きすぎます!
-
エクセルVBAで、ボタンの文字を...
-
エクセル VBA SendKeys ループ...
-
特定のシートだけ印刷はマクロ...
-
AccessでExcelファイルを印刷
-
アクセス起動時にVBAを実行させ...
-
ACCESS エラーメッセージ表示...
-
「Access」のフォームを...
-
InputBox内の表示について
-
シート保護を掛けたまま並べ替...
-
Workbook_Openを起動時以外に呼...
-
エクセルのマクロ名一覧
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルのマクロボタンが編集...
-
別シートのマクロを実行する方法
-
Application.Runエラー(1004)
-
Access終了時にマクロまたはVBA...
-
シート保護を掛けたまま並べ替...
-
access2010 コマンドまたはアク...
-
エクセルVBAで、ボタンの文字を...
-
マクロ 戻るボタンを押したらシ...
-
マクロが登録できません
-
エクセル VBA SendKeys ループ...
-
InputBox内の表示について
-
ExcelのVBAでDisplayalertsで警...
-
特定のシートだけ印刷はマクロ...
-
今日の日付の範囲を指定して印...
-
マクロとモジュールの違いを教...
-
エクセルの右クリックにオートS...
-
Workbook_Openを起動時以外に呼...
-
プロシージャが大きすぎます!
-
別シートのトグルボタンを指定...
-
アクセス:検索フォームボタンに...
おすすめ情報
>下記は、『「戻る」というマクロを2枚目のシート以降すべてに付ける』というマクロです。
間違えました。
下記は、『「戻る」というボタンを2枚目のシート以降すべてに付ける』というマクロです。
すみませんでした。よろしくお願いいたします。