Excel VBA質問箱 IV

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

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


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

33837 / 76734

←次へ　｜　前へ→


	【48113】Re:条件付で累計したいのですが。

りん

- 07/4/4(水) 7:27 -


	引用なし

	パスワード

けいこさん、おはようございます。

>ブック２
>
>　　　　　A列　B列　C列　D列　E列　F列
>　　　　　4月　5月　 6月　7月　8月　9月
>売上　　　　0　 200　　0　　0　 0　　700
>実働費用　 50　 130　 100　300　100　80
>条件
>・売上がある月はゼロにする。
>・売上がない月は累計を出す（売上が上がるまで）

売り上げが２行目、実働費用が３行目、４月がA列として、
[A4]=IF(A2=0,A3,0)　　 '前月がないので参照のみ
[B4]=IF(B2=0,B3+A4,0)　'累計していく
B4をF4までコピー

これでお望みの値は求められます。

なので、こんな計算方法で値は出ます。

　 Dim dt(0 To 6) As Long
　 For II% = 1 To 6
　　　If Cells(2, II%).Value = 0 Then
　　　　 dt(II%) = dt(II% - 1) + Cells(3, II%).Value '累計する
　　　Else
　　　　 dt(II%) = 0 '0
　　　End If
　　　'こんな合計値
　　　MsgBox dt(II%)
　 Next

6 hits

▼

【48101】条件付で累計したいのですが。 けいこ 07/4/3(火) 21:05