|
こんにちは。かみちゃん です。
>Codeは5桁の半角英数文字で構成され、検索時InputBOXの五箇所に
>Codeを入力し、入力していない箇所は曖昧検索と認識、検索をかけ、その結果に
>色を付けたいです。
Codeが数値の場合であれば、以下の方法でできると思います。
Sub test()
Dim strData(6) As String
Dim i As Integer
Dim c As Range
strData(0) = "" '検索文字列生成用
strData(1) = "1" '1つめのInputBoxの値
strData(2) = "" '2つめのInputBoxの値
strData(3) = "2" '3つめのInputBoxの値
strData(4) = "" '4つめのInputBoxの値
strData(5) = "4" '5つめのInputBoxの値
'検索文字列の生成
For i = 1 To 5
If strData(i) = "" Then
strData(0) = strData(0) & "?"
Else
strData(0) = strData(0) & strData(i)
End If
Next
'該当セルを検索
For Each c In Range("A1:A10")
If Format(c.Value, "@") Like strData(0) Then
c.Interior.ColorIndex = 3
Else
c.Interior.ColorIndex = xlNone
End If
Next
End Sub
Codeが文字列の場合は、上記で検索文字列を生成して、オートフィルタの条件とする方法でもできます。
|
|