- ベストアンサー
シート見出しの色を自動で変えるには
mar00の回答
シート名のところで右クリック → コードの表示を選択 → VBE画面が出てきますので下記のコードを貼り付けて下さい。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$B$2" Then Exit Sub If Target = "" Then ActiveSheet.Tab.ColorIndex = xlNone If Target = "(1)" Then ActiveSheet.Tab.ColorIndex = 35 If Target = "(2)" Then ActiveSheet.Tab.ColorIndex = 36 If Target = "(3)" Then ActiveSheet.Tab.ColorIndex = 37 If Target = "(4)" Then ActiveSheet.Tab.ColorIndex = 38 If Target = "(5)" Then ActiveSheet.Tab.ColorIndex = 39 If Target = "(6)" Then ActiveSheet.Tab.ColorIndex = 40 If Target = "(7)" Then ActiveSheet.Tab.ColorIndex = 41 If Target = "(8)" Then ActiveSheet.Tab.ColorIndex = 42 If Target = "(9)" Then ActiveSheet.Tab.ColorIndex = 43 If Target = "(10)" Then ActiveSheet.Tab.ColorIndex = 44 End Sub B2が空白の時は色をつけないようにしています。 色の番号は好みの色に修正してください。 B2に入力すると見出しの色が変わります。 (1)～(10)は丸の中に数字に修正してください。 >色のコードみたいなものは、下記ページの１、５３、５２、といった数字がそれに当たるのでしょうか？ その通りです。
関連するQ&A
- シート見出しの色
全シートを対象として A1セルに整数が入力されたらそのシートのシート見出しが赤になり。A1セルに文字が入力されたらそのシートのシート見出しが黄色になるマクロの記述を教えてください。よろしくお願いします。
- ベストアンサー
- Visual Basic
- 条件により、シート見出しの色を変更したい
エクセル2007を使用してします。 ある報告書の全シートを対象として A1セルにｋさんの名前が入力されたらそのシートのシート見出しが緑になり、A2セルにｍさんの名前が入力されたらそのシートのシート見出しが青になり、なおかつ、ｋさんとｍさん２人の名前が入力されたらそのシート見出しの色が黄色に自動でなるマクロの記述を教えてください。よろしくお願いします。
- ベストアンサー
- Visual Basic
- シート見出しが青色で、そのシートのセルを集計に
こんばんは エクセル2010VBAで、シート見出しが青色で、そのシートのセル（L15、L21、L27・・・L45）と（P15、P21、P27・・・P45）の値を集計用紙にB2とC2の列に貼り付けるにはどうしたらよいのでしょうか？ 色々な名前でシート見出しが作られており、唯一、目的シートが青色で分別されています。 見出し色指定のコードの作り方が、わかりません。 宜しくお願い致します。
- ベストアンサー
- Visual Basic
- ワードの見出しの設定がうまくいきません 見出し１を
ワードの見出しの設定がうまくいきません 見出し１を緑 見出し２を青 見出し３を黄色 にしたいのですが、画像のようになってしまいます。 どうしたらいいでしょうか？ windows10 ワード2019です
- ベストアンサー
- Word（ワード）
- セルの値によって、シート見出しの色を変更したい
エクセル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
- VBAで一番後尾のシート見出しの色を変更したい
WIN XP エクセル2003 BOOK内の一番後尾のシート見出しの色を変更したいのですが 下記コードでは見出しの色が変わりません。 何処が間違っているのかわかりません。ご教授お願い致します。 Sub シート見出し色変更() Dim N As Integer Dim sh As Worksheet N = ActiveWorkbook.Worksheets.Count Worksheets(N).Activate Set sh = ActiveSheet sh.Tab.ColorIndex = 3 Worksheets(1).Select End Sub
- ベストアンサー
- オフィス系ソフト
- エクセル VBA シート見出し色の参照について
エクセルVBAでブック内のシート見出し色が赤のものだけ全てを 印刷し、なければ、”印刷対象はありません”とメッセージを1回だけ出すマクロを作成したいのですが、どのようなモジュールを作成すればいいかわかりません。 教えていただけますでしょうか。
- ベストアンサー
- オフィス系ソフト
- Excelのシート見出しについて
Excel2010を使用しています。 シートを選んでいるときのみ、シートの見出しの色を変える事が出来ないでしょうか？ 例えば10数枚シートを作成した場合に、今どのシートで作業をしているかとういのが、標準では作業中のシート見出しの色が白色で、その他は薄い灰色と少し分かりづらいためシートを選択している見出しのみが分かりやすい色に変わるように設定ができないのかと思いまして。例えば赤色など。 ちょっと分かりづらい説明ですがよろしくお願いします。
- ベストアンサー
- その他MS Office製品
- VBAでドロップダウンリストを連動させたものを作るには？
VBAでドロップダウンリストを連動させたものを作ることが出来ますでしょうか？ 今まで入力規則の設定をつかって見ていましたがどうやら実現不可能と思われることが分かってきました。 VBAでの連動したリストの代替案を考えていますが・・・ いい方法は無いでしょうか？ このページのようなことがやりたいと思っています。 http://www.relief.jp/itnote/archives/000822.php
- ベストアンサー
- Visual Basic
- エクセル条件付き書式（空白でない場合に色を付ける、偶数行・奇数行毎に色を変える）
エクセルの条件付き書式の設定で、 (1)セルが空白でない場合に色を付ける、 (2)偶数行・奇数行毎に色を変える という２つのことを同時に行う方法があれば 教えていただけないでしょうか？ （※空白セルは、色なしに設定） (1)=A1<>"" → 赤 (2)=MOD(ROW(),2)=0 → 青 =MOD(ROW(),2)=1 → 黄 上記の設定の場合、空白セルが青・黄になります。 入力すると赤に変わります。 こちらが行いたいことは、 【空白セルは「色なし」で、入力すると、 奇数行は黄色、偶数行は青になることです。】 例 ABC 1* ←A1は黄 2 * ←B2は青 3 A1とB2以外のセルは色なしとなるようにしたい。 ただし、入力した場合に色がつくようにしたい。 よろしくお願いします。
- ベストアンサー
- Windows XP
お礼
ご回答いただきまして誠にありがとうございます。 私の質問文が言葉足らずだったのですが、 全てのシートに適用したかったので、 その点も考慮いただきほんとにありがとうございます。 とても助かりました。 ありがとうございます！