表示するSheetを変えるボタンを作っています。宜しくお願いします。
ファイル(1)のSheet1~Sheet5 と Sheet7 のそれぞれのシートにSheet6へ行くボタンを作っています。
「WorkSheets("Sheet6").Activate」でしています。
で、Sheet6には戻るボタンを作りたいのですが、どこのシートから来たのかを認識して、該当シートへ戻るようにしたいのですがどのようにしたらよいでしょうか?(シート6へ行くボタンを押したシートに戻る)
更に、同様の処理が、WorkBook間でも処理ができるようにしたいのです。
ここは、「WorkBooks(ファイル(2).Xls)WorkSheets(”Sheet1”).Activate」をファイル(1)の各シートに書いて処理させています。ここから戻るボタンの方法もお願いします。
宜しくお願いします。
No.2
- 回答日時:
こんにちは
以下のページがご参考になるのでは?
【エクセル技道場】-ツールバー-マクロでツールバー作成
http://www2.odn.ne.jp/excel/waza/toolbar.html#SE …
参考URL:http://www2.odn.ne.jp/excel/waza/toolbar.html#SE …
No.3
- 回答日時:
>ファイル(1)のSheet1~Sheet5 と Sheet7 のそれぞれのシートにSheet6へ行くボタンを作っています。
>「WorkSheets("Sheet6").Activate」でしています。
>で、Sheet6には戻るボタンを作りたいのですが、どこのシートから来たのかを認識して、該当シートへ戻るように
>したいのですがどのようにしたらよいでしょうか?(シート6へ行くボタンを押したシートに戻る)
考え方だけ説明の為に書きましたので、きたない書き方になってます。
■Sheet1(シート6に移動する)
Private Sub CommandButton1_Click()
Sheets("Sheet6").Select
Sheets("Sheet6").Cells(1, 1).Value = "Sheet1" ←実際にはCells(1, 1)にワークの情報を書いたら邪魔
になるので、邪魔にならない場所に書く
End Sub
■Sheet2(シート6に移動する)
Private Sub CommandButton1_Click()
Sheets("Sheet6").Select
Sheets("Sheet6").Cells(1, 1).Value = "Sheet2" ←実際にはCells(1, 1)にワークの情報を書いたら邪魔
になるので、邪魔にならない場所に書く
End Sub
■Sheet3~5も同様
■Sheet6 (呼ばれたシートに戻る所)
Private Sub CommandButton1_Click()
Sheets(Cells(1, 1).Value).Select
End Sub
>更に、同様の処理が、WorkBook間でも処理ができるようにしたいのです。
>ここは、「WorkBooks(ファイル(2).Xls)WorkSheets(”Sheet1”).Activate」をファイル(1)の各シート
>に書いて処理させています。ここから戻るボタンの方法もお願いします。
上記と同じ考え方で、ファイル名のセルを追加します。
試しに、確認用のマクロを書いて見たら1回目はうまく動きましたが、2回目以降は、既に開いているEXCELシート
をまた、開きに行くので確認メッセージが出てしまいました。(出さない為の指定方法とか有るかもしれないが調べていません、分からないようでした質問してください。その時調べます。)
この問題は、別問題なので取りあえず参考にして下さい。
この回答への補足
ありがとうございます。うまくいきました。
>2回目以降は、既に開いているEXCELシートをまた、開きに行くので確認メッセージが出てしまいました。
については、もう少しじっくり考えてみます。
No.4
- 回答日時:
移動Book1.xls(シート1~7)、移動Book2.xls で書きました。
ファイル名は変更してください。'シート1~5、7にはボタン2個。各シートのコードウインドウに貼り付けます。
Private Sub cmdJump6_Click() 'シート6に行くボタン
Workbooks("移動Book1.xls").fukkiSheetNo = Right(Me.Name, 1)
Worksheets("Sheet6").Activate
End Sub
Private Sub cmdJumpBook2_Click() 'ブック2に行くボタン
Workbooks("移動Book1.xls").fukkiSheetNo = Right(Me.Name, 1)
Workbooks("移動Book2.xls").Worksheets("Sheet1").Activate
End Sub
'シート6はボタン1個。シートのコードウインドウに貼り付けます。
Private Sub cmdFukki_Click() '元のシートに復帰するボタン
Dim jmpNo As Integer '復帰するシート番号
jmpNo = Workbooks("移動Book1.xls").fukkiSheetNo
Worksheets("Sheet" & jmpNo).Activate
End Sub
'ThisWorkbookのコードウインドウに貼り付けます。これをBook2から参照する。
Public fukkiSheetNo As Integer '復帰するシート番号
'ブック2のシート1のコードウインドウに貼り付けます。
Private Sub cmdJumpBook1_Click()
Dim jmpNo As Integer '復帰するシート番号
jmpNo = Workbooks("移動Book1.xls").fukkiSheetNo
Workbooks("移動Book1.xls").Worksheets("Sheet" & jmpNo).Activate
End Sub
この回答への補足
ありがとうございます。
早速試してみましたが、
Workbooks("移動Book1.xls").fukkiSheetNo = Right(Me.Name, 1)
でのところで止まります。
”オブジェクトは、このプロパティまたはメソッドをサポートしていません。”
と出ます。なぜでしょう????????
ファイル名は、自分のものに変えました。よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCELのVBAについて 2 2023/07/05 17:17
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Visual Basic(VBA) Sheet「状況」から、分類の年齢別カウント数をSheet「D表」へ転記する下記マクロを作っています 7 2022/12/14 17:57
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 【ExcelVBA】動的にボタン、ボタン名を生成できますか? 7 2022/04/08 12:54
- Visual Basic(VBA) Excel ファイルを指定し、指定されたファイル内にシートを統合するVBA 8 2023/07/10 10:09
- Visual Basic(VBA) VBA active sheetをPDF化して指定フォルダに保存 1 2022/07/07 11:27
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Excel(エクセル) 【マクロ】マクロが保存されているエクセルとは、別のエクセルブックの全シートの非表示列を再表示したい 1 2022/12/24 20:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELで複数のシートを一度に「...
-
特定のシートのみ再計算させな...
-
エクセルで複数のシートに画像...
-
エクセルの2つのシートを並び...
-
エクセルでブック内の倍率がバ...
-
ワークシートそのものの色を変...
-
エクセル、特定のシートにパス...
-
特定の複数のシートに同じ処理...
-
エクセルで、シートの名前を変...
-
ハイパーリンクでジャンプした...
-
【ExcelVBA】マクロの入ったシ...
-
Wordで差し込み印刷時に表示す...
-
エクセルのシー名を二段表示に...
-
エクセルのシート連番の振り直し
-
EXCELの「シートの見出し」のフ...
-
Accessのテーブルを既存のExcel...
-
【Excel VBA】データ貼り付け先...
-
ActiveSheet.Protect UserInter...
-
エクセルでリンク貼り付けした...
-
エクセルで誤ってF11キーを押す...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELで複数のシートを一度に「...
-
エクセルで複数のシートに画像...
-
エクセルでブック内の倍率がバ...
-
特定のシートのみ再計算させな...
-
【ExcelVBA】マクロの入ったシ...
-
ワークシートそのものの色を変...
-
エクセルの2つのシートを並び...
-
EXCELの図形(テキストボックス)...
-
ハイパーリンクでジャンプした...
-
Wordで差し込み印刷時に表示す...
-
エクセルで、シートの名前を変...
-
エクセル、特定のシートにパス...
-
エクセルのシー名を二段表示に...
-
Accessのテーブルを既存のExcel...
-
確定申告用の医療費集計フォー...
-
エクセルのシート連番の振り直し
-
【Excel】エクセルの1ファイル...
-
エクセルの複数シートでのリン...
-
【Excel VBA】データ貼り付け先...
-
エクセルでリンク貼り付けした...
おすすめ情報