- ベストアンサー
条件により、シート見出しの色を変更したい
エクセル2007を使用してします。 ある報告書の全シートを対象として A1セルにｋさんの名前が入力されたらそのシートのシート見出しが緑になり、A2セルにｍさんの名前が入力されたらそのシートのシート見出しが青になり、なおかつ、ｋさんとｍさん２人の名前が入力されたらそのシート見出しの色が黄色に自動でなるマクロの記述を教えてください。よろしくお願いします。
- 25s2000
- お礼率100% (2/2)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
イベント駆動のマクロを、該当シートに記載しましょう。 「excel セル入力 イベント」で検索すれば詳細が見つかります。 Private Sub Worksheet_Change(ByVal Target As Range) a1 = Range("a1").Value a2 = Range("a2").Value f = 0 If a1 = "k" Then f = f or 1 If a2 = "m" Then f = f or 2 c = Switch(f = 1, 4, f = 2, 5, f = 3, 6, True, xlNone) ActiveSheet.Tab.ColorIndex = c End Sub 変数 c の処理は、少々かっこつけて書きました。 「ビット演算」で検索すれば詳細が見つかります。 個人的には「ビット演算 ワンパク君」が読みやすくてオススメです。
関連するQ&A
- セルの値によって、シート見出しの色を変更したい
エクセル2007を使用してします。以前に、 「ある報告書の全シートを対象として A1セルにｋさんの名前が入力されたらそのシートのシート見出しが緑になり、A2セルにｍさんの名前が入力されたらそのシートのシート見出しが青になり、なおかつ、ｋさんとｍさん２人の名前が入力されたらそのシート見出しの色が黄色に自動でなるマクロの記述を教えてください」と質問し、 Private Sub Worksheet_Change(ByVal Target As Range) a1 = Range("a1").Value a2 = Range("a2").Value f = 0 If a1 = "k" Then f = f or 1 If a2 = "m" Then f = f or 2 c = Switch(f = 1, 4, f = 2, 5, f = 3, 6, True, xlNone) ActiveSheet.Tab.ColorIndex = c End Sub 上記のように御回答を頂きましたが、今後、入力する名前が変更する事を考えて、A1・A2セル共に、 何か文字が入力されたら（もしくは空白でなければ)と条件を変えたいと思い、色々試してみたのですが、 上手くいきませんでした。 何方か、条件に合うコードの記述を教えてください。宜しくお願いします。
- ベストアンサー
- Visual Basic
- シート見出しの色
全シートを対象として A1セルに整数が入力されたらそのシートのシート見出しが赤になり。A1セルに文字が入力されたらそのシートのシート見出しが黄色になるマクロの記述を教えてください。よろしくお願いします。
- ベストアンサー
- Visual Basic
- 【Excel VBA】シート見出しの色を変更する
Excel2003を使用しています。 シート数が10数枚のBookが複数あり、これらのBookで、シートのデータが変更されたら、シート見出しに色を付けるマクロを作りたく、とりあえず、マクロの記録をとってみました。 マクロの記録で、シート見出しの色を変更するコードや複数のシートを選択するコードはわかりましたが、実際にしたいことは、シート名が4桁の数値のシートにだけ、このマクロが実行されるようにしたいのです。このようなことは可能でしょうか？可能であれば、どのようにコードを記述すればいいでしょうか？ よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- シート見出しの色を自動で変えるには
エクセル2003を使用してます。 B2のセルに下記のような特定の文字が入力された場合、自動的にシート見出しの色を変えるようにしたいです。 （例） "(1)" が入力された場合、赤 "(2)" が入力された場合、青 "(3)" が入力された場合、黄 最大で(10)までです。 といった具合です。 VBAを使うことになるのでしょうか？ VBAだとしたら、色のコードみたいなものは、下記ページの１、５３、５２、といった数字がそれに当たるのでしょうか？ http://www.relief.jp/itnote/xls_colorindex.php 恐れ入りますが、宜しくお願い致します。
- ベストアンサー
- オフィス系ソフト
- シート見出しが青色で、そのシートのセルを集計に
こんばんは エクセル2010VBAで、シート見出しが青色で、そのシートのセル（L15、L21、L27・・・L45）と（P15、P21、P27・・・P45）の値を集計用紙にB2とC2の列に貼り付けるにはどうしたらよいのでしょうか？ 色々な名前でシート見出しが作られており、唯一、目的シートが青色で分別されています。 見出し色指定のコードの作り方が、わかりません。 宜しくお願い致します。
- ベストアンサー
- Visual Basic
- エクセルの入力済みシートの見出しの色を自動で変更する
現在、毎日の売上集計表を作っています。1～31枚のシートがあります。データーを入力したシートの見出しの色を自動で色を変えることは可能でしょうか?未入力シートと入力済みシートの区別を分かりやすくしたいのですが…（データーは毎日、営業終了後に入力します） 例えば、データー入力後に保存するとシートの見出しの色が変わるとか…これはマクロ等を使用しないと無理でしょうか、あまり詳しくないのですが。 バージョンはエクセル2003です。
- 締切済み
- Windows系OS
- エクセルで見出しの色の変更を個別にするマクロを教えてください
５０名の顧客の名前の見出しがならんでいます。 データを入力したらボタンを押せばその方の 見出しが変わるマクロ入りボタンを作りたいのです。 一人分作りマクロ入りボタンをコピーしました。 しかし、そのボタンを押したら、コピー元の方の 見出しの色が変わりました。ボタンを押したシートの 見出しが変わるマクロはどのようにすればいいのでしょうか？
- ベストアンサー
- オフィス系ソフト
- ワードの見出しの設定がうまくいきません 見出し１を
ワードの見出しの設定がうまくいきません 見出し１を緑 見出し２を青 見出し３を黄色 にしたいのですが、画像のようになってしまいます。 どうしたらいいでしょうか？ windows10 ワード2019です
- ベストアンサー
- Word（ワード）
- 【VBA】複数条件下での色付
お願いします。 （XP・エクセル2003） ※たとえばＡ列に『あ』『い』『う』『え』『お』の５種の文字のいづれかが１行目から１００行目まで並んでいるとします。（空白セルはなく必ずいずれかの文字が入っている） (1)『あ』の文字のときにはそのセルの色を赤色、『い』ならば青、『う』ならば黄、『え』ならばピンク、『お』ならば茶、と色をかえるマクロを作りたいのですが、方法がわかりません。 (2)同じく、※の条件下で『あ』もしくは『い』のときにはセルの色をどちらも緑にかえる方法を条件付き書式でなく、マクロで作る必要があるのですが、方法がわかりません。 教えてください。 よろしくお願いします。
- ベストアンサー
- その他（ビジネス・キャリア）
- エクセルの条件付き書式について
A1セルに「100」が入力された場合、B1セルの色を赤に、同様にして200:青、300:黄、400：緑、500:赤、600:青、700:黄、800：緑という風にB1セルの色を変えたいと思います。 条件付き書式は３つまでしかないのですが、色のパターンは４種類なので、元の書式と合わせると４パターンです。 条件付書式で、A1セルの値が２００又は６００ならB1セルの色を青にするにはどうすればよろしいでしょうか。 つたない文章でわかりにくいかと思いますが、よろしくご回答ください。
- ベストアンサー
- オフィス系ソフト
お礼
無事解決できました。 昨日、お礼をしようとした所、何故かエラーになってしまい できませんでした。 悩みが解決できてスッキリしました。 どうもありがとうございました。