Excel式からVBAコードへのエラー

Question

式ベースのクエリから変換するように作成したVBAコードでは、いくつかのエラーが発生します。

Cell.Offset(0, 37).Value = Application.WorksheetFunction.IfError(Application.WorksheetFunction.Index((Sheets("CP INFO").Range("N6:AK570")), Application.WorksheetFunction.Match(Cell.Offset(0, 36).Value, Sheets("CP INFO").Range("N6:AK570"), 0), 1), "No SFH") 

エラーは、ワークシート関数クラスの 'Matchプロパティを取得できません。 上記のコードの元の式は - =IFERROR(INDEX('CP INFO'!$N$6:AK$570,MATCH(VALUE(AK4),'CP INFO'!$N$6:$N$570,0),1),"NO SFH")です。だから間違っているのはわかりません。

次のコードは次のエラーです。

Cell.Offset(0, 39).Value = Application.WorksheetFunction.IfError(Left(Application.WorksheetFunction.IfError(Left(Right(Cell.Offset(0, 24), _ 
Len(Cell.Offset(0, 24)) - Application.WorksheetFunction.Find("(", Cell.Offset(0, 24))), (Len(Cell.Offset(0, 24)) - Application.WorksheetFunction.Find("-", Cell.Offset(0, 24))) + 1), ""), _ 
Application.WorksheetFunction.Find("-", Application.WorksheetFunction.IfError(Left(Right(Cell.Offset(0, 24), Len(Cell.Offset(0, 24)) - _ 
Application.WorksheetFunction.Find("(", Cell.Offset(0, 24))), (Len(Cell.Offset(0, 24)) - Application.WorksheetFunction.Find("-", Cell.Offset(0, 24))) + 1), "")) - 1), _ 
Application.WorksheetFunction.IfError(Left(Right(Cell.Offset(0, 24), Len(Cell.Offset(0, 24)) - _ 
Application.WorksheetFunction.Find("(", Cell.Offset(0, 24))), (Len(Cell.Offset(0, 24)) - Application.WorksheetFunction.Find("-", Cell.Offset(0, 24))) + 1), "")) 

このエラーは、プロパティを見つけることができないというfind関数に関連しています。私はVBA内のこれらの機能については本当に初心者なので、何か間違ったことや何か不足していることは間違いありません。

オリジナルのコード式です。

=IFERROR(LEFT(IFERROR(LEFT(RIGHT(DATA2!Y4,LEN(DATA2!Y4)-FIND("(",DATA2!Y4)),(LEN(DATA2!Y4)- 
FIND("-",DATA2!Y4))+1),""),FIND("-",IFERROR(LEFT(RIGHT(DATA2!Y4,LEN(DATA2!Y4)- 
FIND("(",DATA2!Y4)),(LEN(DATA2!Y4)-FIND("-",DATA2!Y4))+1),""))-1),IFERROR 
(LEFT(RIGHT(DATA2!Y4,LEN(DATA2!Y4)-FIND("(",DATA2!Y4)),(LEN(DATA2!Y4)-FIND("-",DATA2!Y4))+1),"")) 

このマクロの設計は、およそ3〜5k行のデータをループし、データを事前にソートしたレポートを作成することです。セルは現在の行で、列Aです。基準が満たされている場合、オフセットは対応する列に値をポストします。

誰かが助けてくれることを願っています。

よろしくあなたは、VBAでそのよう代わりに何かのようIfError()を使用することはできません アラン

Answer 1

：

v = "No SFH" 
On Error Resume Next 
    With Application.WorksheetFunction 
     v = .Index((Sheets("CP INFO").Range("N6:AK570")), .Match(Cell.Offset(0, 36).Value, Sheets("CP INFO").Range("N6:AK570"), 0), 1) 
    End With 
On Error GoTo 0 
Cell.Offset(0, 37).Value = v 

注：

スコットが指摘するように、MATCH()の引数をまた、修正が必要です。