10/01/12 21:43:19
With Worksheets(DATA)
.Range("A3") = ""
.Range("A3").Interior.ColorIndex = 36
.Range("A3").NumberFormatLocal = "0_ "
End With
↑これを更に短縮して、↓にしたらダメですた。これ以上はムリなの？
With Worksheets(DATA).Range("A3")
. = ""
.Interior.ColorIndex = 36
.NumberFormatLocal = "0_ "
End With