No.2ベストアンサー
- 回答日時:
No.1です!
たびたびごめんなさい。
前回書き忘れたのですが、
2月以降の場合の数式は
=MONTH(A1)=2
といった具合でOKです。
Excelの場合
空白 = 0 = 1900/1/0
と判断してしまうようで、空白すべてが1月と判断されます。
この際ですので余計なお世話かもしれませんが、前回の別案のマクロの一例です。
↓の画像のようにSheet2のA列に1~12月の色(見えにくい場合はフォントの色も)設定しておきます。
そしてSheet1のA列1行目からデータがあるとして・・・
画面左下のSheet1のSheet見出し上で右クリック → コードの表示 → VBE画面に
↓のコードをコピー&ペーストしてマクロを実行してみてください。
(Alt+F8キー → マクロ → マクロ実行です)
Sub test() 'この行から
Dim i, k As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet2")
Application.ScreenUpdating = False
With Columns(1)
.Interior.ColorIndex = xlNone
.Font.ColorIndex = xlAutomatic
End With
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row '←データが2行目からなら、1 を 2 に!
k = Month(Cells(i, 1))
With Cells(i, 1)
.Interior.ColorIndex = ws.Cells(k, "A").Interior.ColorIndex
.Font.ColorIndex = ws.Cells(k, "A").Font.ColorIndex
End With
Next i
Application.ScreenUpdating = True
End Sub 'この行まで
※ 条件付書式が設定してある場合はマクロでも色変更ができませんので
マクロでやる場合は条件付書式はすべて削除しておきます。
長々と失礼しました。m(_ _)m
この回答へのお礼
お礼日時:2012/07/05 10:47
ご丁寧にマクロまでありがとうございます。
条件付書式でも上手くいきましたがマクロでやってみました。
VBAを頑張って覚えます!
有難うございました。
No.1
- 回答日時:
こんにちは!
仮にA列のシリアル値に色付けするとします。
1月の場合だと、
A列全てを範囲指定 → 条件付書式 → ・・・ → 数式欄に
=AND(A1<>"",MONTH(A1)=1)
として → 書式から好みの色を選択しOK
同様に2月~12月までを設定します。
※ 数式内のA1部分は範囲指定した最初(一番左上)のセル番地です。
※ 別案として、別Sheetに12色の色を設定しておき、それを表示させる方法もあります。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excel:条件付き書式の適用範囲...
-
ある倍数だけを塗りつぶす方法 ...
-
セルを結合したA4とA5の条件付...
-
Excelで表を作り、自動で今月の...
-
Excelで社歴管理をしており4年...
-
エクセル 条件付書式で時刻の...
-
色のリンクは出来ますか?【エク...
-
条件付き書式のやり方。隣のセ...
-
左列の文字の色と同じ文字の色...
-
Excelの塗りつぶしの反映
-
エクセル 別シートの書式(塗り...
-
エクセルの折られたセルを戻したい
-
vba 条件付き書式を一般書式に...
-
エクセル条件付き書式について...
-
EXCELでの重複入力禁止を実現す...
-
エクセル関数(IF)についてお...
-
エクセルでセルに自動着色したい
-
エクセルの小計のみに色をつけ...
-
未来の日付日欄を無色(空白)...
-
条件付き書式を使って土日を網...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
excel:条件付き書式の適用範囲...
-
セルを結合したA4とA5の条件付...
-
ある倍数だけを塗りつぶす方法 ...
-
Excelで社歴管理をしており4年...
-
色のリンクは出来ますか?【エク...
-
Excelで表を作り、自動で今月の...
-
条件付き書式のやり方。隣のセ...
-
左列の文字の色と同じ文字の色...
-
エクセル 条件付書式で時刻の...
-
エクセルの折られたセルを戻したい
-
Excelの塗りつぶしの反映
-
Excel2010 日付列を結合した予...
-
【Excel】ガントチャートの作成...
-
数字を入力するとセルに色が付...
-
Excelで隣のセルを参照し...
-
エクセル2010の書式の条件設定...
-
エクセルの小計のみに色をつけ...
-
エクセル 文字列に数字を含む場...
-
未来の日付日欄を無色(空白)...
-
EXCELで2つの条件設定で別のセ...
おすすめ情報