替换文本框中的文本

Question

无论如何都要替换文本框中的文本,例如见下文.我目前正在使用它,但似乎在VBA中效果不佳.

If TextBox6.Text.Contains("<GTOL-PERP>") Then
    TextBox6.Text = TextBox6.Text.Replace("<GTOL-PERP>", "j")
End If

Answer 1

.Text是VBA中的字符串属性.字符串不是VBA中的对象,因此在处理字符串时,您需要使用字符串函数而不是方法.见下文:

If instr(TextBox6.Text, "<GTOL-PERP>") Then
TextBox6.Text = replace(TextBox6.Text, "<GTOL-PERP>", "j")
End If

VBA中的字符串函数列表

编辑您实际上可以跳过IF,因为如果文本不在字符串中,replace()不会抛出错误.