|
▼まり さん:
こんばんは。
>EXCELのコメント機能について質問です。
>
>G1のセルに書き込まれている内容を全てF1に表示させたいのですが、
>G1に書き込まれている文章に“改行”“スペース”が含まれているため
>コメントが全部表示されません。
セルG1の内容は、書き込まれている全ての内容が表示されている状態にセルの列幅及び、行幅が設定されていればの話ですが、コメント枠もセルの大きさに合わせてしまう
方法ではいかがですか?
以下は、セルG1に書き込まれている内容をセルF1のコメントとして表示する例です。
'=============================================================
Sub main()
Dim cmt As Comment
With Range("f1")
On Error Resume Next
.Comment.Delete
On Error GoTo 0
Set cmt = .AddComment(Range("g1").Text)
With cmt
.Shape.Height = Range("g1").Height
.Shape.Width = Range("g1").Width
.Shape.TextFrame.Characters.Font.Size = Range("g1").Font.Size
End With
End With
End Sub
確認して下さい。
>
>コメント枠のサイズを自動変更する方法があれば教えていただきたいのですが。
>
>---↓コメントを表示するプログラムは以下のように書きました↓------------------
>
>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
>-------------------------------------------------------------------
>
>よろしくお願いします。
|
|