zoukankan      html  css  js  c++  java
  • 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
  • 相关阅读:
    mysql
    mysql
    mysql
    mysql
    sed编辑命令
    awk正则应用
    awk运算符
    awk命令细节
    uniq命令
    sort命令
  • 原文地址:https://www.cnblogs.com/littlehb/p/4856711.html
Copyright © 2011-2022 走看看