エクセルで均等に分配

Question

複数入り目の異なったの鍋から順番に２０Lずつの液体をタンクに
取り出し、残りの端数を次の鍋から２０Lに
満たすまで取り、残りも同じ様に２０Lの
タンクの様に繰り返す時、最後のタンクは
端数で良いのですが
エクセルの数式か関数で表せますか？

ご回答よろしくお願い致します。

GooUserラック · Accepted Answer

大変お待たせいたしました。No.6 の修正版です。

Sub Sample()

Const 分割容量 As Long = 20
Dim 行 As Long
Dim 列 As Long
Dim 容量 As Long
Dim 使用 As Long

行 = 1
　列 = 2
' ↓前回の結果をクリアしています、不要なら削除して下さい。
Dim 行終 As Long
Dim 列終 As Long
　With ActiveSheet.UsedRange
　　行終 = .Rows(.Rows.Count).Row
　　列終 = .Columns(.Columns.Count).Column
　End With
　If 列終 >= 列 Then
　　Range(Cells(1, 2), Cells(行終, 列終)).ClearContents
　End If
' ↑前回の結果をクリアしています、不要なら削除して下さい。
　Do Until 行 > Cells(Rows.Count, 1).End(xlUp).Row
　　If 容量 <= 分割容量 - 使用 Then
　　　If 容量 > 0 Then
　　　　Cells(行, 列).Value = 容量
　　　　使用 = 使用 + 容量
　　　　行 = 行 + 1
　　　End If
　　　容量 = Cells(行, 1).Value
　　Else
　　　If 分割容量 - 使用 > 0 Then
　　　　Cells(行, 列).Value = 分割容量 - 使用
　　　End If
　　　容量 = 容量 - 分割容量 + 使用
　　　列 = 列 + 1
　　　使用 = 0
　　End If
　Loop

End Sub

GooUserラック · Answer

No.6　に間違いがありましたまだ閉めないで下さい

GooUserラック · Answer

それでは以下の様な物はいかがですか？

Sub Sample()

Const 分割容量 As Long = 20
Dim 行 As Long
Dim 列 As Long
Dim 容量 As Long
Dim 使用 As Long

　列 = 2
　Do Until 行 > Cells(Rows.Count, 1).End(xlUp).Row
　　If 容量 <= 0 Then
　　　行 = 行 + 1
　　　If 行 > Cells(Rows.Count, 1).End(xlUp).Row Then Exit Do
　　　容量 = 容量 + Cells(行, 1).Value
　　End If
　　If 容量 < 分割容量 Then
　　　Cells(行, 列).Value = 容量
　　　使用 = 容量
　　Else
　　　Cells(行, 列).Value = 分割容量 - 使用
　　　使用 = 0
　　　列 = 列 + 1
　　End If
　　容量 = 容量 - 分割容量
　Loop

End Sub

銀鱗 · Answer

ん？
元のタンクから20リットルずつポリタンクに移して、
残った端数を次のポリタンクに移したうえで次のタンクから継ぎ足して20リットルにする
・・として、最終的にいくつポリタンクが必要になるか…ってこと？

元のタンクにある全体の量を足して、それを20で割れば良いと思うんだけど。
そうじゃなくて？

マクロも関数も関係ないような気がするのは自分だけでしょうか。

GooUserラック · Answer

関数でも出来ないわけではありませんが、マクロ（ＶＢＡ）を使った方が簡単なので使っても良いですか？

GooUserラック · Answer

イメージとしては下図の様な物でしょうか？

yucco_chan · Answer

分からない。。。

yucco_chan · Answer

何を質問されているのか分からないです。
箇条書きで質問文を書き直してください。

また、「複数入り目」は、検索してもヒットしません。
どういう意味ですか？

エクセルで均等に分配

大変お待たせいたしました。

No.6 に間違いがありましたまだ閉めないで下さい

それでは以下の様な物はいかがですか？

ん？

関数でも出来ないわけではありませんが、マクロ（ＶＢＡ）を使った方が簡単なので使っても良いですか？

イメージとしては下図の様な物でしょうか？

分からない。

何を質問されているのか分からないです。

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

No.6　に間違いがありましたまだ閉めないで下さい