Excel VBA セルのコメントの文字を変更する

Excel VBAでセルのコメントの文字を変更する方法を記録します。

セルのコメントの文字を変更する場合は「Comment」オブジェクトの「Text」メソッドを使います。

< スポンサーリンク >





 

書き方

Rangeオブジェクト.Comment.Text Text:=”コメント文字”, Start:=開始文字位置, Overwrite:=True or False

※Start,Overwriteは省略可能

 

コメント内容を変更する

コメントの内容を全て入れ替える場合は、「Start」「Overwrite」を省略し、「Text:=」を書かなくてもOKです。

次のように書き込んでみます。

Sub test()
    Range(“A2”).Comment.Text “かきくけこ”
End Sub

VBAセルコメント変更

VBAセルコメント変更

 

元のコメントの前に文字を足したい場合は、「Overwrite」をFalseにします。

この場合「Text:=」も書かないと動作しません。

Sub test()
    Range(“A2″).Comment.Text Text:=”サシスセソ”, Overwrite:=False
End Sub

VBAセルコメント変更

VBAセルコメント変更

 

元のコメントの間に文字を足したい場合は、「Start」を数値で指定し、「Overwrite」をFalseにします。

元の文字の3文字目から文字を足したい場合は次のように書きます。

Sub test()
     Range(“A2″).Comment.Text Text:=”サシスセソ”, Start:=3, Overwrite:=False
End Sub

VBAセルコメント変更

VBAセルコメント変更

 

元のコメントの3文字目から入れ替えたい場合は、「Start」を数値で指定し、「Overwrite」を省略します。

Sub test()
    Range(“A2″).Comment.Text Text:=”サシスセソ”, Start:=3
End Sub

VBAセルコメント変更

VBAセルコメント変更

 

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします