エクセル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
EXCEL関数(土日祝日自動色分け)
Excel(エクセル)
-
8
【VBA】色のついたシート名を取得
Visual Basic(VBA)
-
9
セルの内容の条件に応じて図形の表示をしたりしなかったりする
Excel(エクセル)
-
10
エクセル:シート名を手入力でなく、セル「A1」の文字を出したい。
Excel(エクセル)
-
11
特定の複数のシートに同じ処理をさせたい
Excel(エクセル)
-
12
マクロを特定の複数シートで実行する方法
Excel(エクセル)
-
13
IFS関数の場合で、セルが空白の場合は何も表示しないようにする方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelのマクロで該当処理できな...
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
XL:BeforeDoubleClickが動かない
-
同じ作業を複数のシートに実行...
-
エクセルのシート名変更で重複...
-
ブック名、シート名を他のモジ...
-
【ExcelVBA】全シートのセルの...
-
エクセルのマクロでアクティブ...
-
VBA 最終行まで数式をコピーする
-
セルの値によって、シート見出...
-
シートが保護されている状態で...
-
セルのコピーで「オブジェクト...
-
ExcelのVBAのマクロで他のシー...
-
VBAで特定のファイルを順番にオ...
-
ExcelのVBAコードについて教え...
-
Excel VBA で自然対数の関数Ln...
-
vba 環境依存文字がListViewボ...
-
【Excel VBA】Worksheets().Act...
-
IFステートの中にWithステート...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
ユーザーフォームに入力したデ...
-
同じ作業を複数のシートに実行...
-
ブック名、シート名を他のモジ...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
VBA 存在しないシートを選...
-
エクセルのシート名変更で重複...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
Excel VBA 複数行を数の分だけ...
-
実行時エラー1004「Select メソ...
-
【Excel VBA】Worksheets().Act...
-
Excelマクロのエラーを解決した...
-
エクセル・マクロ シートの非...
-
VBAで同じシート名のコピー時は...
-
ExcelのVBAのマクロで他のシー...
-
【VBA】色のついたシート名を取得
おすすめ情報