VBA - 拆分和 IsError 函数

Question

我正在为 VBA 代码而苦苦挣扎。我正在开发一个 ID 代码生成器程序。其中一个过程涉及按单词拆分公司名称，并取前两个单词。事实证明，拆分在此任务中很有用，但是，在处理少于 2 个单词的公司名称时，我得到了 #VALUE！错误。

我尝试修复它的一种方法是使用 ISERROR 函数，所以如果我遇到任何错误，它会用一个字符替换它，比如“X”。

总而言之，我正在尝试仅捕获名称的第二个单词，如果没有第二个单词，则仅显示“X”。

Public Function idcode_2(text As String) As String
Dim Arr_text As Variant
Dim rz_x, rz2, code As String
Dim i As Integer
Dim c
Arr_text = Split(text, " ", 3)
rz2 = Arr_text(1)
If IsError(rz2) = True Then
    rz2 = "X"
   Else
    rz2 = rz2 & ""
End If
    idcode_2 = rz2
End Function

我在 Excel 中使用 VBA - Microsoft Office Professional Plus 2013。

Answer 1

Arr_text 将是一个从零开始的数组 - UBound(Arr_text) 将为您提供该数组的上限（如果一项则为零，如果两项则为一等）

Public Function idcode_2(text As String) As String

    Dim Arr_text As Variant, rz2

    Arr_text = Split(text, " ", 3)

    If UBound(Arr_text ) > 0 Then
        rz2 = Arr_text(1)
    Else
        rz2 = "x"
    End If

    idcode_2 = rz2

End Function

Answer 2

Public Function idcode_2(text As String) As String
    If Instr(text, " ") > 0 Then
        idcode = Split(text)(1)
    Else
        idcode = "x"
    End If
End Function