• ベストアンサー

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

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

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

  • ベストアンサー
  • kybo
  • ベストアンサー率53% (349/647)
回答No.1

シートの見出しの色の変更はVBAでしか出来ません。 A1:A10の範囲に計算式が入力されていて、その計算結果が3又は5の時、赤色にする場合、 シートの見出しで右クリック→コード表示で以下を貼り付け Private Sub Worksheet_Calculate() If WorksheetFunction.CountIf(Range("A1:A10"), 3) > 0 _ Or WorksheetFunction.CountIf(Range("A1:A10"), 5) > 0 Then ActiveSheet.Tab.Color = 255 Else ActiveSheet.Tab.ColorIndex = -4142 End If End Sub

tomomo20
質問者

お礼

kybo様、ご解答ありがとうございます!返事が遅くなり、申し訳ありません。見事に出来て大変助かりました。ありがとうございます!!

関連するQ&A

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

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

  • Excel2000でのシート見出しの色について

    Excel2000では、シート見出しの色は設定にないのでしょうか Excel2002ではあるみたいなのですが。教えてください

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

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

  • エクセル2007 シート見出し色変更

    エクセル2007のシート見出し色が使用しているシートと未使用シートが判別しづらく困っています。エクセル2003のように明確に判別出来るようにする方法を是非教えて下さい。 一度セッティング変更したらOKの方法を希望します。個別にセットする方法は分かりますが手間がかかります。

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

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

  • 同じシート見出し色のシートのみから数値を取得

    シートが100くらいある経理で使っているエクセルのワークブックで、今月アップデートしたシートを経理部従業員がそれぞれの色でシート見出しに色を付けます。アップデートしなかったシートの見出しは黒に塗ることしています。黒以外の各シートにある仕訳を集計しシステムに入力する前に確認したいのです。

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

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

  • エクセルの条件付書式の色(パターン)の色を変えたい

    エクセルで数式に、条件付書式を入れて セルの色(パターン)を赤くしていたのですが、文字が見えにくいとの事で、 全ての条件付書式のパターンを灰色にしないといけなくなりました。 さまざまな条件がある上に、シートも複数に渡っています。 一気に変更は出来るのでしょうか?

  • シート見出しが青色で、そのシートのセルを集計に

    こんばんは エクセル2010VBAで、シート見出しが青色で、そのシートのセル(L15、L21、L27・・・L45)と(P15、P21、P27・・・P45)の値を集計用紙にB2とC2の列に貼り付けるにはどうしたらよいのでしょうか? 色々な名前でシート見出しが作られており、唯一、目的シートが青色で分別されています。 見出し色指定のコードの作り方が、わかりません。 宜しくお願い致します。

  • excelシート見出し

    excel2007です。機種はDell inspiron1501です。 全てのシートを選び、作業を終え、全てのシート選択を解除つもりでいても、シート見出しの色がグレーで薄い色のため、解除できていないのに気がつくのが遅れ、後の作業で、1シートにのみ入力したいのに、全シート選択のままに入力してしまったことがよくあります。このミスを防ぐため、選択しているシートと、していないシートをはっきりさせるのに、シート見出しの色を濃くしたいのですが、どうすればよいでしょうか?

専門家に質問してみよう