趣味のエクセルで当てよう!ロト・ナンバーズ

当選狙いで、ナンバーズ4をメインにロト、ビンゴ5などの各種データリストや、それらの分析用エクセルVBAなどについて書いてます。

コメント追加マクロ

    

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


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




'コメントの追加をする。(セルは一度に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