エクセル 複数シート まとめる

質問

過去の質問で似たような内容はあったのですが、印象が違ったのでここで改めて質問させていただきます。

複数シートが３０枚程度あります。
例えば、売上表４月…売上表１２月，売り上げ内容４月…売り上げ内容１２月，関連業者１…関連業者１２といった具合です。

これらのシートを全て表示させておくと，選択するために時間がかかり，また，選択すべきシートを間違えて入力する人も多いので，なんとか簡素化したいと考えています。

表紙のシートを作成し，ハイパーリンクを貼ることも考えたのですが，各シートはすでにいろいろ作り込んで完成しており，表紙に戻るハイパーリンクを各シートに貼る共通セルのスペースもない状態です。

例えば，シートの「売り上げ表」を選んだら，売り上げ表４月～１２月までのシートだけを表示させたり，「売り上げ内容」を選んだら，売り上げ内容４月～１２月までのシートだけを表示させたりすることなどは可能でしょうか？

イメージとしては，「売り上げ表」「売り上げ内容」「関連業者」のメインシートの３枚のみが表示されてあり，それらのシートを選択すると，「売り上げ表４月～１２月」が表示されたり，「売り上げ内容４月～１２月」が表示されたりし，他のシート（メインシートと表示されているシート）以外は非表示になっている…といったようなものです。

ご教授いただけると嬉しいです。

回答No.4

kkkkkm · ベストアンサー

No3です。訂正です。
それぞれのシートのコードペインに記載すると、あとあと訂正などがあると同じところを何か所も訂正しないといけなくなり面倒なので、左にあるThisWorkbookをダブルクリックして出たコードペインだけに以下のコードを記載してください。

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Dim mSheet As Worksheet
Dim DefaultSheetName As Variant
Dim i As Long

If Sh.Name = "売り上げ表" Or Sh.Name = "売り上げ内容" Or Sh.Name = "関連業者" Then
DefaultSheetName = Array("売り上げ表", "売り上げ内容", "関連業者")
For Each mSheet In ThisWorkbook.Worksheets
If mSheet.Name Like Sh.Name & "*" Then
Sheets(mSheet.Name).Visible = True
Else
Sheets(mSheet.Name).Visible = False
End If
Next mSheet
For i = 0 To UBound(DefaultSheetName)
Sheets(DefaultSheetName(i)).Visible = True
Next
End If

End Sub

お礼

素晴らしいです！！おかげさまで，自分のやってみたいことができました。とっても助かりました。お世話になりました！！

回答No.3

kkkkkm

「売り上げ表」「売り上げ内容」「関連業者」の各シートのコードペインに以下のコードを記載してください。

シートタブを右クリックしてコードの表示があればそれを選択して出た画面
こちらのような画面になりますので(画像にModule1がありますがなくても大丈夫です)
http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_040_02.html
(画像はModule1を選択していますが売上表などを選択してください)

右クリックにない場合、ALT+F11を押すと同じ画面になりますので
左側のシート名の所をダブルクリックして出たコードペインに記載してください。

Private Sub Worksheet_Activate()

Dim mSheet As Worksheet
Dim DefaultSheetName As Variant
Dim i As Long

DefaultSheetName = Array("売り上げ表", "売り上げ内容", "関連業者")

For Each mSheet In ThisWorkbook.Worksheets
If mSheet.Name Like ActiveSheet.Name & "*" Then
Sheets(mSheet.Name).Visible = True
Else
Sheets(mSheet.Name).Visible = False
End If
Next mSheet
For i = 0 To UBound(DefaultSheetName)
Sheets(DefaultSheetName(i)).Visible = True
Next

End Sub

回答No.2

kichikuma

既出の回答の通りなんですが、マクロではVBAと言うプログラミング言語を扱います。

プログラミングするためには、物事を正しく捉える必要があると思います。

質問の中に、
『複数シートが３０枚程度あります。』
と書いてあったので、プログラミングには向かないと思いました。

これだと、複数シートと言うグループの単位が枚であって、そのグループが30ある。

と言う意味なので、正しく捉えられていないように思いました。

『30枚程度のシートがある。』
で、良いと思うんですけどね。
そもそも他の意味ならばわかりません。

と言う感じで否定的な意見を書けば、天の邪鬼な人がまんま書いてくれると思います。

書いてくれそうになければ、情報を具体的に正確に簡潔に説明すると、回答してもらいやすくなります。

補足

ご指摘の通りです。「３０枚程度のシートがある」でした。適切な表現ではなく申し訳ありませんでした。

回答No.1

yumi0215

マクロを組んでみてはいかがでしょう。
ご希望の表示方法ができますよ。

お礼

マクロを勉強中ですが，なかなか自分でオリジナルのプログラムを組むまでに至っていないので，全て甘えて申し訳ないのですがコードを教えていただけたら幸いです。