V20のExcel 2016 Vlookup関数

Question

ExcelのVlookup関数について助けが必要です。 私は2つのワークシートを持っています。最初に会社コードがあり、2番目には会社コードに基づいて価値を見つける必要があります。関連するコードは次のとおりです。

Dim Compcode, AUC, OB As String 
Dim WS1, WS2 As Worksheet 
Set WS1 = ThisWorkbook.Worksheets("Main Sheet") 
Set WS2 = ThisWorkbook.Worksheets("Data") 
Compcode = WS1.Cells(2, 1).Value 'Company code WS1 A2 

AUC = Application.WorksheetFunction.VLookup(Compcode, WS2.Range("A2:C30"), 2, False) 
OB = Application.WorksheetFunction.VLookup(Compcode, WS2.Range("A2:C30"), 3, False) 

私は変数とVLOOKUP関数自体のそれぞれの点心を変更しようとしましたが、私はいつも同じエラーメッセージを取得：

実行時エラー ' 438 '：オブジェクトはこのプロパティまたはメソッドをサポートしていません

Answer 1

問題は、多くの場所ですることができます。とにかく、明らかに、VLOOKUPは、このようCompcodeは、このようなVariant

何かがうまくなりする必要があり、数値と文字列のビットうるさいです：

Option Explicit 

Public Sub TestMe() 

    Dim Compcode  As Variant 
    Dim AUC    As String 
    Dim OB    As String 

    Dim WS1    As Worksheet 
    Dim WS2    As Worksheet 

    Set WS1 = ThisWorkbook.Worksheets("Main Sheet") 
    Set WS2 = ThisWorkbook.Worksheets("Data") 

    Compcode = WS1.Cells(2, 1).Value 

    Dim rngRange As Range 

    Set rngRange = WS2.Range("A2:C30") 

    AUC = Application.WorksheetFunction.VLookup(Compcode, rngRange, 2, False) 
    OB = Application.WorksheetFunction.VLookup(Compcode, rngRange, 3, False) 

End Sub 

あなたが明示的にすべての変数を宣言する必要があり、これはc++/cのではありませんカンマでそれらを宣言し、VBEditorが理解することを願ってください。

また、数式を範囲に変更しました。

Answer 2

WorksheetFunction.Vlookupは入力に対して非常に揮発性で、遭遇したようにランタイムエラーを簡単にスローする可能性があります。

あなたの問題は、多くのものの一つかもしれないが、私の提案された解決策は、だけではなく、Findを使用することです：

Sub test() 
    Dim Compcode As Variant, AUC As Variant, OB As Variant 
    Dim WS1 As Worksheet, WS2 As Worksheet 

    Set WS1 = ThisWorkbook.Worksheets("Main Sheet") 
    Set WS2 = ThisWorkbook.Worksheets("Data") 
    Compcode = WS1.Cells(2, 1).Value 'Company code WS1 A2 

    Dim rng As Range 
    Set rng = WS2.Range("A2:C30").Find(Compcode, , , xlWhole) 

    If Not rng Is Nothing Then 
     AUC = rng.Offset(0, 1).Value 
     OB = rng.Offset(0, 2).Value 
    End If 
End Sub