エクセルVBAで在庫の組み換え処理をしたい
VBAを勉強しているのですが、
例えば、袋入り個数が[バラ]、[11個] [51個] [101個] [202個]の物があり、
[11個入り]の袋から[51個入り]の袋に組み換えたい場合、
必要な[11個入り]袋の数と組み換えた余りの個数をMSGBOXに表示させたい。
また、同様に、[101個入り]の袋から[51個入り]の袋や[11個入り]の袋に組み換えた場合の、
必要な組み換え元袋数と余りの個数をMSGBOXに表示させたい
いろいろ模索し下記のようなコードを試しましたがこれで良いのかわかりません。
よろしくお願いいたします。
Sub 在庫組換3()
Dim 組換先入り数 As Long
Dim 組換元入り数 As Long
Dim 入荷組数 As Long
Dim 必要な組換元組数 As Long
Dim 組換えた後の残り As Long
Dim 出来た組数 As Long
Dim 必要な袋数 As Long
' 例:10[セット](例えば、組換先入り数51個入りが10セット入荷)
入荷組数 = Val(InputBox("入荷組数" & vbCrLf & "例:[10]セット", "入力してください。"))
' 例:51[個入り]
組換先入り数 = Val(InputBox("組換先入り数" & vbCrLf & "例:[51]個入り", "入力してください。"))
' 例:101[個入り]
組換元入り数 = Val(InputBox("組換元入り数" & vbCrLf & "例:[101]個入り", "入力してください。"))
必要な組換元組数 = Int((入荷組数 * 組換先入り数) / 組換元入り数)
組換えた後の残り = (入荷組数 * 組換先入り数) Mod 組換元入り数
出来た組数 = 入荷組数
MsgBox ("必要な組換元組数:" & 必要な組換元組数 & vbCrLf & _
"出来た袋数:" & 出来た組数 & vbCrLf & _
"組換えた後の残り:" & 組換えた後の残り)
End Sub
No.1ベストアンサー
- 回答日時:
Sub 在庫組換3()
Dim 組換先入り数 As Long
Dim 組換元入り数 As Long
Dim 入荷組数 As Long
Dim 必要な組換元袋数 As Long
Dim 組換えた後の余り As Long
' 入荷する組数(例:10セット)
入荷組数 = Val(InputBox("入荷組数" & vbCrLf & "例:[10]セット", "入力してください。"))
' 組換先の袋の個数(例:51個入り)
組換先入り数 = Val(InputBox("組換先入り数" & vbCrLf & "例:[51]個入り", "入力してください。"))
' 組換元の袋の個数(例:101個入り)
組換元入り数 = Val(InputBox("組換元入り数" & vbCrLf & "例:[101]個入り", "入力してください。"))
' 必要な組換元袋数の計算
必要な組換元袋数 = Int((入荷組数 * 組換先入り数) / 組換元入り数)
' 組換えた後の余りを計算
組換えた後の余り = (入荷組数 * 組換先入り数) Mod 組換元入り数
' 結果を表示
MsgBox "組換元の袋から組換える場合:" & vbCrLf & _
"必要な組換元袋数: " & 必要な組換元袋数 & vbCrLf & _
"組換えた後の余り個数: " & 組換えた後の余り, vbInformation, "結果"
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBAコードについて 2 2024/03/10 12:41
- Visual Basic(VBA) Excel-VBAのmsgBox()の不思議 5 2024/04/03 17:06
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) WORD VBA プログラム修正をお願いします。 2 2024/04/25 23:43
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- 車検・修理・メンテナンス タイヤ組み換え作業について! タイヤ組み換えは車屋に持っていかなくても出張依頼したらできることですか 10 2024/02/28 14:57
- Visual Basic(VBA) VBAの間違い教えて下さい 5 2024/08/03 21:35
- Visual Basic(VBA) VBAコードが作動しません。修正したいのですが何処に原因かあるか教えて下さい。 1 2024/01/08 16:23
- 哲学 大学で遺伝子について学んでいます。 遺伝子組み換えをされた人間は人間なのでしょうか? 例えばクローン 4 2023/05/17 23:44
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
このQ&Aを見た人はこんなQ&Aも見ています
-


エクセル タブの下のメニューを選択 実行するコード
Visual Basic(VBA)
-


VBAのループ処理について教えてください
Visual Basic(VBA)
-


vbaマクロについて
Visual Basic(VBA)
-
-
4

以下のプログラムの実行結果はどうなると思いますか? その理由も教えてください。
Visual Basic(VBA)
-
5

Visualbasicの現状について教えてください
Visual Basic(VBA)
-
6

VBAのエラー表示の対処法について
Visual Basic(VBA)
-
7

不要項目の行削除方法について
Visual Basic(VBA)
-
8

VB.net 文字列から日付型へ変更したい
Visual Basic(VBA)
-
9

Excel VBAについて。こんな動作をさせるためにはどう書けばよいでしょうか。
Visual Basic(VBA)
-
10

質問58753 このコードでうまく動作しません。どうしたら良いですか Private Sub Wor
Visual Basic(VBA)
-
11

[Excel VBA]特定の条件で文字を削除&残す処理をするファイルを作成したいです
Visual Basic(VBA)
-
12

VBAでセルの書式を変えずに文字列を置換する方法をご教示ください
Visual Basic(VBA)
-
13

エクセルvbaの対象セルに色をつける 例えば a日付 b種類 c値段 dその他 にんじん 50 ぴー
Visual Basic(VBA)
-
14

VBA 2次元配列の出力
Visual Basic(VBA)
-
15

Excelのマクロについて教えてください。
Visual Basic(VBA)
-
16

excelVBAについて。
Excel(エクセル)
-
17

excelVBAについて。
Excel(エクセル)
-
18

VBA Application.Matchについての質問です
Visual Basic(VBA)
-
19

Excelのマクロについて教えてください。
Visual Basic(VBA)
-
20

VBAについて教えて下さい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでCOPYを繰り返すと、処理が...
-
【マクロ】並び替えの範囲が、...
-
【マクロ】オートフィルター を...
-
Vba Array関数について教えてく...
-
Vba 型が一致しません(エラー1...
-
【ExcelVBA】値を変更しながら...
-
vbsでのwebフォームへの入力制限?
-
エクセルのマクロについて教え...
-
【ExcelVBA】5万行以上のデー...
-
VBAでセルの書式を変えずに文字...
-
【マクロ】開いているブックの...
-
Vba セルの4辺について罫線が有...
-
vb.net(vs2022)のtextboxのデザ...
-
Excel VBA 選択範囲の罫線色の...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
エクセルの改行について
-
VBAで特定の文字が入った行をコ...
-
WindowsのOutlook を VBA から...
-
Excel 範囲指定スクショについ...
-
【マクロ】シートの変数へ入れ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Vba セルの4辺について罫線が有...
-
vbsでのwebフォームへの入力制限?
-
【ExcelVBA】5万行以上のデー...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
【マクロ】開いているブックの...
-
【マクロ】並び替えの範囲が、...
-
エクセルの改行について
-
エクセルのマクロについて教え...
-
vb.net(vs2022)のtextboxのデザ...
-
VBAでCOPYを繰り返すと、処理が...
-
VBA ユーザーフォーム ボタンク...
-
エクセルのVBAコードと数式につ...
-
エクセルのVBAコードについて教...
-
[VB.net] ボタン(Flat)のEnable...
-
【マクロ】変数を使った、文字...
-
改行文字「vbCrLf」とは
-
質問58753 このコードでうまく...
-
【マクロ】シートの変数へ入れ...
-
ワードの図形にマクロを登録で...
-
算術演算子「¥」の意味について
おすすめ情報











