验证：仅允许在 VBA Excel 的文本框中输入一个特定单词一次

Question

我有 4 个不同的单词 (financial, location, course, professor) 可以在文本框中输入，但每个单词在文本框中每次输入时只能使用一次。

例如，我在文本框中输入这样的句子：“我有财务问题，因为我的家人面临财务问题”下面的代码将这句话处理为拆分文本。

我想要做的验证是通知用户（可能通过 msgbox）：

“错误 - 你必须在一个句子中只使用一次金融。”

另外，如果在一个句子中多次使用 course、location 和professor 也应该给出一个msgbox。

Private Sub CommandButton1_Click()
Call SplitText
End Sub
Sub SplitText()
    Dim WArray As Variant
    Dim TextString As String
    TextString = TextBox1
    WArray = Split(TextBox1, " ")
    If (TextString = "") Then
    MsgBox ("Error: Pls Enter your data")
    Else

    With Sheets("DatabaseStorage")
        .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(UBound(WArray) + IIf(LBound(WArray) = 0, 1, 0)) = Application.Transpose(WArray)
    End With

    MsgBox ("Successfully inserted")

    End If

End Sub

Answer 1

试试这个：

Private Sub CommandButton1_Click()
    Call SplitText
End Sub

Sub SplitText()
    Dim sentence As String
    Dim mycount As Long

    sentence = InputBox("Enter the sentence")
    mycount = UBound(Split(sentence, "financial"))
    If mycount > 1 then
        Msgbox "Error - you must used financial only once in a sentence"
    End if

    'Here the rest of the code you need

End Sub

希望对你有帮助。