ExcelVBA：テキストボックス上のカーソルを動かして選択範囲を指定したときに判定するプログラム

質問

Excelのプログラムでテキストボックス上のカーソルを動かし、テキストボックスの文字が青くなって、選択範囲を終えたとき（マウスを離したとき）に、範囲を選択したかどうか調べるプログラムを作りたいのですがどのようにすればよいのでしょうか？
MouseUpでやってみたのですが、選択しないまま（青くならない）マウスを離すと同じことになってしまうのでこの判定をしたいのですが。

回答よろしくお願いします。

回答No.1

fumufumu_2006 · ベストアンサー

TextBoxの、SelStartと、SelLengthで判定できます。
例えば・・・

Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If TextBox1.SelLength = 0 Then
MsgBox "選択されていません"
Else
MsgBox Str(TextBox1.SelStart + 1) & "文字目から" & TextBox1.SelLength & "文字選択されています"
End If
End Sub

お礼

なるほど。SelStartで選択した最初の場所が分かり、SelLengthで文字数が分かるんですね。

ありがとうございました。