| |
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
のような日付けデータを検索してくれません。
何が間違えているのでしょうか。
式を修正して教えてください
|
|
まっちゃん
- 24/6/25(火) 12:00 -
かずこ
- 24/6/24(月) 10:19 -
マナ
- 24/6/21(金) 18:45 -
- 24/6/15(土) 6:45 -
