| |
▼ichinose さん：
ご丁寧な回答ありがとうございます。
>セルＧ１の内容は、書き込まれている全ての内容が表示されている状態にセルの列幅及び、行幅が設定されていればの話ですが、コメント枠もセルの大きさに合わせてしまう
>方法ではいかがですか？
セルＧ１に書き込まれている内容が多いため、
その列幅および行幅が全て表示されるように設定していません。
他に方法はないでしょうか？？
>▼まり さん：
>こんばんは。
>
>
>>EXCELのコメント機能について質問です。
>>
>>Ｇ１のセルに書き込まれている内容を全てＦ１に表示させたいのですが、
>
>>Ｇ１に書き込まれている文章に“改行”“スペース”が含まれているため
>>コメントが全部表示されません。
>
>セルＧ１の内容は、書き込まれている全ての内容が表示されている状態にセルの列幅及び、行幅が設定されていればの話ですが、コメント枠もセルの大きさに合わせてしまう
>方法ではいかがですか？
>以下は、セルＧ１に書き込まれている内容をセルＦ１のコメントとして表示する例です。
>
>'=============================================================
>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
>>-------------------------------------------------------------------
>>
>>よろしくお願いします。
|
|
まり
- 04/7/21(水) 22:46 -
