エクセルのセルにチップヘルプを付けたいのですが。

質問

エクセルでカレンダーを作っています。日にちの入ったセルにマウスオーバーした時、あらかじめ入力されたその日の予定をチップヘルプで出したいのですが。
VBAで組みたいのですが、やり方が全くわかりません。
どなたかご教授願えませんか。
宜しくお願いします。

回答No.4

hotosys · ベストアンサー

例えば
sheet1が
2008 1 1 2 3 4 5
2008 5 1 2 3 4 5
sheet2が
日付 予定
2008/1/1 初詣
2008/1/5 新年会
2008/1/3 スキー
2008/5/3 飲み会
2008/5/5 こどもの日
だとして、以下を実行すると、sheet1の予定があるセルの右上に赤い三角が表示されて、カーソルが上にくるとその内容を表示するはず。
Sub test()
Dim r As Integer
Dim c As Integer
Dim f As Range
For r = 1 To Sheet1.Cells(1, 1).End(xlDown).Row
For c = 3 To Sheet1.Cells(r, 1).End(xlToRight).Column
If Not Sheet1.Cells(r, c).Comment Is Nothing Then
Sheet1.Cells(r, c).Comment.Delete
End If
Set f = Sheet2.Columns("A:A").Find(What:=DateSerial(Sheet1.Cells(r, 1), Sheet1.Cells(r, 2), Sheet1.Cells(r, c)), LookIn:=xlFormulas, LookAt:=xlWhole)
If Not f Is Nothing Then
Sheet1.Cells(r, c).AddComment
Sheet1.Cells(r, c).Comment.Visible = False
Sheet1.Cells(r, c).Comment.Text Text:=f.Offset(0, 1).Value
End If
Next
Next
End Sub

回答No.3

hana-hana3

＞このコードは、何というプロシジャーにコーディングするのですか。

特別な使い方をしない限り、標準モジュールに書けば良いです。
その際には、シート名などもきちんと記入した方が良いでしょう。

あとは、いつどんな風に記入するのかと言うことになります。

回答No.2

hotosys

Range("A1").Comment.Text "あいうえおかきくけこ"

補足

ご回答ありがとうございます。

直接に私の希望する機能は無いようなので、
セルにリンクを張り、そのリンクをマウスオーバーした時に出る
チップヘルプに、希望の内容を書き出すことはできますか。
よろしければ、ご教授下さい。

回答No.1

hana-hana3

ご希望のような機能はありません。セルをクリックしてコメントを表示する事は可能です。

On Error Resume Next
With Range("A2")
.AddComment
.Comment.Text Text:="hogehoge1"
End With
On Error GoTo 0

お礼

早速のアドバイスありがとうございます。
＞ご希望のような機能はありません。
そのようですね。別の方法を考えて見ます。
ありがとうございます。

補足

ありがとうございます。
このコードは、何というプロシジャーにコーディングするのですか。
よろしければ、ご教授お願い致します。

セルをクリックした時のイベントが無いので。。。