Excel VBA質問箱 IV

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

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


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

29479 / 76738

←次へ　｜　前へ→


	【52540】Re:月間データ範囲取得について

Hirofumi - 07/11/17(土) 23:26 -


	引用なし

	パスワード

またまた、ごめん！！
もし、最終月に1月が来る事が有るなら
ちゃんと治した方が善いですね

以下の様にして下さい

　　'データの上から下につきを比べる
　　For i = 1 To lngRows
'　　For i = 1 To lngRows + 1 '★変更
　　　　'もし、先頭の行が未定で、探索月と同じ月なら
　　　　If lngStart = 0 And Month(vntData(i, 1)) = vntSearch Then
　　　　　　lngStart = i
　　　　End If
　　　　'もし、先頭の行が決定されていて、探索月と違う月なら
　　　　If lngStart > 0 And Month(vntData(i, 1)) <> vntSearch Then
　　　　　　lngEnd = i - 1
　　　　　　Exit For
　　　　End If
　　Next i
　　
　　'最終月の取得
　　If i > lngRows Then '★追加
　　　　If lngStart > 0 Then '★追加
　　　　　　lngEnd = lngRows '★追加
　　　　End If '★追加
　　End If '★追加
　　
　　If lngStart = 0 Then
　　　　strProm = "目的の" & vntSearch & "月のデータが有りません"

0 hits

▼

【52530】月間データ範囲取得について yata 07/11/17(土) 20:30