ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【VBA】検索値をもとに別表を検索するマクロを作成してみました。




どうも、ゴリラストロングです。

 

今回はVBAで、検索値をもとに別表を検索するマクロを作成してみました。

 

<元データ>

f:id:gorilla-strong:20200426035944p:plain

 A3セルに社員番号を入力すると、その値をキーにしてVLOOKUP関数で各データを参照します。

なおA3セルの入力はINPUTBOXを使って入力します。

 

<マクロ実行後>

f:id:gorilla-strong:20200426040206p:plain

 動作としては以上です。

 

ソースコード> 

Sub main()

Dim ws As Object
Set ws = ThisWorkbook.Worksheets(1)

Dim lastrow As Long
lastrow = ws.Cells(Rows.Count, 1).End(xlUp).Row

Dim lastcolumn As Long
lastcolumn = ws.Cells(2, Columns.Count).End(xlToLeft).Column

ws.Range("A3") = InputBox("社員番号を入力してください。")



For i = 2 To lastcolumn

ws.Cells(3, i) = WorksheetFunction.VLookup(ws.Range("A3"), ws.Range("A7:E" & lastrow), i, 0)

Next


End Sub

 

以上、ゴリラストロングでした。