• 文字サイズ


解決済

VBAで在庫管理を行う

  • 相談者:非公開
  • 2024/03/24 13:13
お世話になります。
VBAについてご教示お願い致します。
E列とH列の値が一致した場合に、F列にI列の値を出力し、最後の行まで処理します。というソースをつくりました。
しかし値が出力できません。解決策をご教示お願い致します。

Sub CompareAndOutput()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long

' 対象のシートを指定
Set ws = ThisWorkbook.Sheets("normal-item") ' シート名を適切なものに変更してください

' E列の最後の行を取得
lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row

' E1とH1の値が一致した場合に、F1にI1の値を出力
If ws.Cells(1, "E").Value = ws.Cells(1, "H").Value Then
ws.Cells(1, "F").Value = ws.Cells(1, "I").Value
End If

' 最後の行まで処理
For i = 2 To lastRow
If ws.Cells(i, "E").Value = ws.Cells(i, "H").Value Then
ws.Cells(i, "F").Value = ws.Cells(i, "I").Value
End If
Next i
End Sub
投稿内容について報告する

今気になってる疑問、
セミナーに参加すれば解決するかも!?
日本全国のネットショップ12,000社が参加!
ネットショップでお悩みがある方はまずはオンラインセミナーへGO!
広告0円で楽天の売上アップ続出!
ECマスターズチャンネルをチェック!
総視聴回数15万回突破!
最新の対策事例やSALE対策など、売上にお困りの方はぜひご視聴ください!

  • 返信者:非公開
  • 2024/03/25 09:30
せっきー様
おはようございます^^

' E列の最後の行を取得
lastRow = ws.Cells(ws.Rows.Count, "E").End(x………(省略)………
  • 返信者:非公開
  • 2024/03/25 09:50
五月雨式にすみません><
このVBAだと同じ列でセット品番が一致しないと値参照しないので、すべて空欄になってしまいますね><

F2に下記を書いて下までコ………(省略)………
  • 返信者:非公開(質問者)
  • 2024/03/25 10:14
きっぺ様
早速ご回答ありがとうございます!
VBA全くわかってないのでchatGPTでソースつくりました!

ご指摘いただきました箇所を修正しましたがう………(省略)………
  • 返信者:非公開(質問者)
  • 2024/03/25 10:17
いただきました、関数ではできました!
ご教示ありがとうございます!………(省略)………
  • 返信者:非公開
  • 2024/03/25 10:34
chatGPTでソース作ったりできるんですねw
すごい時代になりました・・・w

下記コードでお試しください^^

Sub 在庫反映()
i = 2………(省略)………
  • 返信者:非公開(質問者)
  • 2024/03/25 14:45
きっぺ様
急な問い合わせにもかかわらず丁寧なご対応ありがとうございました。
無事にVBAで在庫出力できました。
きっぺ様にご教示いただけたおかげで、VBA………(省略)………
このフォーラムへの質問は終了しました