|
いつもお世話になってます。
条件付書式で、ワイルドカードを使いたいのですが教えて下さい。
A〜Lのセルがあり、C列にとある文字が入ればそのセルの色を変えてます。
中に1つだけ最初の3文字だけは一致でその後が違う文字があって、
その3文字が一致すれば「20番」の色を付けたいのです。
色々検索したんですが、ヒットしなかったので・・・ご教授の方お願いします。
A B C 〜 L
1 あ
2 い
3 う
4 ○○○1 →色20番
5 ○○○2 →色20番
6 ○○○3 →色20番
7 ○○○1 →色20番
ちなみに下記が今入れているコードです。
Sub test()
Dim i, c
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
Select Case Cells(i, 3).Value
Case "あ": c = 3
Case "い": c = 5
Case "う": c = 6
Case Else: c = 0
End Select
Cells(i, 1).Resize(, 12).Interior.ColorIndex = c
Next
End Sub
|
|