
エクセル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も見ています
-
あなたの「必」の書き順を教えてください
ふだん、どういう書き順で「必」を書いていますか? みなさんの色んな書き順を知りたいです。 画像のA~Eを使って教えてください。
-
初めて自分の家と他人の家が違う、と意識した時
子供の頃、友達の家に行くと「なんか自分の家と匂いが違うな?」って思いませんでしたか?
-
最強の防寒、あったか術を教えてください!
とっても寒がりなのですが、冬に皆さんがされている最強の防寒、あったか術が知りたいです!
-
テレビやラジオに出たことがある人、いますか?
テレビやラジオに取材されたり、ゲスト出演したことある方いますか?
-
14歳の自分に衝撃の事実を告げてください
タイムマシンで14歳の自分のところに現れた未来のあなた。 衝撃的な事実を告げて自分に驚かせるとしたら何を告げますか?
-
エクセル タブの下のメニューを選択 実行するコード
Visual Basic(VBA)
-
VBAのループ処理について教えてください
Visual Basic(VBA)
-
vbaマクロについて
Visual Basic(VBA)
-
-
4
以下のプログラムの実行結果はどうなると思いますか? その理由も教えてください。
Visual Basic(VBA)
-
5
VBAコードのインデント表示
Visual Basic(VBA)
-
6
VBA 入力箇所指定方法
Visual Basic(VBA)
-
7
Visualbasicの現状について教えてください
Visual Basic(VBA)
-
8
VBAのエラー表示の対処法について
Visual Basic(VBA)
-
9
Excel VBAについて。こんな動作をさせるためにはどう書けばよいでしょうか。
Visual Basic(VBA)
-
10
不要項目の行削除方法について
Visual Basic(VBA)
-
11
VB.net 文字列から日付型へ変更したい
Visual Basic(VBA)
-
12
VBAについてです。 どなたかご教示いただけないでしょうか。 データのチェックシートを作成しています
Visual Basic(VBA)
-
13
エクセルVBAコードで教えて下さい!
Visual Basic(VBA)
-
14
VBの色を変えるにはどうしたらいいですか?
Visual Basic(VBA)
-
15
サブフォルダに格納されているファイルを、ファイル名ごとに条件分岐させたい
Visual Basic(VBA)
-
16
ExcelVBAマクロで実行した時の疑問
Visual Basic(VBA)
-
17
VBA初心者です。次のVBAコードで、17行目を削除したいのですがうまく動きません 改善策を教えてく
Visual Basic(VBA)
-
18
VBA コードどこがおかしいですか?
Visual Basic(VBA)
-
19
EXCEL vbaでシート上に配置したボタンの移動については
Visual Basic(VBA)
-
20
[Excel VBA]特定の条件で文字を削除&残す処理をするファイルを作成したいです
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelのVBAコードについて教え...
-
Excel マクロについて詳しい方...
-
えくせるのVBAコードについて教...
-
エクセルのVBAコードについて教...
-
VBAの「To」という語句について
-
算術演算子「¥」の意味について
-
VBA 最終行の取得がうまくいか...
-
VB.net 文字列から日付型へ変更...
-
マクロVBAです。 どなたかコー...
-
質問58753 このコードでうまく...
-
VBAから書き込んだ条件付き初期...
-
VBAについて教えて下さい
-
VBAで特定の文字が入った行をコ...
-
Excel 範囲指定スクショについ...
-
【マクロ】オートフィルターに...
-
Vba 型が一致しません(エラー1...
-
VBAでFOR NEXT分を Application...
-
Vba WorkBooks.Openについて教...
-
Excel VBAについて。こんな動作...
-
不要項目の行削除方法について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VB.net 文字列から日付型へ変更...
-
VBA 最終行の取得がうまくいか...
-
VBAでエクセルのテキストデータ...
-
【ExcelVBA】5万行以上のデー...
-
エクセルVBAで在庫の組み換え処...
-
VBAから書き込んだ条件付き初期...
-
エクセルのVBAコードについて教...
-
VBAでユーザーフォームを指定回...
-
エクセルのVBAについて教えてく...
-
vbaマクロについて
-
ExcelのVBAコードについて教え...
-
【VBA】 結合セルに複数画像と...
-
WindowsのOutlook を VBA から...
-
質問58753 このコードでうまく...
-
ExcelのVBAコードについて教え...
-
Excel VBAについて。こんな動作...
-
[Excel VBA]特定の条件で文字を...
-
[VB.net] ボタン(Flat)のEnable...
-
エクエルのVBAコードについて教...
-
ExcelのVBAコードについて教え...
おすすめ情報