GET.CELL函数不能返回条件格式值

luo159 · 发表于 2007-1-1 12:28

好代码,不过工作中应该很少用到.

dqsytmh · 发表于 2007-1-1 15:51

对宏表函数不是很明白

为什么excel中有好几种函数

lfq2000 · 发表于 2007-3-27 16:14

很喜欢,学习了..正在找这个,搜了n久

zez · 发表于 2007-3-28 06:22

谢谢

laoyebin · 发表于 2007-4-27 22:23

一直对条件格式的按颜色统计没办法，这次终于找到方法了，谢谢版主了

narutoshyb · 发表于 2007-4-28 13:27

谁把这么好的贴子,找出来了,真的应该谢谢他!

mohan_2007 · 发表于 2007-8-13 09:55

很好

liuhao_goody · 发表于 2007-11-9 13:17

顶,好好学习.

但有些不明白ConvertFormula方法是什么?

[em06]

guest2498 · 发表于 2008-6-1 09:05

太好了,感谢此帖.牛人满天飞.

guest2498 · 发表于 2008-6-1 11:51

原函数对"未介于"的条件编写有误:
就是未介于比较的时候,原为:If Not (CDbl(Rng.Value) <= CDbl(FC.Formula1) And _
                           CDbl(Rng.Value) >= CDbl(FC.Formula2)) Then

应该是:If Not (CDbl(Rng.Value) <= CDbl(FC.Formula1) And _
                           CDbl(Rng.Value) >= CDbl(FC.Formula2)) Then
下面是改写后的部分:

Case xlNotBetween
                    Temp = GetStrippedValue(FC.Formula1)
                    Temp2 = GetStrippedValue(FC.Formula2) '
                    If IsNumeric(Temp) Then
                        If Not (CDbl(Rng.Value) <= CDbl(FC.Formula2) And _
                           CDbl(Rng.Value) >= CDbl(FC.Formula1)) Then
                            ActiveCondition = Ndx
                            Exit Function
                        End If
                    Else
                        If Not Rng.Value <= Temp And _
                           Rng.Value >= Temp2 Then
                            ActiveCondition = Ndx
                            Exit Function
                        End If
                    End If

		自动登录	找回密码
密码			免费注册