从TextBox中单词的末尾删除逗号

时间:2015-10-17 06:35:50

标签: excel vba excel-vba

我正在尝试使用VBA从文本框中的名称末尾删除逗号。有了这个问题,我首先必须通过单击命令按钮将名称排序到两个文本框中。问题是用户可以输入名称FirstName, LastNameFirstName (single space) LastName。现在我被困在试图删除逗号。我已成功删除特定的数字或字母,但删除逗号将无效。我收到的消息是语法错误。我的代码:

Private Sub CommandButton1_Click()
Dim LNFN As String
Dim LastName As String
Dim FirstName As String
LNFN = TextBox4.Text
FirstName = Split(LNFN)(1)
LastName = Split(LNFN)(0)
TextBox2.Text = FirstName
TextBox3.Text = LastName
TextBox2 = TextBox2.Value
 If Right(TestBox2, 1) = “,” Then
  TempString = Left(TextBox2, Len(TextBox2) - 1)
 End If
TextBox2.Text = TempString
End Sub

1 个答案:

答案 0 :(得分:1)

试试这个:

LNFN = Replace(TextBox4.Text, ",", "")

然后您将不需要任何其他处理逗号的代码。