引用:
WorksheetFunction.IFNA(INDEX(指示書!I:I,MATCH($D5,指示書!$G:$G,0))," - ")
（標準モジュール）
------------------------------------------------------------------
Sub TestMacro1()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Set ws1 = Worksheets("指示書")
Set ws2 = ActiveSheet 'できればワークシートを明示的に指定した方がよい
Dim lngFirstRow As Long
Dim lngLastRow As Long
With ws2
lngFirstRow = 5
lngLastRow = .Cells(.Rows.Count, "E").End(xlUp).Row
If lngFirstRow <= lngLastRow Then
.Range("E" & lngFirstRow & ":" & "E" & lngLastRow).ClearContents
End If
End With
Dim lngRow As Long
Dim varReturnValue As Variant
Dim strErrMsg As String
For lngRow = lngFirstRow To lngLastRow
varReturnValue = Empty
On Error Resume Next
varReturnValue =
WorksheetFunction.Match(ws2.Cells(lngRow, "D"), ws1.Range("$G:$G"), 0)
Select Case
Err.Number
Case 0
varReturnValue =
WorksheetFunction.Index(ws1.Range("I:I"), varReturnValue)
Case 1004
Err.Clear
varReturnValue = " - "
Case Else
strErrMsg = lngRow & " 行目の参照中に以下の実行時エラーが発生しました。" & vbCrLf & vbCrLf & _
Err.Number & ": " & Err.Description
MsgBox strErrMsg, _
vbCritical, _
"実行時エラー"
Set ws2 = Nothing
Set ws1 = Nothing
Exit Sub
End Select
On Error GoTo 0
ws2.Cells(lngRow, "E").Value = varReturnValue
Next
Set ws2 = Nothing
Set ws1 = Nothing
End Sub
------------------------------------------------------------------
WorksheetFunction オブジェクトのメソッドとして呼び出すならば
以上のような形になるでしょう。
この場合、WorksheetFunction.IfNa メソッドを呼び出しても
全く意味がありません。
