schreiben Sie eine VBA Excel-Funktion nicht zu wissen Parameter ist Zeichenfolge oder Wörterbuch

Question

Wie kann ich eine Funktion schreiben in Excel VBA das ist so etwas in PHP?

public function name($data) { 

    if ($data==="*") { 
    return "*"; 
    } 

    if (isset($data[0])) { 
    return $data[0]; 
    } 
} 

Das größte Problem ist, dass ich brauche, um den Datentyp in der Funktion für meine Parameter

ich erwarte entweder einen String oder ein Wörterbuch zu definieren, die einen Schlüssel „0“

Answer 1

genannt hat

Ein 0 im Wörterbuch enthält keinen Wert. A 1 kann Ihnen vielleicht das gewünschte Ergebnis geben. Ich weiß nicht, PHP, aber was auch immer ich aus dem oben genannten Code und Ihre Anforderung verstehen konnte, das ist, was ich kam, so dass ich nicht sicher bin, ob das, was Sie wollen?

Sub Sample() 
    Dim Dict1 As Dictionary 
    Dim sString As String 

    Set Dict1 = New Dictionary 

    With Dict1 
     .CompareMode = BinaryCompare 
     .Add 1, "Item 1" 
    End With 

    sString = "Sid" 

    Debug.Print sName(Dict1) 
    Debug.Print sName(sString) 
End Sub 

Public Function sName(Inpt As Variant) As Variant 
    If TypeName(Inpt) = "Dictionary" Then 
     sName = Inpt.Item(1) 
    ElseIf TypeName(Inpt) = "String" Then 
     sName = Inpt 
    End If 
End Function 

EDIT

Wenn Sie noch 0 verwenden möchten, dann während dem Wörterbuch hinzufügen, verwenden Sie eine 0 zum Beispiel

With Dict1 
     .CompareMode = BinaryCompare 
     .Add 0, "Item 1" 
    End With 

und dann können Sie eine 0 in der Verwendung Funktion wie unten

sName = Inpt.Item(0) 

SNAPSHOT (ALLE 3 BEDINGUNGEN - VERWENDUNG VON 0 und 1)

HTH

Sid