作者jonher (jonher)
看板Visual_Basic
标题Re: [VBA ] 请问我想要判断负数
时间Sun Mar 20 22:50:33 2011
※ 引述《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