|
こんばんは。
ぜひお力をおかしください!
ブック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
|
|