[[20060712155524]]　『セルの内容をコメントとしてポップアップ表示させ』（はじめてのxls）　ページの最後に飛ぶ

『セルの内容をコメントとしてポップアップ表示させたい』（はじめてのxls）

 [[20060712143852]]「セルのポップアップ」（はじめてのxls）
 に対してキリキ様からコメント挿入の方法を教えて頂きました。
 そこで，次にやりたくなったのは，セルの内容をポップアップコメントにしたい，ということです。
 セルの一部しか見えていないとき，全部を表示させるのに使いたいのです。よろしくお願い致します。

 あまり使えないと思いますが、、、
 取りあえずって事でｗ
　
 シートモジュールへ
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For Each x In ActiveSheet.Shapes
        x.Delete
    Next x
    If Len(Target.Value) = 0 Then: Exit Sub
    With ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, Target.Left + Target.Width, Target.Top + 5, 200, 50).Select
        Selection.Characters.Text = Target.Value
    End With
End Sub
　
 他に図形があるとOUTです。。。
 ＼Sheet1／
　　↑ココを右クリック → コードの表示 → 出てきた画面に上記をコピペ
　
 （キリキ）(〃⌒o⌒)b

 コメントを使って、
 Private Sub Worksheet_Change(ByVal Target As Range)
 Dim r As Range
 Application.EnableEvents = False
 For Each r In Target
    If Len(r) Then
       With r
           .ClearComments
           .AddComment
           .Comment.Text Text:=r.Text
       End With
     End If
 Next
 Application.EnableEvents = True
 End Sub
 (seiya)
           .

 seiya先生！
 (s)が～
　
 .ClearComments
              ~~
             追加してねｂ
　
 あと、数字を入力すると駄目っぽいですTT
 （キリキ）(〃⌒o⌒)b

 衝突しました～！
 .Comment.Text Text:=r.Value  →　.Comment.Text Text:=r.Text が、よさそうです。
（純丸）(o^-')b

 キリキさん、純丸さん、毎度！！
 修正しておきます。(seiya)

ありがとうございます。VBの（マクロ？）はこれから勉強します（はじめてのxls）。

上の seiya さんのマクロで私の思い通りのことが実現されました。
セルに書き込めば、同じ内容のコメントが付加され、表示できます。
ありがとうございました。VB マクロの使用初体験でした。
ついでに、図々しいお願いなのですが、この機能をショートカットキー、
あるいはボタンでもマウスメニュでも何でもいいのですが、ワンタッチで
ＯＮ・ＯＦＦしたいのですがお教え頂けないでしょうか。
私はまだ本当に初心者で、単純な作表作業しかできません。
よろしくお願い致します。

 まず、現在使用しているコードを削除してください。

 1) Alt + F11 でVBEを起動し、[挿入]-[標準モジュール]
 2) 右空白部分に下記コードを貼り付けて、x　をクリックしてExcel画面に戻る
 3) [ツール]-[マクロ]-[マクロ] で　Add_RClick_Menu を選択して　実行

 Sub AddR_Click_Menu()
 Dim m
 Set m = Application.CommandBars("Cell").Controls.Add()
 With m
     .Caption = "例のヤツ"
     .OnAction = "test"
     .BeginGroup = True
 End With
 End Sub

 Sub test()
 Dim r As Range
 For Each r In Selection
     If Len(r) Then
        With r
             .ClearComments
             .AddComment
             .Comment.Text Text:=r.Text
        End With
     End If
 Next
 End Sub

 4) 適用セルを選択してから、右クリックで 例のヤツ を選択してください。
 (sseiya)

早速、ありがとうございます。.Comment.Text Text:=r.Text のドットを補って、
うまく実行できました。VB の手続きなど大変勉強になりました。
ところで、はじめ何度か操作を失敗して、そのときの痕跡としてマウス右メニュに
「例のヤツ」という項目が３つも残ってしまいました。これを消すには
どうしたらよいでしょうか？

 とりあえずメニューから削除するコードを書いておきますので
 Del_RClick_Menuを実行してから
 また、再度Add_RClick_Menuを実行してください。

 Sub Del_RClick_Menu()
 Dim m
 For Each m In Application.CommandBars("Cell").Controls
       If m.Caption = "例のヤツ" Then m.Delete
 Next
 End Sub
 (seiya)

いろいろありがとうございました。（はじめてのxls）より。
今後ともよろしくお願い致します。

コメント返信：

[ 一覧(最新更新順) ]

[[20060712155524]] 『セルの内容をコメントとしてポップアップ表示させ』（はじめてのxls） ページの最後に飛ぶ

[[20060712155524]]　『セルの内容をコメントとしてポップアップ表示させ』（はじめてのxls）　ページの最後に飛ぶ