怎样使列表值中的某一项显示为红色啊?

小小鸟

对啊

Henry D. Sy

1. 用条件格式
2. 用vba
  Private Sub Combo0_AfterUpdate()
    If Me.Combo0 >= 0 Then
        Me.Combo0.ForeColor = vbBlack
    Else
        Me.Combo0.ForeColor = vbRed
    End If
End Sub

小小鸟

我 记得原来老师讲的时候，好像可以直接设置的啊。

印象最深的就是红男绿女，而不需要写代码吧。

slowgrace

原帖由 Henry D. Sy 于 2009-1-6 17:24 发表
1. 用条件格式
2. 用vba
  Private Sub Combo0_AfterUpdate()
    If Me.Combo0 >= 0 Then
        Me.Combo0.ForeColor = vbBlack
    Else
        Me.Combo0.ForeColor = vbRed
    End If
End Sub

貌似你说的不是她要的

slowgrace

她是希望下拉列表里的颜色改变。

slowgrace

原帖由 小小鸟 于 2009-1-6 17:28 发表
我 记得原来老师讲的时候，好像可以直接设置的啊。

印象最深的就是红男绿女，而不需要写代码吧。

反正我是没见过下拉列表某一行变颜色的

小小鸟

恩，用条件格式也可以。但那好像是更新后的一个判断

我说的在点击打开后看到的一项就是红色的。

小小鸟

就好像这样。

[ 本帖最后由 小小鸟 于 2009-1-6 17:41 编辑 ]

slowgrace

你先告诉我你这个图是怎么做出来的吧？呵呵。

小小鸟

PHOTOSHOP

[ 本帖最后由 小小鸟 于 2009-1-6 17:49 编辑 ]