vba - テキストボックス内のテキストを置き換える

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の文字列関数のリスト

編集テキストが文字列に含まれていない場合、replace（）はエラーをスローしないため、実際にはIFをスキップできます。