Ｅｘｃｅｌのリストボックスにコメントは付けられないでしょうか

質問

同じような質問が他に出ていればそのＮｏをお教えいただいても結構なのですが・・・

Ｅｘｃｅｌのリストボックスにカーソルが合わさるとセルにつけられるようなコメントが表示できないでしょうか

リストボックスを大きくは作れない事情からリストボックスにカーソルが合わさった時に選択の補足説明が出来ないものかと考えております

コメントではなくほかの代替機能でも良いのですがどなたかご教示を願います

因みにＶＢはわかりません。

回答No.1

nishi6 · ベストアンサー

コントロールツールボックスのリストボックスをシートに貼り付けた場合です。
つい最近、ボタンについて回答しましたのでそれを流用しています。
ＶＢは・・・とあるので手順を追って書きます。

まず、リストボックスで隠れるセルにコメントを書きます(リストボックスを動かして)。そのセルを例えば、E5とします。
コメントを非表示にして、リストボックスでコメントを書いたセルを隠します。
そのシートのコードウインドウに下記モジュールを貼り付けます。リストボックスのコントロール名はListBox1です。(既定値)

マウスをリストボックスの中央に近づけるとコメントが表示され、リストボックスから外れると非表示になるはずです。
コメントの位置は適当に修正します。
マウスがリストボックスの縦横1/3から2/3にくるとコメントを表示しています。他のコントロールでも可能と思います。
ご参考に。

メニューから、ツール→マクロ→Visual Basic Editor でVBEが面に移り、
メニューから、表示→プロジェクトエクスプローラで 出てきたプロジェクトエクスプローラのSheet1をダブルクリック。コードウインドウ（広い画面）に下のコードを貼り付けます。

Private Sub ListBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
　　Dim myCommentAddress As String
　　myCommentAddress = "E5" 'コメントを書いたセル
　　With ListBox1
　　　　Range(myCommentAddress).Comment.Visible = False
　　　　If (.Width / 3 < X And X < .Width * 2 / 3) Then '1/3、2/3は例
　　　　　　If (.Height / 3 < Y And Y < .Height * 2 / 3) Then
　　　　　　　　Range(myCommentAddress).Comment.Visible = True
　　　　　　End If
　　　　End If
　　End With
End Sub

参考URL：

http://www.okweb.ne.jp/kotaeru.php3?q=158326

お礼

聞いてみるものですねぇ。どなたからも回答はこないのかと思っておりました。うれしくて涙が出るほどです。ＶＢに詳しい人のとってはなんということも無いのですか？それともこれは高等技術に属するものですか？
とにもかくにもありがとうございました。