Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

96 / 76735

←次へ　｜　前へ→


	【82310】日付けが検索されない

せい

- 24/6/15(土) 6:45 -


	引用なし

	パスワード

Sub CalculateAndSetValue()
　　Dim ws応募 As Worksheet
　　Dim ws集計 As Worksheet
　　Dim lastRow As Long
　　Dim countインスタ4月 As Long
　　Dim countインスタ5月 As Long
　　Dim i As Long
　　Dim axValue As String
　　Dim beValue As Variant
　　Dim beDate As Date
　　
　　' シートを指定
　　Set ws応募 = Worksheets("応募")
　　Set ws集計 = Worksheets("集計")
　　
　　' 最終行を取得（ここではAX列の最終行を取得します）
　　lastRow = ws応募.Cells(ws応募.Rows.Count, "AX").End(xlUp).Row
　　
　　' 件数の初期化
　　countインスタ4月 = 0
　　countインスタ5月 = 0
　　
　　' 件数をカウント
　　For i = 2 To lastRow ' 1行目はヘッダー行として2行目からループ開始
　　　　axValue = ws応募.Cells(i, "AX").Value
　　　　beValue = ws応募.Cells(i, "BE").Value
　　　　
　　　　' 日付の取得とフォーマット
　　　　On Error Resume Next
　　　　beDate = DateValue(beValue)
　　　　On Error GoTo 0
　　　　
　　　　' 2024年4月の場合
　　　　If Year(beDate) = 2024 And Month(beDate) = 4 Then
　　　　　　If InStr(axValue, "インスタ") > 0 Then
　　　　　　　　countインスタ4月 = countインスタ4月 + 1
　　　　　　End If
　　　　End If
　　　　
　　　　' 2024年5月の場合
　　　　If Year(beDate) = 2024 And Month(beDate) = 5 Then
　　　　　　If InStr(axValue, "インスタ") > 0 Then
　　　　　　　　countインスタ5月 = countインスタ5月 + 1
　　　　　　End If
　　　　End If
　　Next i
　　
　　' 件数に20000を掛けた値をシート集計のA5およびA6セルに設定
　　ws集計.Cells(5, 1).Value = countインスタ4月 * 20000
　　ws集計.Cells(6, 1).Value = countインスタ5月 * 20000
End Sub
上記指示だと
2024/4/1 16:00
のような日付けデータを検索してくれません。
何が間違えているのでしょうか。
式を修正して教えてください

1 hits

▼

【82310】日付けが検索されない せい 24/6/15(土) 6:45