vba excel関数を書くことができませんパラメータが文字列か辞書であるか

Question

どうすればはExcelで関数をPHPで作成しますか？

public function name($data) { 

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

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

最大の問題は、私は私のパラメータ私は、文字列または

Answer 1

「0」と呼ばれるキーを持つ辞書のいずれかを期待してい

のための関数でのデータ型を定義する必要があるということです辞書内の0は値を保持しません。おそらく1はあなたに望ましい結果を与えることができます。私はPHPを知りませんが、私は上記のコードとあなたの要件から理解できるものは、これは私が思い付いたので、私はあなたが望むものかどうかはわかりません？

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

それでも0を使用したい場合は、辞書に追加しているときに、たとえば

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

ため0を使用して、あなたはで0を使用することができます

sName = Inpt.Item(0) 

SNAPSHOT（ALL 3つの条件 - 0の使用と、1）

HTH

シド