如何用VBA实现条件格式的同样功能

lazybird

如何用VBA实现“条件格式”的同样功能？然后得到一个返回值？
例如：在文本框内输入一个30-60之间的数字背景色变红，同时返回一个值。

或者，使用“条件格式”也能得到一个返回值。

Henry D. Sy

论坛上有例子，你用搜索工具，先搜索一下！

Henry D. Sy

1. Private Sub Form_Current()
   
2.     Dim objFrc As FormatCondition
   
3.     Me.Text0.FormatConditions.Delete
   
4.     Set objFrc = Me.Text0.FormatConditions.Add(acFieldValue, acBetween, 30, 60)
   
5.     Me.Text0.FormatConditions(0).BackColor = 255
   
6. End Sub

复制代码

lazybird

谢谢版主。
照你的方法实现了。

对于字符串的是不是这样写的 （输入OK时变成红色）？   为什么实现不了，能不能帮我看看？   
Set objFrc = Me.Cal1.FormatConditions.Add(acFieldValue, acEqual, "OK")
Me.Cal1.FormatConditions(0).BackColor = 255
   

Henry D. Sy

我是2003，打不开你的库！

lazybird

换成2003了 。。。 顺便教下我如果是对数组变量的话怎么写这段代码，多多多谢了   {:soso_e101:}

    Dim objFrc As FormatCondition
    Dim sMin
    Dim sMax
    Dim arrP()
   
    arrP = Array("Trap1", "Cal1")
   
    sMax = DLookup("Max", "spec", "n= '18882222' And Parameter = '& arrP(0) &'")
    sMin = DLookup("Min", "spec", "n= '18882222' And Parameter = '& arrP(0) &'")
   
    Set objFrc = Me.arrP(0).FormatConditions.Add(acFieldValue, acGreaterThan, sMax)
    Me.arrP(0).FormatConditions(0).BackColor = 255
    Set objFrc = Me.arrP(0).FormatConditions.Add(acFieldValue, acLessThan, sMin)
    Me.arrP(0).FormatConditions(1).BackColor = 255
   
    Set objFrc = Me.arrP(1).FormatConditions.Add(acFieldValue, acEqual, "OK")
    Me.arrP(1).FormatConditions(0).BackColor = 255
   

lazybird

看了下论坛以前的帖子，数组控件的问题解决了，但是条件格式还是有问题，版主帮我看看。
   Set objFrc = Me.arrP(1).FormatConditions.Add(acFieldValue, acEqual, "OK")
当条件为等于字符串的时候就不起作用，等于数值的就可以，这是怎么回事呢 。。。

lazybird

额 。。。 自己顶一下     解决了  Add(acFieldValue, acEqual,"=""OK""")