ExcelのVBAで下線のついている文字列の前後の位置を取得したい。

ExcelのVBAで下線のついている文字列の前後の位置を取得したい。
例えば、下記のような文章で「sample」という文字列に下線がついている場合
「sample」の文字列の前後の位置（4,10）を取得したい

これはsampleの文章です。

使用OS：Windows XP
使用ソフト：Microsoft Excel 2003

ご存知の方がおられましたらご回答をよろしくお願いします。

No.1 ベストアンサー 回答者： merlionXX 回答日時： 2008/09/06 13:56

アクティブのセルを検索し下線開始位置および終了位置を取得する一例です。

Sub test01()
Dim i As Integer, n As Integer, s As Integer, l As Integer
i = Len(ActiveCell)
For n = 1 To i
If ActiveCell.Characters(n, 1).Font.Underline <> xlNone Then
s = n
Exit For
End If
Next
If s > 0 Then
For n = s + 1 To i
If ActiveCell.Characters(n, 1).Font.Underline = xlNone Then
l = n
Exit For
End If
Next
End If
MsgBox "開始点：" & s & vbCrLf & "終了点：" & l
End Sub

この回答へのお礼

早速やってみたところ問題を解決することができました。
ご回答していただきどうもありがとうございました。

お礼日時：2008/09/06 14:27