Q&A
日付表示されているセルには、文字列 と シリアル値 が有ります。
シリアル値ならば、条件付き書式で済みそうですが。
VBA 日付の比較をしたいのですがどう調べればよいのかわかりません
いつもお世話になっております。
私はVBAを勉強し始めて2か月程度の社会人です。
普段はわからないコードは調べて書いていたのですがどう調べればよいのかわからなかったのでこちらでご質問させてください。
| 名前 | A日付 | B日付 |
|---|---|---|
| Aさん | 2017/1/1 | 2018/1/1 |
| Aさん | 2018/2/3 | 2018/1/1 |
| Aさん | 2019/3/3 | 2018/1/1 |
| Bさん | 2019/3/3 | 2017/3/3 |
| Bさん | 2018/4/1 | 2017/4/1 |
◎実行したいこと
名前列にある人物の[A日付の一番過去の日付]と[B列の一番過去の日付]を比較して
A列よりB列のほうが過去の日付ならば色を付けるといった処理をしたいと考えております。
例）Aさんの場合 A日付（2017/1/1）とB日付（2018/1/1）を比較して、A日付のほうが過去なので色付けなし
Bさんの場合 A日付（2018/4/1）とB日付（2017/3/3）を比較して、B日付のほうが過去なので色付けする
日付はシリアル値
発生している問題・エラーメッセージ
調べ方、参考サイトがみつかりませんでした。
ご教授いただけますと幸甚と存じます
sinzouさん
条件付き書式の考えは思いつきませんでした。
シリアル値ですが、条件をどうすれば良いのか、、、
回答1件
0
ベストアンサー
ExcelVBA
1Sub test() 2 Dim r As Range 3 4 For Each r In Range("A1").CurrentRegion.Rows 5 With r.Cells 6 If .Item(2).Value > .Item(3).Value Then 7 .Interior.Color = vbYellow 8 End If 9 End With 10 Next 11End Sub
シリアル値は日付は整数なので(時間は小数）、
何にも考えずに比較すればよいです。
条件付き書式設定でやる方がよいと思いますが、
VBAの勉強ということで。。。
投稿2020/06/07 22:47
総合スコア2163
あなたの回答
tips
プレビュー
