コメント追加マクロ
メニューからのコメント追加が面倒になりました。
ネット情報からコメント追加マクロを見つけましたので私なりに改造しました。
やはりコメントつけるのが楽になりますね。
'コメントの追加をする。(セルは一度に1つのみ,既にコメントある場合エラーになる)
Sub AddComment()
Dim cmt As Comment ' 追加するコメントのオブジェクト変数
Dim gyou As long, retu As long 'コメント追加行と追加列の整数変数
Dim moji As String 'コメント内容の文字変数(数字も文字として扱う)
gyou = ActiveCell.Row ’行位置を変数に格納する
retu = ActiveCell.Column’列位置を変数に格納する
' moji = InputBox("回号入力")’コメントの回号入力する(ここでは2858--2863)
moji = Application.InputBox("回号入力")
If moji = False Then End 'コメント入れずに終了する
'(上の式でエラー出ました、今は使わないようにしてます)
’コメントのオブジェクト変数にコメントを入れる( cmt←moji )
Set cmt = Cells(gyou, retu).AddComment(Text:=moji)
'gyou,retuを使わない時は下の様でも良いです。
Set cmt = ActiveCell.AddComment(Text:=moji)
cmt.Shape.TextFrame.AutoSize = True 'コメントサイズの自動調整(長方形)
' 文字列の形式設定
With cmt.Shape.TextFrame.Characters.Font
.Name = "MS ゴシック"
.FontStyle = "標準"
.Size = 9
.Bold = True’太字
End With
End Sub
----------------------------------------------------
’コメント削除(単一セルの場合)
’ cmt.Comment.Delete
Sub DelComment()
Dim cmt As Comment ' コメントのオブジェクト変数
Dim gyou As long, retu As long 'コメント削除行と削除列
Dim start As long '処理選択用
gyou = ActiveCell.Row
retu = ActiveCell.Column
start = MsgBox("コメントを削除しますか?", vbYesNo)
If start = vbNo Then End
Set cmt = Cells(gyou, retu).Comment
'gyou,retuを使わない時は下の様でも良いです。
Set cmt = ActiveCell.Comment
cmt.Delete 'コメントを削除する
End Sub
-------------------------------------------------------
’コメント削除(複数セルの場合)
’ hanni.ClearComments
Sub clearlComment()
Dim hanni As Range ’複数セル範囲用
Dim start As Integer '処理選択用
start = MsgBox("複数のコメントを削除しますか?", vbYesNo)
If start = vbNo Then End
Set hanni = Selection
hanni.ClearComments '複数セルのコメントを削除する
End Sub