|
▼あさか さん:
今晩はこれで一度試してみてください。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyValue As Integer
Dim MyRange As Object
For Each MyRange In Worksheets(1).Range("A1:B100")
MyValue = MyRange.Value
With MyRange
Select Case MyValue
Case 1 To 31
.Interior.ColorIndex = 34
Case Else
.Interior.ColorIndex = xlNone
End Select
End With
Next
End Sub
>動作なんですが言葉ではうまく言えませんので図で・・・
>
> A B
>1 1 1 ←入力するとセルの色が変わる
>2 ←空白のセルの色
>3 12 2 ←削除すると空白のセルと同じ色に戻る
>:
>:
>100
>
>てな感じで入力するたびにセルの色が変化するよう
>動いてくれるとうれしいのですが
>
>ご理解していただけますか?
|
|