|
EXCELのコメント機能について質問です。
G1のセルに書き込まれている内容を全てF1に表示させたいのですが、
G1に書き込まれている文章に“改行”“スペース”が含まれているため
コメントが全部表示されません。
コメント枠のサイズを自動変更する方法があれば教えていただきたいのですが。
---↓コメントを表示するプログラムは以下のように書きました↓------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim i As Integer
Dim n As Integer
n = 5
'
Do
n = n + 2
If Target.Column = n Then ' 入力列番号 A列=1,
' ここ ↓ がコメントの列番号
With Cells(Target.Row, n - 1)
.ClearComments
If Target.Text = "" Then
Exit Sub
End If
End With
End If
If n >= 59 Then
Exit Do
End If
Loop
End Sub
-------------------------------------------------------------------
よろしくお願いします。
|
|