|
ちゃっぴ さん ご助言ありがとうございました。
いろいろ試してみて結局以下のように落ち着きました。
うまくいったのでとりあえず良い事にしました。また改めて考えてみます。
Sub NumCheck()
For Each s In Sheets
s.Activate
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
For Each c In Selection.Cells
If c.Value <> "" And c.NumberFormat <> "General" Then
If IsNumeric(c.Value) = True Then
If IsNumeric(c.Text) = True Then
w = CDec(c.Text)
If w - c.Value <> 0 Then
c.Interior.ColorIndex = 32
End If
Else
c.Interior.ColorIndex = 32
End If
End If
End If
Next
Next
End Sub
|
|