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

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




【VBA】別のワークシートからデータを抽出するマクロを作成してみました。




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

 

今回はVBAで、別のワークシートからデータを抽出するマクロを作成してみました。

 

<元データ>

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

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

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

「検索」シートの入社年と氏名を入力すると、対象者の情報をVlookupで引っ張ってくるという動作です。

 

<マクロ実行後>

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

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

動作としては以上です。

 

ソースコード 

Sub main()

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

Dim n As Long
If kennsaku.Range("A3") = "平成30年入社" Then
    n = 2
ElseIf kennsaku.Range("A3") = "平成29年入社" Then
    n = 3
End If

j = 2

For i = 3 To 6

kennsaku.Cells(3, i) = WorksheetFunction.VLookup(kennsaku.Range("B3"), ThisWorkbook.Worksheets(n).Range("A:E"), j, 0)

j = j + 1

Next

End Sub

 

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