No.2ベストアンサー
- 回答日時:
こんばんは。
やりたい方法と違いますが、こんな方法は同でしょうか?
現状のシートにメインシートを追加し、メインシートをクリックすると
そのシートに関連したシートのみ表示します。
(「売上げ」をクリックすると「売上げ1月」「売上げ2月」…を表示)
※メインシートと表示シートの関連は、"売上げ"がシート名に含まれるか否かで表示/非表示を識別します。
(ついでに、シート名に色付けもしています。)
「売上げ1月」「支出1月」「人件費1月」……と12ヶ月分のシート36枚のブックに「売上げ」「支出」「人件費」のシートを追加します。
「ツール」-「マクロ」-「Visual Basic Editor」を選択し、
「売上げ」、「支出」、「人件費」の各シートのマクロとして
Private Sub Worksheet_Activate()
Call ActiveSheet(Me.Name)
End Sub
を記入します。
Visual Basic Editor の「挿入」-「標準モジュール」を選択します。
Module1が追加されるので、Module1に以下を記入します。
Sub ActiveSheet(ByVal sheetName As String)
Dim st As Worksheet
For Each st In ActiveWorkbook.Sheets
If st.Name = "売上げ" Or _
st.Name = "支出" Or _
st.Name = "人件費" Then
st.Visible = True
Else
If InStr(st.Name, sheetName) >= 1 Then
'sheetName を含むWorksheetを表示する
st.Visible = True
st.Tab.ColorIndex = 38 '色付け
Else
'上記以外は非表示
st.Visible = False
End If
End If
Next
End Sub
ご回答ありがとうございます。
上記を試してみたところ、とても便利ですね。
上記の内容を参考に表作りを進めていきたいです。
質問なのですが、メインシート(表示シートも12ヶ月分)を一つ増やす場合、Module1に加えるコードを教えてほしいです。
================================
If st.Name = "売上げ" Or _
st.Name = "支出" Or _
st.Name = "人件費" Then
st.Visible = True
================================
に対して、
================================
If st.Name = "売上げ" Or _
st.Name = "支出" Or _
st.Name = "新規メインシート" Or _
st.Name = "人件費" Then
st.Visible = True
================================
でよろしいのでしょうか?
お手数ですが、お時間がある時にでもご回答頂けたらと思います。
今回はありがとうございました。
No.3
- 回答日時:
#No2です。
質問の回答です。
ご指摘の通りで問題ないです。
メインシートと表示シートは、メインシートのシート名を
含んでいる事で関連付けしています。
================================
If st.Name = "売上げ" Or _
st.Name = "支出" Or _
st.Name = "新規メインシート" Or _
st.Name = "人件費" Then
st.Visible = True
================================
"新規メインシート"のマクロ(Worksheet_Activateイベント)記述もお忘れなく。
No.1
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Aフォルダにあるエクセルの表をBフォルダへ映したい【表題じだけする】 2 2023/08/24 06:41
- Excel(エクセル) エクセルのフィルターを複数シートに連動させたいです。 エクセルファイルに15シートあります。 そのう 2 2022/05/01 21:47
- Excel(エクセル) 何方か知恵をください… 下記のシート1にシート2のDATAを表示させたいです。 (シート1の2行目の 6 2022/03/28 17:27
- Visual Basic(VBA) Excel VBAの書き方 1 2022/03/28 12:09
- Excel(エクセル) ②Excel 簡単にシートコピーしたら前日の残高と日付を変更させたい→マクロの記録でエラーが出ます 8 2022/07/16 20:40
- Excel(エクセル) エクセルで割り振りをする方法 7 2022/08/02 14:02
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) ワードのマクロについて教えてください。 1 2023/03/11 13:50
- Excel(エクセル) エクセル関数について 2 2022/04/13 18:25
- Excel(エクセル) EXCEL マクロで 同じフォルダ内の複数ファイルの複数行全体を選択して1つのファイルに集約 4 2022/09/27 18:41
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルで多数のシートをまとめる方法
Excel(エクセル)
-
エクセル シートのグループ化 編集のグループ化 ではなく 下部のタグの見栄えをグループ化 できないか
Access(アクセス)
-
複数のエクセルブックをひとつのブックにまとめる方法
Visual Basic(VBA)
-
-
4
エクセルで複数のシートを別ファイルに分けたい
Excel(エクセル)
-
5
エクセルシートのタブの階層化表示
Excel(エクセル)
-
6
エクセルのシー名を二段表示にできないか
その他(コンピューター・テクノロジー)
-
7
「アイテムは収集されました」と表示させない方法
Excel(エクセル)
-
8
エクセルファイルを開く時、常に同じシートから開くようにするには?
Windows Vista・XP
-
9
E列のセルに数値が入れば(空白でなければ)B列の同じ行のセルに色がつく
その他(Microsoft Office)
-
10
EXCELで2つの数値のうち大きい方を採択する数式
Excel(エクセル)
-
11
貼り付けで複数セルに貼り付けたい
Excel(エクセル)
-
12
エクセルのフィルターを複数シートに連動させたいです。 エクセルファイルに15シートあります。 そのう
Excel(エクセル)
-
13
Excel、同じフォルダ内のExcelファイルの特定シートのみを1つのファイルに集約したい
Excel(エクセル)
-
14
自分の部署・担当を言うとき、どういう言い方が正しいでしょうか?? 会社のときは、弊社といいますが、部
その他(ビジネス・キャリア)
-
15
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
16
EXCELで複数のシートを一度に「シートの保護」することはできますか?
Excel(エクセル)
-
17
EXCELで式からグラフを描くには?
Excel(エクセル)
-
18
excel2003 罫線だけを保護したい
Excel(エクセル)
-
19
エクセルのセル内の余白の設定って出来るのでしょうか?
Excel(エクセル)
-
20
下向き三角のボタンの名前は?
その他(OS)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで複数のシートをフォ...
-
括弧があるとHYPERLINKで飛べな...
-
原付 レッツシート開け方
-
建築模型、カーブの作り方
-
シートベルトの固定解除
-
エクセルVBA 4行飛ばしで転記す...
-
ホワイトボードの復活
-
【ワッペン】Tシャツにワッペン...
-
車のシートでおもらし
-
水の染み込んだバイクのシート...
-
Excel複数シートから日付と文字...
-
リアシート無しで運転してたら...
-
シート屋探してます
-
ポップコーンの捨て方
-
DS Liteの保護シートのはがし方
-
VBA エラー回避を教えてくださ...
-
Excelで、別シートの表のステー...
-
IHクッキングヒーターの操作パ...
-
ドライブレコーダーのSDカード...
-
EXCEL VBA 複数のシートに同じ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで複数のシートをフォ...
-
括弧があるとHYPERLINKで飛べな...
-
建築模型、カーブの作り方
-
原付 レッツシート開け方
-
エクセルVBA 4行飛ばしで転記す...
-
Excel複数シートから日付と文字...
-
Excel VBA シート名変更時、重...
-
フォルツァ バッテリーを外して...
-
水の染み込んだバイクのシート...
-
BRIDEのシート張り替えってでき...
-
車のシートでおもらし
-
ノートe12ガソリン
-
リアシート無しで運転してたら...
-
ポップコーンの捨て方
-
車のシートがへたってきました...
-
シートベルトの固定解除
-
バイクのシートを取り替えても...
-
台車の下に敷くシートについて
-
マグネットシートって・・・
-
IHクッキングヒーターの操作パ...
おすすめ情報