字符串操作VBA Excel

Question

我可能來不及了，但是我不知道如何進行基本的字符串操作。

我試圖在單擊復選框后獲得一個文本框，以在標簽中添加值，然后在取消選中該復選框時刪除該字符串，無論該字符串在文本框中的位置如何。 添加標簽后，我將其清除，以便用戶無法重復添加字符串。

因此，在嘗試了幾種不同的方法之后，我仍然無法弄清楚。 此版本已將字符串默認設置為“”。 我試圖將數值反彈，但仍然無法正常工作。

任何指針都很好，謝謝

Private Sub CheckBox1_Click()
    Dim chxbox1cmt As String
    Dim TxtString As String
    Dim myString As String
    chxbox1cmt = Label1.Caption

    If CheckBox1.Value = True Then
        myString = chxbox1cmt
        TxtString = TxtString + myString
        TextBox1.Value = TxtString
        myString = Left(InStr(TxtString, Len(myString)), Len(myString))
        Label1.Caption = vbNullString
    End If

    If CheckBox1.Value = False Then
        TxtString = TxtString - Left(InStr(myString, myString), myString)
        TextBox1.Value = TxtString
    End If
End Sub

Answer 1

如果我正確理解了這個問題，則需要將TxtString移到模塊級別。 當前，您已將其聲明為局部變量，因此您輸入的所有值在離開作用域后（在End Sub ）就消失了。

Private TxtString As String

Private Sub CheckBox1_Click()
    Dim chxbox1cmt As String
    Dim myString As String
    chxbox1cmt = Label1.Caption

    If CheckBox1.Value = True Then
        myString = chxbox1cmt
        TxtString = TxtString + myString
        TextBox1.Value = TxtString
        myString = Left$(InStr(TxtString, Len(myString)), Len(myString))
        Label1.Caption = vbNullString
    Else
        TxtString = TxtString - Left$(InStr(myString, myString), myString)
        TextBox1.Value = TxtString
    End If
End Sub