英数字は後ろから何文字目まで？

質問

エクセルで、前側は数字、中臍は平仮名と漢字、後側は英数字の文字列が、複数のコラムに沢山存在します。
後側の後側は英数字の文字列は重要なので、赤くしたいのですけれど、後ろからカウントしていって何文字目までが英数字であるかを知りたいのですが、どなたか教えて下さい。お願いします。

回答No.3

kigoshi · ベストアンサー

まず、ご質問の趣旨を一貫して頂きたいと思います。
初めのご質問では
１）エクセルで
２）後側は英数字の文字列は重要なので、赤くしたい
という事でした。
それで、そういったコードを書きました。
しかし後の補足によりますと
ａ）ワードに応用
ｂ）後側英数字の文字列を抜き出す
ｃ）英数字のみではなく「’」アポストロフィもある
というように、当初入っていない条件があるようです。

また、私の方にも勘違いがありました。
英数字は半角で入力されている前提でコードを書きました。

以下、全角英数字とアポストロフィを検知し、文字を赤くするコードです。
変数ptは文字列後ろから調べていき、最初に「全角英数字＋アポストロフィでない」
文字が出てきた位置を表します。
rStr.Characters(Start:=pt + 1, Length:=Len(rStr.Value) - pt).Font.ColorIndex = 3の文は、ptの右隣の文字から「全文字数－pt」の文字数分を赤くする、という意味です。
文字列を抜き出す方法や、Word VBAへの応用は別質問を立てられた方がよろしいかと
思います。

Sub narrowRed()
Const myRange As String = "A1:A10"
Dim rStr As Variant
Dim pt As Integer
For Each rStr In Range(myRange)
For pt = Len(rStr.Value) To 1 Step -1
If (Mid(rStr.Value, pt, 1) < "０") Or (Mid(rStr.Value, pt, 1) > "ｚ") Then
If Mid(rStr.Value, pt, 1) <> "’" Then
rStr.Characters(Start:=pt + 1, Length:=Len(rStr.Value) - pt).Font.ColorIndex = 3
Exit For
End If
End If
If pt = 1 Then rStr.Characters.Font.ColorIndex = 3
Next
Next
End Sub

お礼

If (Mid(rStr.Value, pt, 1) < "０") Or (Mid(rStr.Value, pt, 1) > "ｚ") Then
のコードははじめてみました。
赤くなったのを目視できなかったので（既に赤くなっていた）、
Const myRange As String = "A1:A10"を
Const myRange As String = "A1:C100"に変えてみて、実行してみました。見事に、一面が赤くなりました。
ありがとうございました。
派生的な質問なのですけれど、このコードを、Selection Changeイベントにすれば、セルに入力を終えた時点で赤くなるでしょうか。