|
▼ichinose さん:
ご丁寧な回答ありがとうございます。
>セルG1の内容は、書き込まれている全ての内容が表示されている状態にセルの列幅及び、行幅が設定されていればの話ですが、コメント枠もセルの大きさに合わせてしまう
>方法ではいかがですか?
セルG1に書き込まれている内容が多いため、
その列幅および行幅が全て表示されるように設定していません。
他に方法はないでしょうか??
>▼まり さん:
>こんばんは。
>
>
>>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
>>-------------------------------------------------------------------
>>
>>よろしくお願いします。
|
|