|
以下のマクロを組んで、A2が数字であれば、A1:A3のセルに
色をつけるとしましたが
なぜかA2:A4に反応する理由が分かりません。理由を教えてください。
また数字に反応をIsnumetricにする方法が分かりません。教えていただければ幸いです。
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim i As Integer
If Application.Intersect(Target, Range("A2")) Is Nothing Then Exit Sub
If Range("A2") = "" Then Exit Sub
With Target
On Error Resume Next
Select Case .Value
Case i = 1 To 1000
.Range("A1:A3").Interior.ColorIndex = 43
Case Else
.Range("A1:A3").Interior.ColorIndex = xlNone
End Select
On Error GoTo 0
End With
End Sub
|
|