替換文本框中的文本

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 

A List of String Functions in VBA

編輯實際上，你可以跳過IF因爲更換（）如果文本不是字符串中不會引發錯誤。