|
▼ジジ さん:
>シート内のF列からZ列内を対象に
>「1」から始まる値を含むセルの背景を黄色に
>「2」から始まる値を含むセルの背景を緑色に
>「3」から始まる値を含むセルの背景を水色に
>「4」から始まる値を含むセルの背景を赤色に
>するVBAはどんなコードにすればいいのでしょうか。
>
>値はこれから入力するもので、随時変更もします。
>また、コピーして入力されることもあります。
>これらにも対応して背景色を変化させたいです。
おはようございます。
複数貼り付けられることもあるのでしょうか?
こんな感じになると思います。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myNO As Long
Dim r As Range
If Application.Intersect(Target, Range("F:Z")) Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each r In Target
If IsNumeric(r.Value) Then
Select Case Left$(CStr(r.Value), 1)
Case "1": myNO = 6
Case "2": myNO = 4
Case "3": myNO = 8
Case "4": myNO = 3
End Select
r.Interior.ColorIndex = myNO
Else
r.Interior.ColorIndex = xlNone
End If
Next
Application.EnableEvents = True
End Sub
|
|