• ベストアンサー

エクセル　VBA シート見出し色の参照について

エクセルVBAでブック内のシート見出し色が赤のものだけ全てを 印刷し、なければ、”印刷対象はありません”とメッセージを1回だけ出すマクロを作成したいのですが、どのようなモジュールを作成すればいいかわかりません。 教えていただけますでしょうか。

質問者が選んだベストアンサー

  • ベストアンサー
  • hana-hana3
  • ベストアンサー率31% (4940/15541)
回答No.1

Sub sample() Dim Ws As Worksheet Dim flg As Boolean flg = False For Each Ws In Worksheets If Ws.Tab.ColorIndex = 3 Then Ws.PrintOut flg = True End If Next If flg = False Then MsgBox "印刷対象はありませんでした。" End Sub

yyx121
質問者

お礼

早々のご回答ありがとうございました。 hana-hana3さんのようにＦor　Each・・・Next構文で 作成していたのですが、メッセージを1回だけ出すという変数構築がわかりません でした。 大変助かりました。ありがとうございました。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • シート見出しの色

    全シートを対象として　A1セルに整数が入力されたらそのシートのシート見出しが赤になり。A1セルに文字が入力されたらそのシートのシート見出しが黄色になるマクロの記述を教えてください。よろしくお願いします。

  • 【Excel VBA】シート見出しの色を変更する

    Excel2003を使用しています。 シート数が10数枚のBookが複数あり、これらのBookで、シートのデータが変更されたら、シート見出しに色を付けるマクロを作りたく、とりあえず、マクロの記録をとってみました。 マクロの記録で、シート見出しの色を変更するコードや複数のシートを選択するコードはわかりましたが、実際にしたいことは、シート名が4桁の数値のシートにだけ、このマクロが実行されるようにしたいのです。このようなことは可能でしょうか？可能であれば、どのようにコードを記述すればいいでしょうか？ よろしくお願いします。

  • エクセルＶＢＡについて

    今、エクセルＶＢＡでマクロの作成を行っています マクロの中で、作業用に別なエクセルとシートを作成したのですが マクロの最後でその作業用のエクセルとシートを削除する用にしました。 その際に、エクセルがメッセージボックスが開き 『このエクセルブックを閉じますか』や『このシートを削除してよろしいですか』などと聞いてきます。 このボックスを出さないように強制的に消すことは出来ないのでしょうか？ 出来るのであれば、やり方を教えてください。

  • Excelのシート見出しについて

    Excel2010を使用しています。 シートを選んでいるときのみ、シートの見出しの色を変える事が出来ないでしょうか？ 例えば10数枚シートを作成した場合に、今どのシートで作業をしているかとういのが、標準では作業中のシート見出しの色が白色で、その他は薄い灰色と少し分かりづらいためシートを選択している見出しのみが分かりやすい色に変わるように設定ができないのかと思いまして。例えば赤色など。 ちょっと分かりづらい説明ですがよろしくお願いします。

  • 条件により、シート見出しの色を変更したい

    エクセル2007を使用してします。 ある報告書の全シートを対象として　A1セルにｋさんの名前が入力されたらそのシートのシート見出しが緑になり、A2セルにｍさんの名前が入力されたらそのシートのシート見出しが青になり、なおかつ、ｋさんとｍさん２人の名前が入力されたらそのシート見出しの色が黄色に自動でなるマクロの記述を教えてください。よろしくお願いします。

  • エクセルのシート見出しに色をつけるには。

    エクセルを開いた時に下方にある「シート見出し」(Sheeet1とか表示されているところです。)のシートごとに色をつけたいのですが、できますか？ 方法があれば、ぜひ教えてください。

  • 条件によってシート見出しの色が変わるようにしたい

    条件によってシート見出しの色が変わるようにしたい Excel2003を使用しています。 ある範囲に数値が羅列されており、それらの数値が通常であれば0、 条件によって3か5に変わる数式が入っています。 それに伴い、範囲内に1つでも3か5があれば「シート見出しの色を赤く」 全て0になれば「シート見出しの色を通常に戻す」という事をできればと思うのですが そういう事は可能でしょうか？ もし可能であれば、どなたかやり方をご教授いただけますと大変助かります。 よろしくお願いいたします。

  • エクセル　マクロ一覧

    開いているブックにあるマクロの一覧を作れないものでしょうか？ モジュール、シート、ユーザーフォーム内にあるマクロすべてです。 VBAのチェックシートとして使いたいのですが エクセルバージョンは2003です

  • シート見出しの色を自動で変えるには

    エクセル2003を使用してます。 B2のセルに下記のような特定の文字が入力された場合、自動的にシート見出しの色を変えるようにしたいです。 （例） "(1)" が入力された場合、赤 "(2)" が入力された場合、青 "(3)" が入力された場合、黄 最大で(10)までです。 といった具合です。 VBAを使うことになるのでしょうか？ VBAだとしたら、色のコードみたいなものは、下記ページの１、５３、５２、といった数字がそれに当たるのでしょうか？ http://www.relief.jp/itnote/xls_colorindex.php 恐れ入りますが、宜しくお願い致します。

  • 特定のシート見出しの色のシートを作業グループにする方法を教えてください

    特定のシート見出しの色のシートを作業グループにする方法を教えてください。 VBA初心者です。 シート見出しの色でシートを分類しています。 特定のシート見出しの色のシートを作業グループにして、削除や印刷をしたいのですが、 できるのでしょうか。 シートのタイトルはそれぞればらばらなので、シート名ではできません。 よろしくご教示ください。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する