vbaの初心者です。
複雑な条件なのでどのようにしたらいいか分からず困っています。
お助けいただけると嬉しいです。
データはC列からAH列まであります。下の画像はAH列まで載せると細かくなるので、J列までとしています。行は2行目(1行目は見出し)から、最大で50行目までです。
C列に在庫が載っていますが、在庫が無いものは「0」となっています。
C列の数値分を順番に同じ行のD列~AH列まで引いていくようにしたいです。
2行目が終われば、3行目というように順番に最大50行目まで繰り返したいです。
引いた後C列の数値が減っていますが、最初のままの数値でも構いません。((例)C5が「300」のままでも構いません。)
No.2ベストアンサー
- 回答日時:
以下のマクロを標準モジュールに登録してください。
元のデータが更新されますのでバックアップをとってから実行してください。
C列の値は更新されます。
---------------------------------------------------------
Option Explicit
Public Sub 在庫分配()
Dim row As Long
Dim col As Long
Dim dd As Long
Dim val As Long
Dim wval As Long
For row = 2 To 50
If Cells(row, 3).Value <> "" And Cells(row, 3).Value > 0 Then
val = Cells(row, 3).Value
For dd = 1 To 31
col = dd + 3
If Cells(row, col).Value <> "" Then
wval = Cells(row, col).Value
If val >= wval Then
val = val - wval
Cells(row, col).Value = 0
Else
Cells(row, col).Value = wval - val
val = 0
End If
If val = 0 Then Exit For
End If
Next
Cells(row, 3).Value = val
End If
Next
MsgBox ("完了")
End Sub
早速のお返事ありがとうございます。
標準モジュールで無事できました。
教えてgooで回答してくださる方々のレベルの高さにびっくりしています。色んな条件が増えれば難しくて難しくて。
何時間もかけて考えてはいるのですが、中々結果に結びつきません。
本当にありがとうございます。とても助かりました。
No.1
- 回答日時:
処理手順を日本語を使った箇条書きに書き表してみましょう。
それが処理アルゴリズムです。
その際、1行目から順にある行数同じ処理を繰り返す箇所はループ変数を設けることを念頭に「以下の処理を〇行目から×行目まで繰り返す」といった書き表し方をすると考えをまとめやすいです。
ということでお悩みの部分はVBAという特定のプログラミング言語によらない、プログラミングの基礎的部分(=設計)ですので、そこをご自身で考えられるようにならないとどの問題も自力では解決できない、、、ということになります。
頑張りましょう。
参考まで。
ご指摘ありがとうございます。
早くできるようになるためにネットで検索してやってはいるのですが
中々思うようにいかず困っています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) VBAで、1つのエクセルで、2つのシートからもう1つのシートに条件のある転記コードを教えてください。 1 2023/03/16 18:07
- Visual Basic(VBA) 3つの条件を指定してVBAで行を削除したい 条件1:分類1が重複 条件2:分類2が重複 条件3:個数 6 2022/06/24 11:07
- Excel(エクセル) Countifよりも早く重複数をカウントする方法ありますか? 18 2022/07/04 13:39
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- Visual Basic(VBA) VBA シート間の転記で、条件の追加コードの書き方について教えて下さい。 13 2023/02/26 09:31
- Excel(エクセル) ExcelのIF関数について 4 2023/05/24 12:54
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 3 2022/06/12 11:17
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
Worksheets メソッドは失敗しま...
-
IIF関数の使い方
-
文字列の結合を空白行まで実行
-
vba 2つの条件が一致したら...
-
VBAのFind関数で結合セルを検索...
-
データグリッドビューの一番最...
-
最終列の右へSUM関数を作成する...
-
VBAを使って検索したセルをコピ...
-
Changeイベントでの複数セルの...
-
Cellsのかっこの中はどっちが行...
-
複数csvを横に追加していくマク...
-
VBAの構文 3列置きにコピーし...
-
VBA 何かしら文字が入っていたら
-
エクセル 2つの表の並べ替え
-
VBAで10行おきにセルの下に罫線...
-
【VBA】2つのシートの値を比較...
-
VBScriptでfindを使うには??
-
マクロ 最終列をコピーして最終...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Worksheets メソッドは失敗しま...
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
vba 2つの条件が一致したら...
-
Cellsのかっこの中はどっちが行...
-
マクロ 最終列をコピーして最終...
-
VBAを使って検索したセルをコピ...
-
データグリッドビューの一番最...
-
URLのリンク切れをマクロを使っ...
-
VBAのFind関数で結合セルを検索...
-
【VBA】2つのシートの値を比較...
-
文字列の結合を空白行まで実行
-
IIF関数の使い方
-
Excel(M365) Vlookup/セル反転(...
-
VBA指定行削除
-
VBAでのリスト不一致抽出について
-
C# dataGridViewの値だけクリア
-
Changeイベントでの複数セルの...
-
VBAで、特定の文字より後を削除...
-
rowsとcolsの意味
おすすめ情報