人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

EXCELのマクロについて質問です。
ひとつのブックに
「イメージ1」「項目1」
「イメージ2」「項目2」
「イメージ3」「項目3」
の6シートが存在し、

「項目1」「項目2」「項目3」にのみ
共通の処理を行いたい場合
どのようなマクロを記述すれば良いでしょうか。

●質問者: ko-c9999
●カテゴリ:コンピュータ
✍キーワード:Excel にの ひとつ イメージ マクロ
○ 状態 :終了
└ 回答数 : 4/4件

▽最新の回答へ

1 ● きゃづみぃ
●10ポイント

マクロはシートごとに 記述できますので、それぞれのシートに マクロを記述すればいいでしょう。

http://www.tsucchy.com/Excel/index_e.html

http://www.sanynet.ne.jp/~awa/excelvba/kouza.html

◎質問者からの返答

回答ありがとうございます。

シート毎の記述は避けたいのです。


2 ● ota2244
●30ポイント

http://www.hatena.ne.jp/

URLはダミーです。

このようにすれば大丈夫です。

Dim objSheet As Worksheet

'シートを検索

For Each objSheet In Worksheets

Select Case objSheet.Name

Case "項目1", "項目2", "項目3"

'ここに共通処理を記述します

Case Else

End Select

Next

◎質問者からの返答

回答ありがとうございます。

この回答は、希望にかなり近いです。


3 ● gong1971
●25ポイント

行いたい共通の処理はどのようなものでしょうか?

それによって回答が変わってきますので、

具体的な処理の内容があった方が、

より詳細な回答が付くかと思いますよ。


例えば、同じフォーマットで作成された表で、

罫線などの書式を一度に変えたいという事であれば、

作業グループという機能を使用します。使用方法は以下の通り。


  1. シート「項目1」を選択します。
  2. [Ctrl]キーを押しながらシート「項目2」を選択します。
  3. [Ctrl]キーを押しながらシート「項目3」を選択します。
  4. 罫線などの書式を設定します。
  5. 作業グループ状態を解除する為、シート「イメージ1」を選択します。
  6. 「項目1」「項目2」「項目3」の各シートに 4. で行った設定が反映されています。

なお、作業グループを使用する際の注意として、

作業グループのままにしてしまうと1つのシートのみに行おうとした

変更が複数のシートに適用されてしまいます。作業グループでの操作が

終わったら必ず別のシートを選択して作業グループ状態を解除する

ようにしてください。

http://excimer.hp.infoseek.co.jp/HP-Excel/e-SelectS.htm

◎質問者からの返答

回答ありがとうございます。

希望とは違うのですが、面白い手法ですね。


4 ● villain
●25ポイント

処理するシートを先頭にまとめて並べてFor?To?Nextループで

回せばいいんじゃないでしょうか。


項目1 項目2 項目3 イメージ1 イメージ2 イメージ3


' 例
' 最初のシートから3つめのシートまでシート名をA1セルに
' 書き込む
Sub Repeat()
 For I = 1 To 3
 Sheets(I).Range("A1").Value = Sheets(I).Name
 Next
End Sub


先頭にまとめられない場合は1つ飛びにしてStepでとばすとか...。


http://q.hatena.ne.jp/answer

◎質問者からの返答

回答ありがとうございます。

「1つ飛びにしてStepでとばす」やり方なら

希望にかなり近いです。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ