エクセルの学校：全文検索：Hyper Estraier：マクロ

Results of 1 - 1 of about 27302 for マクロ (0.013 sec.)

[[20041213132219]]: #score: 2167; @digest: 29d041b46cb32773611d05e4e3d40dde; @id: 10788; @mdate: 2004-12-14T01:41:00Z; @size: 1923; @type: text/plain; #keywords: yurika (6548), ト近 (6058), （共 (5950), 独シ (5684), ロ2 (5439), 回大 (4187), 各ワ (4125), ロ1 (3912), 共通 (3621), foreach (3257), 限ル (3256), プ・ (2515), 無限 (2261), 全シ (2255), クグ (2041), ト選 (1615), ） en (1515), 通の (1416), ト一 (1079), 野鮎 (1047), activewindow (1025), コッ (1016), 川野 (999), 鮎太 (985), マク (955), ペコ (880), クロ (859), ロ） (824), シー (820), 単独 (754), 名1 (742), ート (691); 『マクロのシート選択について』（yurika）
全シートに同じマクロを実行させるのに、普段 Sub マクロ1() Sheets("シート名1").Select （共通のマクロ） End Sub Sub マクロ2() Sheets("シート名2").Select （共通のマクロ） End Sub ・・・と、延々シート名を変更して作っているのですが、 50シート近くあるので、新しいマクロを作るとき、毎回大変です（シート名の入力が）。上記のような方法を解消できる方法（全シートや、シート範囲の選択などをして実行できる方法など）はあるのでしょうか? 初心者のため、よくわかりません。よろしくお願いします。 Excel2000、WindowsXP ---- 試してないので違ったらm(._.)m ペコッ Sub Test() For Each Sh In WorkSheets （共通のマクロ） Next Sh End Sub （川野鮎太郎） ---- Sub マクロ1() Dim Ws As Worksheet For Each Ws In WorkSheets Ws.Select （共通のマクロ） Next Ws End Sub 全シートの場合は上記のように変数とForEachステートメントでやるのが一般的。「WorkSheetsコレクションの各ワークシート一つ一つに対して Ws.Select以下の命令を実行しなさい」ってな具合に解釈します。 Sub マクロ2() Dim Ws As Worksheet For Each Ws In ActiveWindow.SelectedSheets Ws.Activate （共通のマクロ） Next Ws End Sub 選択されたシートに関しては上記のようになります。 ActiveWindowでやってますが、Windowsオブジェクトから取得するのがポイントのようです。シートをActivateではなくて、Selectとすると、シートのワークグループは解除されます。 マクロ2は単独シート選択でも利用できるので、この二つあれば対応できるでしょう。（みやほりん） ---- 川野鮎太郎さん、みやほりんさんありがとうございました。川野鮎太郎さんの方は、1つのシートの無限ループになってしまいました…。みやほりんさんの方は、うまくいきました。ありがとうございます! （yurika） ---- ぶは!無限ループ・・・(T▽T)アハハ! だって・・・共通のマクロの中身がわかんないんだもの・・・_/￣|○ il||li 共通のマクロでSh. とシートを指定すれば良いはずですけどね。(^_^A; （川野鮎太郎） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200412/20041213132219.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ