Re: [VBA ] 請問我想要判斷負數

[jonher (jonher)]

※ 引述《lingze (walkman)》之銘言：
: 已爬文~
: 請問負數要怎麼判斷呢?
: 例如  A=負數
: 有這種指令嗎@@?
: 還是說判斷它是不是正數，如果不是就代表負數@@?
: 如果是要判斷數字為正，又要用什麼指令呢@@?
: 小弟是新手~還請各位大大幫忙一下~感謝


'mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm
Sub main()


    Call isNegative([A1])   ' [A1] = -1

    Call isNegative([A2])   ' [A2] = 1


End Sub
'mmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmmm

'fffffffffffffffffffffffffffffffffffffffffffffff
Function isNegative(ByVal Rng As Range)

    Dim vColor As Integer

    If Rng < 0 Then
        vColor = 3
        isNegative = 1  ' is negative
    Else
        vColor = 5
        isNegative = 0  ' not negative
    End If

    Rng.Interior.ColorIndex = vColor

End Function
'fffffffffffffffffffffffffffffffffffffffffffffff

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 119.77.128.167