いつもお世話になっております
遣りたいこと
F列に届日 G列に生年月日があります。
生年月日より20日前の日届日が
出された件数が知りたいです。
届日 生年月日
2022/4/10 2022/5/16
2022/5/16の20日前なので1件という感じです。
下記のコードは自分で考えましたが、
12件中 正解は1件ですが、
12件とでました。
わかる方おしえてくれませんでしょうか
Dim i As Long
Dim cnt As Long
cnt = 0
For i = 4 To Cells(Rows.Count, 7).End(xlUp).Row
If Cells(i, "F").Value <= Format(DateDiff("d", 20, Cells(i, 7).Value), "yyyy/mm/dd") Then
cnt = cnt + 1
End If
Next
Range("F1").Value = cnt
No.1ベストアンサー
- 回答日時:
こんばんは
Formatの意味は?調べてみてください
20日前を算出?とか
If Cells(i, "F").Value <= DateAdd("d", -20, Cells(i, 7).Value) Then
Date型に右辺を変えるとか・・多分しない
If Cells(i, "F").Value <= CDate(Format(DateDiff("d", 20, Cells(i, 7).Value), "yyyy/mm/dd")) Then
Formatで合わせるとか・・・しないか・・計算できるかも知れません
If Format(Cells(i, "F").Value, "yyyy/mm/dd") <= Format(DateDiff("d", 20, Cells(i, 7).Value), "yyyy/mm/dd") Then
いつもお世話になっております
うまくいきました。
If Format(Cells(i, "F").Value, "yyyy/mm/dd") <= Format(DateDiff("d", 20, Cells(i, 7).Value), "yyyy/mm/dd") Then
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) Sheet3から2つの条件でオートフィルターで抽出した個数をSheet2へ入力するマクロで、一つ目の 4 2023/01/12 23:40
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 【VBA】特定のワードが入っている行全体を塗りつぶしたい 4 2022/04/20 15:22
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
VBA 何かしら文字が入っていたら
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
空白セルをとばして転記
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
VBAのFind関数で結合セルを検索...
-
VBAを使って検索したセルをコピ...
-
マクロについて。S列の途中から...
-
【VBA】2つのシートの値を比較...
-
エクセルVBA シートモジュール...
-
文字列の結合を空白行まで実行
-
エクセルについて
-
VBAコンボボックスで選択した値...
-
Excel(VBA) 特定の条件に該当...
-
マクロ 最終列をコピーして最終...
-
エクセルVBAにて =A1=B1とすれ...
-
Excel VBA:エクセルのマクロで...
-
エクセルVBA intersect colu...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
VBAを使って検索したセルをコピ...
-
文字列の結合を空白行まで実行
-
VBAのFind関数で結合セルを検索...
-
IIF関数の使い方
-
【VBA】2つのシートの値を比較...
-
マクロ 最終列をコピーして最終...
-
VBA 何かしら文字が入っていたら
-
Changeイベントでの複数セルの...
-
URLのリンク切れをマクロを使っ...
-
エクセルVBAにて =A1=B1とすれ...
-
VBAでのリスト不一致抽出について
-
データグリッドビューの一番最...
-
マクロについて。S列の途中から...
-
VBA UserFormからの転記で
-
targetをA列のセルに限定するに...
おすすめ情報