すべての答えは自分にある?
ワークシート上で利益と損失をデリートしてから、もう一度マクロを実行させて見て下さい。それでだめなら、Cells(i, 10) = Cells(3, 8)、Cells(i, 9) = Cells(3, 7)になっているか確認してください。 by 大黒天 (2009-03-24 10:22)
ありがとうございます。やってみます。 by tomo (2009-03-24 20:08)
http://jibunnenkin.blog.so-net.ne.jp/2009-03-08上記のIf sonkiri < Cells(j, 3) ThenCells(i, 9) = Cells(3, 8)make = make + 1: sonsitu = sonsitu + Cells(3, 8)Else: Cells(i, 10) = Cells(3, 7)kati = kati + 1: rieki = rieki + Cells(3, 7)これをIf sonkiri < Cells(j, 3) ThenCells(i, 10) = Cells(3, 8)make = make + 1: sonsitu = sonsitu + Cells(3, 8)Else: Cells(i, 9) = Cells(3, 7)kati = kati + 1: rieki = rieki + Cells(3, 7)としたら計算できました。ありがとうございます。検証は、もう少し組み合わせを考えてみます。 by tomo (2009-03-25 00:21)
この広告は前回の更新から一定期間経過したブログに表示されています。更新すると自動で解除されます。
ワークシート上で利益と損失をデリートしてから、もう一度マクロを実行させて見て下さい。
それでだめなら、Cells(i, 10) = Cells(3, 8)、Cells(i, 9) = Cells(3, 7)になっているか確認してください。
by 大黒天 (2009-03-24 10:22)
ありがとうございます。
やってみます。
by tomo (2009-03-24 20:08)
http://jibunnenkin.blog.so-net.ne.jp/2009-03-08
上記の
If sonkiri < Cells(j, 3) Then
Cells(i, 9) = Cells(3, 8)
make = make + 1: sonsitu = sonsitu + Cells(3, 8)
Else: Cells(i, 10) = Cells(3, 7)
kati = kati + 1: rieki = rieki + Cells(3, 7)
これを
If sonkiri < Cells(j, 3) Then
Cells(i, 10) = Cells(3, 8)
make = make + 1: sonsitu = sonsitu + Cells(3, 8)
Else: Cells(i, 9) = Cells(3, 7)
kati = kati + 1: rieki = rieki + Cells(3, 7)
としたら計算できました。
ありがとうございます。
検証は、もう少し組み合わせを考えてみます。
by tomo (2009-03-25 00:21)