ID非公開

2021/10/8 23:42

22回答

Excel VBAのFunctionについて Sub test() Dim ws As Object Dim ws2 As Object

Visual Basic | Excel82閲覧

ベストアンサー

0

ThanksImg質問者からのお礼コメント

勉強になりました。 本当にありがとうございました。

お礼日時:10/9 19:53

その他の回答(1件)

0

そのコードはほとんどワークシート関数のVLOOKUP関数と同じですね。 というかVLOOKUP関数のほうが高速でしかもコードが単純にできます。 https://www.excel-ubara.com/excelvba4/EXCEL225.html Functionを使った例 Sub test() Dim ws As Object Dim keyWord As String Dim myRange As Range Set ws = Worksheets("sheet1") Set myRange = ws.Range("A:B") keyWord = "AAAA" Sheets("Sheet2").Range("B9") = test2(keyWord, myRange, 2) End Sub Function test2(key As String, rng As Range, c As Long) test2 = Application.VLookup(key, rng, 2, 0) End Function

ID非公開

質問者2021/10/9 19:52

言われてみれば、VLOOKUPですね。 回答ありがとうございました。