セルの値をコメントに置き換え

あまり糞の役にも立ちそうにないが、セルの値をコメントに置き換えるマクロを作ってみた。
予めF列にコメントを追加するアドレスを入力しG列にコメントを入力しておく。
そしてマクロを実行する。
e0080122_23423385.gif

 Sub コメントに置き換え()
  Dim i As Long
  Dim myadd As String
  Dim mystr As String

    For i = 1 To Range("F65536").End(xlUp).Row
      With Cells(i, 6)
        myadd = .Value
        mystr = .Offset(, 1).Value
      End With

      With Range(myadd)
        On Error Resume Next
          .Comment.Delete 'とりあえず存在するコメントを消す
        On Error GoTo 0
          .AddComment (mystr) 'コメントを追加する
      End With
   Next
 End Sub
e0080122_2350331.gif

[PR]
by slayer0210 | 2005-11-25 23:51 | マクロ


<< シート名の変更 図を参照する >>