ＥＸＣＥＬで、文字列に含まれる色を判別したい

質問

１つのセルに、半角小文字アルファベットabc...zの文字列が入っています。
その中のいくつかのアルファベットが赤色になっています。
赤色のアルファベットだけを見つけて、別のセルにそのアルファベットを
抽出することはできるのでしょうか？

回答No.2

Cor_moriyan · ベストアンサー

VBA(マクロ)でなら実現できます。

Sub ex()
　　Dim rgTARGET　　As Range
　　Dim intINDEX　　As Integer

　　Set rgTARGET = ThisWorkbook.Worksheets("Sheet1").Range("A1")
　　For intINDEX = 1 To Len(rgTARGET.Value)
　　　　With rgTARGET.Characters(intINDEX, 1)
　　　　　　MsgBox .Text & "-" & .Font.ColorIndex
　　　　End With
　　Next
End Sub

もし、マクロがわかるなら上記を参考にして下さい。
赤なら ColorIndex は 3 です。

お礼

早速にご回答ありがとうございます。
マクロはまったく使ったことがないですが
なんとなく、昔のbasic風なので
これを機会に勉強してみます。
たいへんありがとうございました！

回答No.1

gonshingo

結果としてそういうことはできるだろうけど、
直接そのような関数はない。

あるていどは手入力で別表にいれるなりしないと無理。
と、思う。