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

質問

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

回答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イベントにすれば、セルに入力を終えた時点で赤くなるでしょうか。

回答No.4

kigoshi

Selection Changeイベント
ではなく
Worksheet_Changeイベントの方がよろしいと思います。

しかし、とりあえず、この質問を一度締め切られた方がよろしいように思います。
そして、最終的になにを実現したいのか具体的にまとめて別質問をたてられた方がよろしいかと。

補足

大変にありがとうございました。このコードを使わせていただくと共に、このコードをベースにして別のやりたいコードを発展的に考えて見ます。ここで閉じます。

回答No.2

imogasi

>重要なので、赤くしたいのですけれど
これは
（１）手操作
（２）ＶＢＡ
出しか出来ないと思うが、 ＶＢＡの質問ですか。
明確に書いてない。
関数で後から何文字かが割り出せても、文字列の１部の色を関数では
設置できないのだし。
回答のお礼から推定すると、（２）らしいが、質問にははっきり書いておくこと。
関数で後半の英数の部分の桁数割り出しも難しいと思うが。
ＶＢＡなら後ろから１文字ずつ判別して行けばしまいでは無いですか。
正規表現的なやり方に拘らなくても。

補足

すみません。手操作ではありません。
質問は、エクセルにおいて、としましたが、ワードでできると助かります。
エクセルのセルに記載した文字列を１文字ずつ判別してカタカタ及び英数字を赤くするコードはすでに使っているのですが、第１の・・という文字列では、前側の１も赤くなってしまいます。
このコードをワードで使おうとしたのですが、使える場合には、やはり、前側の１も赤くなってしまうと思います。
それで、新しいコードを模索しています。

>ＶＢＡなら後ろから１文字ずつ判別して行けばしまいでは無いですか。
これは、InStrRev関数で処理できる、ということで良いでしょうか。
文字列関数を調べただけでまだ使ったことがありません。
loopで回すか、Find関数を組み合わせるかといったことも、現段階では目学問の域を出ません。特にわからないのは、InStrRev関数の引数について、（０－９ａ－ｚＡ－Ｚ’）を直接入れられないと思うのですけれど、この処理が分かりません。

回答No.1

kigoshi

ご質問の意味をちゃんと理解していないかも知れませんが、以下の手順をお試し下さい。

１）シートタブを右クリック、「コードの表示」をクリック。
２）画面右側のエディタエリアに下記コードを貼り付け。
３）対象範囲を指定。
　　コード２行目の　Const myRange As String = "A1:C100"←の部分を実際の範囲に
　　替える（このままではA1セル～C100セルのみを処理します）。
４）[Ｆ５]キーを押してマクロを実行。

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

もし期待通りでなかった場合、補足願います。

お礼

ありがとうございました。
追伸：
rStr.Characters(Start:=pt + 1, Length:=Len(rStr.Value) - pt).Font.ColorIndex = 3
のところの前側部分の意味が分かりません。
私は、この質問について以下のようなコードになると考えていました。
実際のコードはまだ作れないのですが。
～～～～～～～ワードに応用した場合～～～～～～～～～～～～～
myText = Selection.Range.Text

Trim関数により前側と後側の空白を取り去る

Selection.Range.Textの文字数Ｘをカウントする

InStrRev関数により、myTextのうしろ側の英数字よりも１字前の和文字について、前からの位置ｎを検出する
myTextは、
うしろ側が英数字（０－９Ａ－Ｚａ－ｚ’）であり、
前側が和文字（あんアン亜）である。
～～～～～～～～～～～～～～～～～～～～～～～～
位置ｎが分かれば、以下の抜き出しができる。
LEFT関数により、myTextについて前からｎ字までをmyText１として抜き出す。

RIGHT関数により、myTextについてうしろからｘ－ｎ字までをmyText２として抜き出す。

補足

回答ありがとうございます。
Sheet1のA1:C100に
第１のエンジン装置３４ｃ’
第３のエンジン装置１３ａ
第５のエンジン装置２２ｃ
第６のエンジン装置２６
第８のエンジン装置２ｃ
第４のエンジン装置５ｂ
第２のエンジン装置４ｃ’
第１のエンジン装置１２３ａ
第１２のエンジン装置２３
のような文字列で全て埋め尽くして、実行してみましたが何も変化はありませんでした。