趣味のエクセルマクロ

ナンバーズ4などの数字選択式宝くじデータ分析用の自作マクロおよびナンバーズ4の各種データリストなどをブログにしています。

コメント追加マクロ

メニューからのコメント追加が面倒になりました。

ネット情報からコメント追加マクロを見つけましたので私なりに改造しました。
やはりコメントつけるのが楽になりますね。




'コメントの追加をする。(セルは一度に1つのみ,既にコメントある場合エラーになる


Sub AddComment()
    Dim cmt As Comment      ' 追加するコメントのオブジェクト変数
    Dim gyou, retu As Integer 'コメント追加行と追加列の整数変数
    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, retu  As Integer 'コメント削除行と削除列
     Dim start As Integer   '処理選択用

     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