エクセルで数値が０以下になった場合他の数値を１マイナスする

質問

エクセルでの計算式でどうしても分からないので質問させてもらいます。
セルA1に１０という数値、セルA2には２０という数値があり、A1から何度か引き算をしていき
セルA1の数値が０になった場合セルA2の２０から１マイナスさせて
その後、またセルA1には１０と数値が入るようにしたいのですが
式が全然分からず、困っております。

簡単な計算のようなのですが、よくわからなかったので
どのような式を使えば良いのか、わかる方宜しくお願いします。

回答No.3

mt2008 · ベストアンサー

これって、もしかして1ケース10個入りの物が20ケースとバラで10個という意味なんでしょうか？
バラの物から使っていき、10個使い切ったら次のケースを開ける……。
もし、そういう話でしたら、トータルの個数から計算した方が良いでしょう。

C1に　210　←これがトータル個数
B1に　=INT((C1-1)/10)　←未開封ケース数
A1に　=C1-B1*10　←バラになっている個数

引いていくのはA1ではなくC1からにします。

私の思い違いでしたらごめんなさい。

回答No.4

mt2008

No3です。
失礼しました、先ほどの式だとトータル数が0になると表示がおかしい事になりますね。
B1　=INT((C1-1)/10)*(C1>0)
A1　=(C1-B1*10)*(C1>0)

に変更してください。

お礼

早速の回答ありがとうございました。
mt2008さんの言ううとおりの事がしたかったのですが
一部分だけの説明をして簡単にしたほうが分かりやすいと思い説明を少し省きました。
あとは自分で色々と応用してみて、やってみたいと思います。
ありがとうございました。

回答No.2

argument

はじめまして　aki_1972　さん
これをVBE上に貼り付けるだけで解決します

Sub test()
num = InputBox("A1から値をいくつ引きますか？")
If Not IsNumeric(num) Then MsgBox "数値を入れてください": Exit Sub
If Not Range("A1").Value - num < 1 Then _
Range("A1").Value = Range("A1").Value - num Else _
Range("A1").Value = 10: _
Range("A2").Value = Range("A2").Value - 1
End Sub

処理違い・補足・追加処理等必要でしたらいってください。

お礼

早速の回答ありがとうございます。
早速、試したところ一応求めていた結果が出ました。
ただ、私の説明不足もあるので、もうひとつ条件がいる事を書き忘れていました。
詳しくは、Ｎｏ．４への返事に書かせてもらいます。

回答No.1

imogasi

エクセルでは、シートのセルにおいて（関数などで）計算します。またはVBA（プログラム）で計算させまルことはあります。
＞A1から何度か引き算をしていき
とはどういう（どの）セル？を使って計算するのですか。
何度かという繰り返しはどういう仕組みでするのですか？
具体的に説明しないと、読む者が理解できないのでは。

お礼

すいません、具体的に書くべきでしたね。
内容としては、ＮＯ．３の方が説明しているのとほぼ同じです。
A1からは普通に、毎回C1などに引きたい数値を入れて合計を出すだけという意味でした。
今後気をつけて質問したいと思います。
ありがとうございました。