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

質問

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

回答No.3

xls88

進んでいますか。
解らなければ遠慮なく、補足欄にでも書き込みしてください。
先のコードをちょっと見直してみました。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　Static n As Integer
　　Dim str As Variant

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

補足

ありがとうございます。いろいろやっています。実はマウスボタンを押しているときだけ一文字ずつ表示し、マウスボタンを離すと表示が一時停止するようにできればと思うのですが、MousedownやMouseup関数が見当たらないこと、ダブルクリックするたびにコメント欄が描画されるためにちらつくこと、これを変えられればと調べています。