エクセルの学校：全文検索：Hyper Estraier：（素人）

Results of 1 - 1 of about 159 for （素人） (0.000 sec.)

[[20200729141535]]: #score: 10177; @digest: 2e3ca2cf100c3ce3bfec4574ac5636ee; @id: 84632; @mdate: 2020-07-29T05:48:04Z; @size: 1885; @type: text/plain; #keywords: 各マ (7635), 問キ (7323), 問削 (7323), 紙シ (5349), ・異 (4966), 職・ (4813), 者別 (4399), ロb (3798), 者シ (3641), 加削 (3110), 表紙 (2805), 当者 (2790), 一性 (2493), 担当 (2264), 異動 (1613), 理用 (1569), タベ (1281), 退職 (1176), 決出 (1088), ベー (892), ロボ (730), 素人 (669), sh (601), シー (531), 統一 (513), マク (509), 数分 (489), 人） (485), ート (460), クロ (458), ンセ (453), 別シ (422); 『マクロで担当者タブの追加削除をしたい』（素人） あるエクセルファイルに表紙シートとデータベース貼りつけ用シートと担当者別シートを作成してあります。担当者別シートは人数分あります。また、表紙シートには複数のマクロボタンが設定してあり、データベースシートから読み込み、担当者別に処理を行うようになっています。（データベースは月ごとにあるシステムより抜き出してます）各マクロは、あらかじめ作成してある担当者シートを読み込む仕様となっているので、担当者が退職・異動した場合に該当シートの削除や追加、各マクロの修正が必要となってしまいます。マクロ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 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/202007/20200729141535.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ