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

質問

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

これはsampleの文章です。

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

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

回答No.1

merlionXX · ベストアンサー

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

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

お礼

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