VBA中比较3个数值大小3个数字可以是正数也可以是负数,但是必须把负数当成正数来比较大小输出结果012表示
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/13 02:04:42
VBA中比较3个数值大小3个数字可以是正数也可以是负数,但是必须把负数当成正数来比较大小输出结果012表示
比较的结果在后边输出0最小,1中间,2最大.最好能加上颜色正数的结果是蓝色,负数的结果红色
比较的结果在后边输出0最小,1中间,2最大.最好能加上颜色正数的结果是蓝色,负数的结果红色
Sub 比较大小()
Dim a,b,c
a = Abs([a1].Value)
b = Abs([b1].Value)
c = Abs([c1].Value)
Range("D1").NumberFormatLocal = "@"
If a > b And a > c And b > c Then [d1] = "210"
If b > a And b > c And a > c Then [d1] = "120"
If c > a And c > b And a > b Then [d1] = "102"
If a > b And a > c And c > b Then [d1] = "201"
If b > a And b > c And c > a Then [d1] = "021"
If c > a And c > b And b > a Then [d1] = "012"
If a = [a1].Value Then
Range("A1").Interior.ColorIndex = 42
Range("A1").Font.ColorIndex = 41
Else
Range("A1").Interior.ColorIndex = 40
Range("A1").Font.ColorIndex = 3
End If
If b = [b1].Value Then
Range("b1").Interior.ColorIndex = 42
Range("b1").Font.ColorIndex = 41
Else
Range("b1").Interior.ColorIndex = 40
Range("b1").Font.ColorIndex = 3
End If
If c = [c1].Value Then
Range("c1").Interior.ColorIndex = 42
Range("c1").Font.ColorIndex = 41
Else
Range("c1").Interior.ColorIndex = 40
Range("c1").Font.ColorIndex = 3
End If
End Su
Dim a,b,c
a = Abs([a1].Value)
b = Abs([b1].Value)
c = Abs([c1].Value)
Range("D1").NumberFormatLocal = "@"
If a > b And a > c And b > c Then [d1] = "210"
If b > a And b > c And a > c Then [d1] = "120"
If c > a And c > b And a > b Then [d1] = "102"
If a > b And a > c And c > b Then [d1] = "201"
If b > a And b > c And c > a Then [d1] = "021"
If c > a And c > b And b > a Then [d1] = "012"
If a = [a1].Value Then
Range("A1").Interior.ColorIndex = 42
Range("A1").Font.ColorIndex = 41
Else
Range("A1").Interior.ColorIndex = 40
Range("A1").Font.ColorIndex = 3
End If
If b = [b1].Value Then
Range("b1").Interior.ColorIndex = 42
Range("b1").Font.ColorIndex = 41
Else
Range("b1").Interior.ColorIndex = 40
Range("b1").Font.ColorIndex = 3
End If
If c = [c1].Value Then
Range("c1").Interior.ColorIndex = 42
Range("c1").Font.ColorIndex = 41
Else
Range("c1").Interior.ColorIndex = 40
Range("c1").Font.ColorIndex = 3
End If
End Su
怎样比较负数与正数,负数与负数的大小?
0和正数负数怎么比较大小?
有理数比较大小:两个正数,绝对值大的正数是( );两个负数,绝对值大的负数( )
如何比较正数、0和负数之间的大小?
负数可以是正数的倍数吗
负数的相反数是正数;把这句话用符号可以表示为什么?
若a>b,a,b均是正数,比较大小:|a|___|b|.若a>b,a,b均是负数,比较大小:|a|___|b|.
如果m是正数,n是负数,则3+m与3+n的大小关系
引入负数以后,那么负数和正数、负数和零、负数和负数的大小关系将是怎样的?
先阅读下面一段文字,再回答问题,比较a与b的大小,可以先求出a与b的差,再看这个差是正数、负数,还是零.
正数与负数如何比较
对于正数、0和负数这三类数,它们之间有什么大小关系?两个负数之间如何比较大小?