セル値そのものをコメントに表示したい場合、セル一つくらいでしたら、そのまま普通にすれば大丈夫ですが、結構の量となると、やっぱり時間がかかるということで。。。
X = ActiveCell.Value
ActiveCell.AddComment X
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Shape.TextFrame.AutoSize = True
アクティブセルの値をコメントに転記して、常にコメントを表示するのではなく、マウスが上に来たら表示されるようにして、また、コメントのボックスの大きさは自動調整、、、って感じです。
コメントのボックスの大きさを指定する場合、最後のところが
ActiveCell.Comment.Shape.Width = 50
ActiveCell.Comment.Shape.Height = 15
って感じです。 加嶋
◆出口会計事務所のHP◆
X = ActiveCell.Value
ActiveCell.AddComment X
ActiveCell.Comment.Visible = False
ActiveCell.Comment.Shape.TextFrame.AutoSize = True
アクティブセルの値をコメントに転記して、常にコメントを表示するのではなく、マウスが上に来たら表示されるようにして、また、コメントのボックスの大きさは自動調整、、、って感じです。
コメントのボックスの大きさを指定する場合、最後のところが
ActiveCell.Comment.Shape.Width = 50
ActiveCell.Comment.Shape.Height = 15
って感じです。 加嶋
◆出口会計事務所のHP◆