码迷,mamicode.com
首页 > 编程语言 > 详细

VBA 学习

时间:2015-10-06 10:24:42      阅读:201      评论:0      收藏:0      [点我收藏+]

标签:

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

 

VBA 学习

标签:

原文地址:http://www.cnblogs.com/littlehb/p/4856711.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!