ｅｘｃｅｌ のコメント欄に文字を一文字ずつ表示していきたい。

質問

エクセルのセルに覚えたい項目を設定し、マウスを近づけるとコメント欄がでてくるようにして、コメント欄に覚えたい内容を表示するようにしたのですが、一度に文が全部出てきてしまうので、マウスのクリックごとに一文字ずつコメント欄に表示されるようにしたいのですが、マクロで可能でしょうか。暗記ソフトでは一文字ずつ表示してくれるものはあるのですが、体系的に覚えなければならないので、是非excelでやりたいのですが。教えてください。マクロの記述例をお願いします。困っています。

回答No.4

xls88 · ベストアンサー

API関数と、右クリックイベントを使ってみました。

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
　　If Target.Address <> Range("E5").Address Then Exit Sub
　　Cancel = True
　　Call testCmntTxt
　　While GetAsyncKeyState(vbKeyRButton) < 0
　　　　DoEvents
　　Wend
End Sub

Sub testCmntTxt()
　　Static n As Integer
　　Dim str As Variant

　　str = Array("あ", "い", "う", "え", "お")
　　Select Case n
　　　　Case Is >= 5: n = 0
　　　　Case Is <= 4: n = n + 1
　　End Select
　　With ActiveCell.Comment.Shape.TextFrame
　　　　.AutoSize = True
　　　　Select Case n
　　　　　　Case Is = 0: .Characters.Text = "あいうえお"
　　　　　　Case Is <= 5: .Characters.Text = str(n - 1)
　　　　End Select
　　End With
End Sub

補足

ありがとうございます。本当に感謝でいっぱいです。この文字列（あ、い、う、え、お）をセルの内容として読み出して（このセルはディスプレー画面の外に配列しておく）表示する方法は可能でしょうか。