No.8ベストアンサー
- 回答日時:
大変お待たせいたしました。
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
No.6
- 回答日時:
それでは以下の様な物はいかがですか?
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
No.5
- 回答日時:
ん?
元のタンクから20リットルずつポリタンクに移して、
残った端数を次のポリタンクに移したうえで次のタンクから継ぎ足して20リットルにする
・・として、最終的にいくつポリタンクが必要になるか…ってこと?
元のタンクにある全体の量を足して、それを20で割れば良いと思うんだけど。
そうじゃなくて?
マクロも関数も関係ないような気がするのは自分だけでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 電卓は正しいのに エクセルで計算させると間違った答えです。なぜ? 7 2022/08/11 07:04
- Visual Basic(VBA) VBAで大量データの処理 3 2022/11/15 21:53
- Excel(エクセル) エクセル、日々の集計整理方法。(再送です。) 5 2022/10/02 00:19
- Excel(エクセル) 荷捌作業効率をあげるためのエクセル関数を教えてください。 8 2022/10/07 08:17
- その他(ゲーム) ff14 のヒーラーさんとタンクさんに質問です 1 2022/09/20 12:37
- Excel(エクセル) 当番表の作成 2 2022/06/15 07:40
- 冷蔵庫・炊飯器 冷蔵庫の霜はタンクに水が溜まらないようにすればいい? 6 2022/10/20 17:32
- 化学 【危険物の移動タンク貯蔵所の取扱い】について質問です。 引火点が40℃未満の危険物はタンクからタンク 1 2022/04/03 22:22
- 数学 複素関数にロピタルの定理を使おうとしている回答者は、複素関数論はおろか微積分学もよく分かっていない、 5 2022/12/28 18:02
- 数学 知ってる式から応用させて 微分式を作りたいですが 例えば タンクのなかにVm3という液体がありますし 6 2023/03/09 21:45
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
1つのシートの容量が知りたいで...
-
容量不足でCD-Rに記録出来ない
-
パソコンのビデオチップのIntel...
-
raid5を組んだハードディスクの...
-
pc版のgta5のことなんですけど...
-
最適化をしてもAccessのデータ...
-
HDD型番の意味
-
ノートPCの内蔵SSD容量について
-
dvd-rにMP-3の楽曲って一枚で...
-
HDDとSSDの容量比較はどのよう...
-
CD-R DVD-Rの最大容量
-
MB=何KBですか?
-
ホームページ 容量
-
ybb会員へのメール送信
-
皆さんの会社のメールBOXの制限...
-
外付けハードディスク4TBなのに...
-
FAT16とFAT32の違い
-
オーブンの予熱に時間がかかる
-
MacBookでフリーwifiの認証ペー...
-
アドテックのメモリーはどうで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ノートPCの内蔵SSD容量について
-
パソコンのビデオチップのIntel...
-
1つのシートの容量が知りたいで...
-
ネットカフェ 大容量
-
[Dropbox 容量が上限に達しま...
-
皆さんの会社のメールBOXの制限...
-
Kindle Paperwhite おすすめは...
-
FAT16とFAT32の違い
-
pc版のgta5のことなんですけど...
-
最適化をしてもAccessのデータ...
-
最近のペットボトルは900mlが多...
-
容量不足でCD-Rに記録出来ない
-
通信業界でいう「ベアラ」とは...
-
CD-R DVD-Rの最大容量
-
HDDとSSDの容量比較はどのよう...
-
先日、Optio h90を購入したので...
-
CD-Rの容量一杯まで書き込みた...
-
itunesでCDに書き込もうとした...
-
raid5を組んだハードディスクの...
-
モバイルバッテリーについて。 ...
おすすめ情報
分かりにくくてすみません。
複数の入り目の異なる鍋から
準備に20Lずつの液体を取り出していくです。
よろしくお願い致します。
このAセルは変動します。
自動的に20Lに割付けを
したいのです。
VBA使って下さい。
是非お願い致します。
わかりにくくてすみません。
元の各鍋ごとにロット番号を
付けます。
ロット割れして
混合されたポリタンクには
混合量記載のダブルロット番号を
付ける為です。