Excelマクロで指定した品番の製品情報を取得する方法

Excel

Excelのマクロを使用して、指定した品番を検索し、その関連する製品情報を自動的に取得する方法について解説します。特に、Sheet1のセルに入力した品番を基に、Sheet2から該当する製品情報をコピーしてSheet1に貼り付けるプロセスについて説明します。

1. マクロの基本的な構造

このマクロでは、ユーザーがSheet1のA1セルに入力した品番をSheet2から検索し、該当する製品情報をB1セルに貼り付けます。Excel VBAを活用して、品番の検索とデータのコピーを自動化します。

2. マクロコードの例

以下は、指定した品番をSheet2から検索し、製品情報をSheet1に転送するマクロコードの一例です。

Sub GetProductInfo()'品番をSheet1のA1から取得Dim itemCode As StringitemCode = Sheets("Sheet1").Range("A1").Value'Sheet2で品番を検索するDim ws As WorksheetSet ws = ThisWorkbook.Sheets("Sheet2")Dim productRow As RangeSet productRow = ws.Range("A:A").Find(itemCode, LookIn:=xlValues, LookAt:=xlWhole)If Not productRow Is Nothing Then'該当する品番が見つかった場合製品情報をB1に貼り付けws.Range(productRow.Offset(0, 1), productRow.Offset(0, ws.Columns.Count)).Copy Sheets("Sheet1").Range("B1")Else'品番が見つからなかった場合メッセージを表示MsgBox "品番が見つかりませんでした", vbExclamationEnd IfEnd Sub

このマクロは、Sheet1のA1セルに入力された品番をSheet2のA列から検索し、見つかった場合にその行のB列以降の製品情報をSheet1のB1セルにコピーします。

3. マクロの実行方法

このマクロを実行するには、以下の手順に従ってください。

  • Excelを開き、Alt + F11でVBAエディターを開きます。
  • 挿入 > モジュールを選択し、新しいモジュールに上記のコードを貼り付けます。
  • Excelに戻り、Alt + F8で「GetProductInfo」を選択し、実行します。

これで、Sheet1に品番を入力した後、マクロを実行すると、その製品情報が自動的にSheet1に貼り付けられます。

4. マクロをカスタマイズする方法

上記のマクロは基本的な動作を提供しますが、必要に応じてカスタマイズすることもできます。例えば、複数の製品情報を一度にコピーする場合や、検索範囲を指定する場合など、さまざまなニーズに合わせて調整できます。

  • 複数列のデータをコピー：製品情報が複数の列にまたがる場合、コピー範囲を変更して、必要な列をすべて取得できます。
  • エラーハンドリング：品番が見つからなかった場合に、より詳細なエラーメッセージを表示させることができます。

5. まとめ

Excelのマクロを活用することで、品番に基づく製品情報の検索とコピーを自動化できます。このマクロを利用すれば、作業効率を大幅に向上させることができ、データの転送ミスを防ぐことも可能です。必要に応じて、マクロのコードをカスタマイズし、より高度な機能を追加していくことができます。

コメント

タイトルとURLをコピーしました