|
▼kazu さん:
>エクセル2003では条件付き書式は3個しか設定できませんが、5個設定できるようにするにはどうすでばいいですか。よろしくお願いします。
できないものは、できないと思います。
チェンジイヴェントで対応するしかないのでは?
例)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myNo As Integer
With Target
If IsEmpty(.Value) Then Exit Sub
If Application.Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Select Case .Value
Case "あ": myNo = 1
Case "い": myNo = 2
Case "う": myNo = 3
Case "え": myNo = 4
Case "お": myNo = 5
End Select
.Interior.ColorIndex = myNo
Application.EnableEvents = True
End With
End Sub
|
|