VBA: Ich muss sowohl eine Funktion als auch eine aufrufende Unterstelle schreiben, um folgendes zu tun

Question

Im Hauptunterprogramm muss ich zwei Benutzereingaben bekommen ((1) Bereichsadresse (zB A1: C50), (2) Name String (z. B. James)), und rufen Sie die Funktionsunterroutine auf (indem Sie die Eingaben als Argumente übergeben), und drucken Sie das Ergebnis über die Nachrichtenbox aus, ob der Name existiert oder nicht in dem Bereich existiert.

Sowohl der Suchbereich als auch der Name sollten von den Benutzern eingegeben werden. Wie schreibe ich die Function Unterroutine und die aufrufende Sub? Das habe ich bisher.

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

Sie benötigen die Funktion tatsächlich aufrufen, die, wenn sie überprüft, vorhanden ist, und den Namen und die Fläche Variablen übergeben, die Sie den Benutzereingaben hatte. Hier ist ein etwas grobes Beispiel:

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