エクセル2007を使用してします。以前に、
「ある報告書の全シートを対象として A1セルにkさんの名前が入力されたらそのシートのシート見出しが緑になり、A2セルにmさんの名前が入力されたらそのシートのシート見出しが青になり、なおかつ、kさんとmさん2人の名前が入力されたらそのシート見出しの色が黄色に自動でなるマクロの記述を教えてください」と質問し、
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セル共に、
何か文字が入力されたら(もしくは空白でなければ)と条件を変えたいと思い、色々試してみたのですが、
上手くいきませんでした。
何方か、条件に合うコードの記述を教えてください。宜しくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/05/26 17:19
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) エクセルのマクロで対象ごとにシート分けしてその内容をセルに書き込みたい 9 2022/08/24 13:23
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/06/10 11:06
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
VBAで条件によってシート見出しの色を変更したい
Excel(エクセル)
-
あるセルに文字が入力されるとシート見出しの色を自動で変更したい
その他(Microsoft Office)
-
シート見出しの色を自動で変えるには
Excel(エクセル)
-
-
4
シート見出しの色を自動的に変更させたい
Excel(エクセル)
-
5
【 Excel】シートの見出しに自動で色を付けるには?
Excel(エクセル)
-
6
[EXCELマクロ] シートタブに自動で色をつけるには?
Excel(エクセル)
-
7
【VBA】色のついたシート名を取得
Visual Basic(VBA)
-
8
エクセル:シート名を手入力でなく、セル「A1」の文字を出したい。
Excel(エクセル)
-
9
EXCEL関数(土日祝日自動色分け)
Excel(エクセル)
-
10
IFS関数の場合で、セルが空白の場合は何も表示しないようにする方法
Excel(エクセル)
-
11
エクセルで色の変更を他のシートに反映させるには
Access(アクセス)
-
12
セルの内容の条件に応じて図形の表示をしたりしなかったりする
Excel(エクセル)
-
13
複数のセルのいずれかに数字がある場合に表示する関数
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別のシートから値を取得するとき
-
同じ作業を複数のシートに実行...
-
VBA 存在しないシートを選...
-
ユーザーフォームに入力したデ...
-
実行時エラー'1004': WorkSheet...
-
ExcelのVBAのマクロで他のシー...
-
Excelマクロのエラーを解決した...
-
【ExcelVBA】全シートのセルの...
-
実行時エラー1004「Select メソ...
-
excelのマクロで該当処理できな...
-
エクセルのシート名変更で重複...
-
Excel チェックボックスにチェ...
-
VBAで指定シート以外の選択
-
特定の文字を含むシートだけマ...
-
Worksheet_Changeの内容を標準...
-
VBA 最終行まで数式をコピーする
-
IFステートの中にWithステート...
-
Excel VBA で自然対数の関数Ln...
-
エクセルVBA 変数への代入がう...
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
Excelマクロのエラーを解決した...
-
excelのマクロで該当処理できな...
-
XL:BeforeDoubleClickが動かない
-
ExcelVBA シート名を複数セルか...
-
実行時エラー'1004': WorkSheet...
-
VBA 存在しないシートを選...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ブック名、シート名を他のモジ...
-
【Excel VBA】Worksheets().Act...
-
ExcelのVBAのマクロで他のシー...
-
エクセルのシート名変更で重複...
-
特定の文字を含むシートだけマ...
-
シートが保護されている状態で...
-
Excel マクロについての相談
-
VBA 検索して一致したセル...
おすすめ情報