|
以下のような記述で動作させたのですが空白のセルが2〜3行以上あると
動作が止まってしまいます。また1番最初の時もうまく処理してくれません。
用途的にはランダムに"A1:B100"まで日付を入力したいのですが・・・
どなたか、お助けください。
あとですね、出来れば入力前(空白のセル)も色を付けたいし、
入力後のセルも数字を消去したら、空白のセルと同じ色に戻ってもらいたいです。
よろしくお願い致します。
--------------------------------------------------------
Sub auto_open()
Dim MyColorIndex
Dim Worksheet_SelectionChange
Dim Worksheet_Change
Dim MyValue As Integer
Dim MyRange As Object
For Each MyRange In Worksheets(1).Range("A1:B100")
MyValue = MyRange.Value
'On Error Resume Next ’ここがもんだいかな?
With MyRange.Interior
Select Case MyValue
Case 1 To 31
.ColorIndex = 34
Case Else
.ColorIndex = xlNone
End Select
End With
Next
End Sub
--------------------------
どうぞ、よろしくお願い致します。
|
|