|
▼ジジ さん:
>ただ、「1」から始まる値なので「1テスト」でも黄色になるようにしたいので、
どのような値が入るのかよくわかりませんので、変化する値を
限定できませんが、
以下のように変えてみてください。
'・・・・・・
Dim myVal
'・・・・・・
For Each r In Target
If Not IsEmpty(r.Value) Then
myVal = Left$(r.Value, 1)
Select Case myVal
Case 1: myNO = 6
Case 2: myNO = 4
Case 3: myNO = 8
Case 4: myNO = 3
Case Else: myNO = xlNone
End Select
r.Interior.ColorIndex = myNO
End If
Next
'・・・・・・
>また、列の範囲はZ列までとしましたが、さらに増えるかもしれません。
>その場合、
>If Application.Intersect(Target, Range("F:AZ")) Is Nothing Then Exit Sub
>のようにすればいいのでしょうか?
そうです。
|
|