Excel VBA質問箱 IV

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

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


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

32498 / 76807

←次へ　｜　前へ→


	【49545】Re:コード修正して下さい

Hirofumi - 07/6/10(日) 13:20 -


	引用なし

	パスワード

>当然ですが前年分も累計されてしまいます、条件設定で入力した日の
>当年、当月だけの累計を表示させたいのです（20070420を入力　2007年4月1日～2007年4月20日の累計値）が、
>頂いたサンプルの修正で私でも可能でしたらお教えくださいよろしくお願いいたします

あれ？、勘違いしたかな？
当年、当月と言うなら

20070520なら、累計は、5月1日～5月20日
20070620なら、累計は、6月1日～6月20日

と言う事ですか？

それなら、以下の部分を

　　'年度を調整
　　vntTop = DateValue(vntTop)
　　If Month(vntTop) <= 3 Then
　　　　vntTop = Year(vntTop) - 1
　　Else
　　　　vntTop = Year(vntTop)
　　End If
　　vntTop = ">=" & vntTop & "0401"

を、以下の様に変更して下さい

　　'年度を調整
　　vntTop = DateValue(vntTop)
　　vntTop = ">=" & Format(DateSerial(Year(vntTop), _
　　　　　　　　　　　　Month(vntTop), 1), "yyyymmdd")

以上

1 hits

▼

【49539】月間集計 hiro 07/6/9(土) 17:35