[[20200729141535]]　『マクロで担当者タブの追加削除をしたい』（素人）　ページの最後に飛ぶ

『マクロで担当者タブの追加削除をしたい』（素人）

 あるエクセルファイルに表紙シートとデータベース貼りつけ用シートと担当者別シートを作成してあります。
担当者別シートは人数分あります。
また、表紙シートには複数のマクロボタンが設定してあり、データベースシートから読み込み、担当者別に処理を行うようになっています。
（データベースは月ごとにあるシステムより抜き出してます）
各マクロは、あらかじめ作成してある担当者シートを読み込む仕様となっているので、担当者が退職・異動した場合に
該当シートの削除や追加、各マクロの修正が必要となってしまいます。

マクロAの抜き出しです(はじめだけ)
Dim SH As Variant
For Each SH In Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P")
With Sheets(SH)

マクロBの抜き出しです
Dim SH As Worksheet
For Each SH In Worksheets
Select Case SH.Name
Case "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P"
With SH

マクロはいろいろな人がかかわっているので統一性がないと思いますが。
ここの掲示板を参考に組み合わせて作成しました。

実際にはA～Pは担当者の苗字となっています。
この修正作業が面倒なので、改善して新規に担当者を登録しておくシートを作成して、マクロはそのシートを読み込むといった具合にするにはどうしたらいいでしょうか？
サンプルコードを参考にしたいのですがよろしくお願いします。
なかなか文章で伝えるのは難しいですがよろしくお願いします

＜使用 Excel：Excel2016、使用 OS：Windows7 ＞

すいません。
質問削除できないですかね。
質問キャンセルします。
一部、この内容では解決出来ない所がありました。
また、改めて質問させていただきます。
（素人） 2020/07/29(水) 14:40

    Dim SH As Worksheet
    For Each SH In Worksheets
        Select Case SH.Name
            Case "管理用", "テンプレート" '処理を加えないシート名
            Case Else
                '(処理)
        End Select
    Next SH

よくわかりませんがこんな感じですか
（霞） 2020/07/29(水) 14:48

コメント返信：

[ 一覧(最新更新順) ]

[[20200729141535]] 『マクロで担当者タブの追加削除をしたい』（素人） ページの最後に飛ぶ

[[20200729141535]]　『マクロで担当者タブの追加削除をしたい』（素人）　ページの最後に飛ぶ