VBA 学习

Sub abc()
Dim i

Dim coloumn
coloumn = 2

For i = 1 To 8
Dim currentValue
currentValue = Val(ReplaceChar(Sheet2.Cells(i, coloumn)))

If Application.WorksheetFunction.IsNumber(currentValue) Then

 If Abs(currentValue) < 0.05 Then
    Sheet2.Cells(i, coloumn).Interior.ColorIndex = 6
  End If
End If

Next i

End Sub
Private Function ReplaceChar(c As String) As String
 Dim a
 a = Replace(c, "*", "")
 
 ‘If InStr(a, "-") = 1 Then
 ‘   a = Replace(a, "-", "-0")
 ‘End If
 
 ReplaceChar = a
End Function