は、私はエクセルVBAで、この機能を持っている

Question

を動作するように二つの引数を使用してExcelのVBA機能を取得できません関数への呼び出し、エラー： "Expected：="が表示されます。私はすでに角かっこを取り除いてみましたが、うまく動かすことができません。助けてください！

Answer 1

代わりにこれを試してみてください：閉じる

Function split_std(cell As String, separator As String) 
    Dim arr() As String 
    arr() = Split(cell, separator) 
    MsgBox (arr(0)) 
End Function 

Sub split_standard() 
    Dim cell As String 
    Dim separator As String 

    cell = Application.InputBox(Prompt:="Please select the cell to split", Title:="Cell Selection", Type:=8) 
    separator = InputBox("Please type in the separator of the items in the string") 
    MsgBox (cell) 

    Call split_std(cell, separator) 
End Sub 

Answer 2

：

Function split_std(cell As String, separator As String) 

    Dim arr() As String 
    arr() = Split(cell, separator) 
    MsgBox (arr(0)) 

End Function 


Sub split_standard() 

    Dim cell As Range, separator As String 

    Set cell = Application.InputBox(Prompt:="Please select the cell to split", Title:="Cell Selection", Type:=8) 
    separator = InputBox("Please type in the separator of the items in the string") 
    Dim arr() As String 

    MsgBox cell 

    split_std CStr(cell.Value), separator 

End Sub