vba - 带可选参数的函数

Question

我正在尝试使用可选参数在 VBA 中学习和实现一个函数。我正在尝试在给定字符或子字符串的情况下分隔字符串中的值以进行分隔。

Private Function SeperateString(MainString As String, Seperator As String) As String
{

 // Body 

}

例如:我想使用分隔符“-”分隔“1-2-3-4-5”或使用分隔符“/”分隔“1/2/3/4/5”。

我将使用 Instr 和其他函数编写逻辑。我的疑问是我想传递一个分隔符，所以我不需要为每个函数编写一个单独的函数，并且如果没有传递任何内容，我希望“-”成为默认值。我可以这样做吗？

Answer 1

Private Function SeparateString(MainString as String, 
                                Optional Separator as String = "-") As String

哦，这是VBA。没有 {}没有 // ，但我相信你知道...

但是，我不得不建议使用 Split()可能是比自己编写更好的选择。