Excel VBA質問箱 IV

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

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


33849 / 76734 ←次へ | 前へ→

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

引用なし
パスワード
   こんばんは。
ぜひお力をおかしください!

ブック1

     A列 B列 C列 D列 E列 F列
     4月 5月  6月 7月 8月 9月
売上   100 200 300 400 500 600
実働費用 50  180 250 360 460 550


ブック2

     A列 B列 C列 D列 E列 F列
     4月 5月  6月 7月 8月 9月
売上    0  200  0  0  0  700
実働費用  50  130  100 300 100 80


上記のようなブックがあります。

別ブックに以下の条件で転記、累計したいのですが
方法が浮かばずにいます。

条件
・売上がある月はゼロにする。
・売上がない月は累計を出す(売上が上がるまで)


結果的には・・下記ブック3のようにしたいのです。
 
 A列    B列 C列  D列  E列 F列 G列
      4月  5月  6月 7月 8月 9月
ブック1  0   0    0  0  0   0 

ブック2  50  0  100  400 500  0

ブック2で説明すると
4月は売上がないので50を入力。
5月は売上が上がったので0で入力。
6月は売上がないので100のみ入力。
7月も売上がないので100+300で400を入力。
8月も同様100+300+100で500を入力。
9月は売上が上がったので0で入力。

ツケの帳簿のような感じです。
何かいい案があれば教えてください。
お願いいたします。


今は、こんな風にしかできていません・・
例で、4月を探し出し、そのこのセルの下の数字が0より
大きければブック3のB3に0を入力、0より大きくなければ
その数値を転記する形までになっています。

sub comp()
dim status as variant
dim str1 as string

with workbooks("book1").worksheets("Sheet1").range("A2:F2")
  set status=.find(what:="4月",lookin:=xlvalues)
  if not status is nothing then
   str1=status.offset(1).value
   if str1>0 then
     workbooks("book3").worksheets("Sheet1").range("B3").value="0"
   else
     workbooks("book3").worksheets("Sheet1").range ("B3").value _
                 =status.offset(2).value
   end if
  end if
end with
end sub

3 hits

【48101】条件付で累計したいのですが。 けいこ 07/4/3(火) 21:05 質問
【48113】Re:条件付で累計したいのですが。 りん 07/4/4(水) 7:27 発言
【48127】Re:条件付で累計したいのですが。 けいこ 07/4/4(水) 20:57 質問
【48148】Re:条件付で累計したいのですが。 りん 07/4/5(木) 8:36 発言
【48244】Re:条件付で累計したいのですが。 けいこ 07/4/9(月) 21:58 発言
【48278】Re:条件付で累計したいのですが。 りん 07/4/11(水) 8:52 発言
【48293】Re:条件付で累計したいのですが。 けいこ 07/4/11(水) 23:32 発言

33849 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free