Vlookupの値を持つシンプルな単一セルのポピュレート

Question

私はVBAをかなり新しくしています。私の単純なリクエストに固有の答えは見つけられませんでした。私は、Cell E2にvlookupの結果を入力したいと思います。これを行う簡単な方法はありますか？私は、適切な答えを見つけることができなかった場合

おかげで、申し訳ありません..

Sub vlookup_customerror() 
     Worksheets("customerror").Activate 
     On Error GoTo Errormsg 

     Hobbyquery = Application.WorksheetFunction.VLookup(Range("E1"), 
     ActiveSheet.Range("A2:B5"), 2, 0) 
     Cells("E2").Value = Hobbyquery 

    GoTo ending 
    Errormsg: GoTo ending 

    ending: End Sub 

Answer 1

これを試してください：あなたはあなたが持っている場合も

Sub custom_error() 
Dim result As Integer 
Dim sheet As Worksheet 
Set sheet = ActiveWorkbook.Sheets("customerror") 
Name = sheet.Range("E1").Value 
result = Application.VLookup(Name, sheet.Range("A2:B5"), 2, False) 
sheet.Range("E2").Value = result 
Debug.Print result 
End Sub 

エラーハンドラコードを追加することができます列Bの文字列データを次に変更するDim result As String

編集：状況をカバーするために、検索値が のように他のシートにある場合は、@MacroMarcで不安を表現します。その場合は試してみてください。

以下のサンプルデータの画像が添付されています。

あなたの要件ごとにシート名を変更してください。