Excelで数字のあるセルにマーカーをつける

質問

Excelで数字のあるセルにマーカーをつける

Excelで数字のあるセルにマーカーをつけたいと思っています。
列F,G,I,Jに0.3、1,400や4といった数字がありその数字にマーカーをつけたいです。
wordで[1-9]を検索するように正規表現が使えればいいのですが
Excelでは出来ないのでしょうか？

Selection.Find(What:="1", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, MatchByte:=False, SearchFormat:=True).Activate

でひとつずつ探すしかないのでしょうか？

何かやり方をご存知の方、知恵をお貸し下さい。
宜しくお願いします。

回答No.2

merlionXX · ベストアンサー

文字列の数字でしたか・・。
そうなると一度には無理なので、とりあえず文字列を探し、その中で数値化できる値をさがし、Unionでまとめたらどうでしょうか。

Sub test01()
　　Dim myC As Range, myRng As Range
　　For Each myC In ActiveSheet.Range("F:G,I:J").SpecialCells(xlCellTypeConstants, xlTextValues)
　　　　If IsNumeric(myC.Value) Then
　　　　　　If myRng Is Nothing Then
　　　　　　　　Set myRng = myC
　　　　　　Else
　　　　　　　　Set myRng = Union(myRng, myC)
　　　　　　End If
　　　　End If
　　Next
　　myRng.Select
End Sub

お礼

ありがとうございます。出来ました！
私には馴染みのない単語だらけで解読するのに時間が掛かってしまいました。
すいません。

これで次の作業へ進めそうです。
まだまだ作りたいマクロの一部なのでなのでまたご質問させて頂くかもしれません。
どうぞ宜しくお願い致します。

回答No.3

imogasi

マーカーがセルパターン色で良いなら、VBAを使わずとも、
条件付き書式で出来るようだ。
範囲をE2:E10として、え２：E10を範囲指定
書式ー条件付書式ーセ会式が
数式は　=E2<>VALUE(E2)
セルパターン色を淡い色に設定
おｋ
例
１２
12
345
２３４
３４
2344
１，４，６に色が付く。６はセルの表示形式を文字列にして数字を入れたもの。
英字、漢字にしても色は着かない。
範囲内全セルに１つずつVBAでE2<>VALUE(E2)とおなじことをしてもうまくいくかも。Value関数はVBAではval。未確認。

お礼

ありがとうございます。出来ました！
Valを使うんですね。条件付き書式は初めて使いました・・・。
勉強になりました！

回答No.1

merlionXX

F,G,I,J列ですね？

数式で数値が表示されたセルなら
Range("F:G,I:J").SpecialCells(xlCellTypeFormulas, xlNumbers).Select

定数で数値があるせるなら
Range("F:G,I:J").SpecialCells(xlCellTypeConstants, xlNumbers).Select
で、一度に選択できます。

お礼

ありがとうございます！
すいません、私の言葉不足でした。
数値、文字列なんです。セルの左上に緑の印があります。
文字列の数字を一気に検索する事は可能でしょうか？

でもこれはこれで知らなかった機能なので今後に使えればと思います。
ありがとうございます。