VBA：次のように関数と呼び出しサブを両方書く必要があります

Question

メインサブルーチンでは、2つのユーザー入力（（1）範囲アドレス（A1：C50など）、（2）名前文字列（例えばJames））を呼び出し、関数サブルーチン（引数を引数として渡す）を呼び出し、その名前がその範囲に存在するか存在しないかをメッセージボックスを通して出力する。

検索範囲と名前の両方をユーザーから入力する必要があります。関数subRoutineと呼び出し側のサブを書くにはどうしたらいいですか？これはこれまで私が持っていたものです。

Function NameExists(name As String, area As Range) As Boolean 



If name = area.Value Then 
    NameExists = True 

Else 
    NameExists = False 

End If 


End Function 



Sub Main() 
Dim NameExists As Boolean 
Dim name As String 

name = InputBox("Enter a Name") 
area = InputBox("Enter a Range") 


If NameExists = True Then 
MsgBox name & " Has Been Found" 
Else 
MsgBox name & " Has Not Been Found" 
End If 


End Sub 

Answer 1

実際に関数が存在するかどうかをチェックし、ユーザーが入力した変数を渡す必要があります。ここには少し粗い例があります：

Sub Main() 

    Dim nm As String 
    Dim ar As String 

    nm = InputBox("Enter a Name") 
    ar = InputBox("Enter a Range") 

    If NameExists(nm, ar) = True Then 

     MsgBox nm & " Has Been Found" 

    Else 

     MsgBox nm & " Has Not Been Found" 

    End If 

    End Sub 

    Private Function NameExists(name As String, area As String) As Boolean 

    Dim myRange As Range 
    Set myRange = Range(area) 

    For Each myCell In myRange 

     If myCell.Value = name Then 

      NameExists = True 

      Exit For 

     End If 

    Next 

    Set myRange = Nothing 

    End Function