Excel VBA質問箱 IV

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

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


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

167 / 76807

←次へ　｜　前へ→


	【82311】Re:日付けが検索されない

マナ - 24/6/15(土) 15:21 -


	引用なし

	パスワード

Sub test()
　　Dim ws応募 As Worksheet
　　Dim ws集計 As Worksheet
　　Dim dic As Object, k
　　Dim c As Range, ym As String
　　
　　Set dic = CreateObject("scripting.dictionary")
　Set ws応募 = Worksheets("応募")
　　Set ws集計 = Worksheets("集計")
　　
　　
　　For Each c In ws応募.Range("AX2", ws応募.Cells(Rows.Count, "Ax").End(xlUp))
　　　　If c.Value Like "*インスタ*" Then
　　　　　　With c.Offset(, 7)
　　　　　　　　If IsDate(.Value) Then ym = Format(.Value, "yyyymm")
　　　　　　　　dic(ym) = dic(ym) + 20000
　　　　　　End With
　　　　End If
　　Next
　　
　　For Each k In dic.keys
　　　　If k = "202404" Then ws集計.Range("A5").Value = dic(k)
　　　　If k = "202405" Then ws集計.Range("A6").Value = dic(k)
　　Next
　　
End Sub

0 hits

▼

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