替换文本框中的文本

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 中的字符串函数列表

编辑< /strong> 您实际上可以跳过 IF，因为如果文本不在字符串中，replace() 不会抛出错误。