1. ホーム
  2. VBA

vlookup関数の使用でExcelのvba

2022-02-18 17:09:26

<スパン     1。vlookup()を使用してExcel vbaのプログラミングでは、vlookupは、直接Excel式のスタイルに書き込むことはできません[ =VLOOKUP(123,A1:C100,3,FALSE) ]、そこになります&quot;サブプロセスまたは関数が定義されていない&quot;エラー、VLOOKUP(123、A1:C100、3、FALSE)として記述する必要がありますかとしてアプリケーションのワークシート関数.のVLookup()です。

   VLookup() は、エラー "Cannot get vlookup property of worksheetfunction" を報告するので、最初の形式である application.VLookup() を使用する方がよいでしょう。vlookup(123,a1:c100,3,false). 正確には、この理由は ここで VLOOKUP(123,A1:C100,3,FALSE) は、デバッグモードになりません。もちろん、エラーを無視したい場合は、"On Error Resume Next"と書けばいいだけです。

   3. 上記のいずれかのフォームを使用した場合、"123"が見つからない場合がありますが、これは判定文Application.System.System.Deviceで処理することができます。WorksheetFunctionを使用します。


findvalue = Application.VLookup(ActiveWorkbook.Worksheets(1).Range("E" & i), o, 2, 0) ' o is the area to look for

  If (Application.WorksheetFunction.IsError(findvalue)) Then
     Sheets(1).Cells(i, "G").Value = ActiveWorkbook.  
     'vlookup cannot be found, then the value of column G is equal to the value of column E
  Else
     ActiveWorkbook.Sheets(1).Cells(i, "G").Value = findvalue
  End If




     'vlookup cannot be found, then the value of column G is equal to the value of column E
  Else
     ActiveWorkbook.Sheets(1).Cells(i, "G").Value = findvalue
  End If


参考にしてください。

http://iofai.com/559.html

http://www.exceltip.net/thread-20656-1-1.html

http://www.excelpx.com/forum.php?mod=viewthread&tid=284178

http://wubinsq.blog.163.com/blog/static/50751341200822144057698/

http://blog.csdn.net/iamlaosong/article/details/8929404

http://www.cpearson.com/excel/callingworksheetfunctionsinvba.aspx

http://www.mrexcel.com/forum/excel-questions/584913-application-vs-application-worksheetfunction.html


<スパン