[[20040416102724]]　『セルの中の数字を減らしていく事は出来ますか？』（DL）　ページの最後に飛ぶ

『セルの中の数字を減らしていく事は出来ますか？』（DL）

 もう少し説明してください。（ケン）

セルの中の数字と違うセルの中の数字を引いてその引いた数字をまた最初のセルに戻したいんですけど、こういう事ってできるんですか？（DL)

 ボタンを押した回数だけ、引き算する　ような感じですか？

  (INA)

数量に出荷数量を引いて、その引いた数量をまた同じセルに戻して後どのくらい在庫があるのかわかるようにしたいのですが…
（DL)

 計算するタイミングが決まっていないと、何回も引き算することになり　
 マイナスになっていくだけですが？

 なんか、出荷(在庫)管理？の表の作り方に問題があるような・・・

  (INA)

 私もそう思います。

       A          B           C           D
 1  　日付　　入荷個数     出荷個数　　在庫数
 2    4/15      100                     80 ←　=SUM(B2:B500)-SUM(C2:C500)
 3    4/16                   20            
例えばですがこんな感じとか・・・
（ケン）

 最初の質問内容のままだとVBAになりそうです。
A1に在庫数B1に出荷数として
 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$1" Then
        Range("A1").Value = Range("A1").Value - Target.Value
    End If
 End Sub
シートモジュールに貼付けして下さい。（ケン）

『ありがとうございます。それでやってみます。』　（DJ）

『あとそれを一列できるようにするにはどうすればいいですか？』（DJ）

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then
        Target.Offset(, -1).Value = Target.Offset(, -1).Value - Target.Value
    End If
 End Sub
（ケン）

 入力を間違えたときでも、Changeイベントのマクロは動作してしまいます。
 マクロは、UNDOできないので、誤入力したときの修正は、
 ブックを開き直すしかなく、使いにくいように思えますが・・・

  (INA)

『マクロは初めての挑戦なんで頑張ってみます』　（DJ)

コメント返信：

[ 一覧(最新更新順) ]

[[20040416102724]] 『セルの中の数字を減らしていく事は出来ますか？』（DL） ページの最後に飛ぶ

[[20040416102724]]　『セルの中の数字を減らしていく事は出来ますか？』（DL）　ページの最後に飛ぶ