正誤の判断

投稿者 : え     投稿日時 : 2025/04/19(Sat) 17:56:00     OS : 未指定     EXCEL : 未指定

---

=IF(ISERROR(VLOOKUP(検索値,検索する範囲,列番号,検索の型)),”×”,”○”)こちらをマクロに直したいです。
どのように行ったらよろしいでしょうか？

投稿者 : てらてら     投稿日時 : 2025/04/20(Sun) 04:58:50

---

こんにちは。
結果を示すセルがD2の場合、以下のような方法があります。
参考にしてみてください。

Sub Macro()
    If IsError(WorksheetFunction.VLookup(検索値, 検索する範囲, 列番号, False)) Then
        Range("D2") = "×"
    Else
        Range("D2") = "〇"
    End If  
End Sub

投稿者 : ピロリ     投稿日時 : 2025/04/20(Sun) 08:09:39

---

■[質問] えさん（2025-04-19 17:56:00）の記事
＞ =IF(ISERROR(VLOOKUP(検索値,検索する範囲,列番号,検索の型)),”×”,”○”) こちらをマクロに直したい
仰っていることが今一理解できてませんが、関数の案で･･･
的外れでしたら読み捨てて下さい。

Function MyFn(検索値 As String, 検索する範囲 As Range, 列番号 As Long, 検索の型 As Boolean) As String
    Dim 値 As Variant
    
    On Error GoTo LABEL_ERR
    値 = WorksheetFunction.VLookup(検索値, 検索する範囲, 列番号, 検索の型)
    
    '検索結果、エラーなく値が取得できたのなら「○」を返す
    MyFn = "○"
    Exit Function
    
LABEL_ERR:
    '検索結果、エラーが発生し値が取得できなかったら「×」を返す
    MyFn = "×"
    
End Function

投稿者 : え     投稿日時 : 2025/04/20(Sun) 15:14:41

---

わかりました。ありがとうございました。