あまり糞の役にも立ちそうにないが、セルの値をコメントに置き換えるマクロを作ってみた。
予めF列にコメントを追加するアドレスを入力しG列にコメントを入力しておく。 そしてマクロを実行する。 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
by slayer0210
| 2005-11-25 23:51
| マクロ
|
カテゴリ
以前の記事
フォロー中のブログ
検索
最新のトラックバック
その他のジャンル
ファン
記事ランキング
ブログジャンル
画像一覧
|
ファン申請 |
||