帮忙改成循环语句

nthao

各位好老师好：
以下代码烦请帮忙看下能否改成 循环语句，以缩减代码量，谢谢。

          If ListBox1.Column(3) <> "" And a = 1 Then deng1.BackColor = &HFF&
          If ListBox1.Column(3) <> "" And a = 2 Then deng2.BackColor = &HFF&
          If ListBox1.Column(3) <> "" And a = 3 Then deng3.BackColor = &HFF&
          If ListBox1.Column(3) <> "" And a = 4 Then deng4.BackColor = &HFF&
          If ListBox1.Column(3) <> "" And a = 5 Then deng5.BackColor = &HFF&
          If ListBox1.Column(3) <> "" And a = 6 Then deng6.BackColor = &HFF&
          If ListBox1.Column(3) <> "" And a = 7 Then deng7.BackColor = &HFF&
          If ListBox1.Column(3) <> "" And a = 8 Then deng8.BackColor = &HFF&
          If ListBox1.Column(3) <> "" And a = 9 Then deng9.BackColor = &HFF&
          If ListBox1.Column(3) <> "" And a = 10 Then deng10.BackColor = &HFF&
          If ListBox1.Column(3) <> "" And a = 11 Then deng11.BackColor = &HFF&
          If ListBox1.Column(3) <> "" And a = 12 Then deng12.BackColor = &HFF&
          If ListBox1.Column(3) <> "" And a = 13 Then deng13.BackColor = &HFF&

          If ListBox1.Column(3) = "" And a = 1 Then
          deng1.BackColor = &HC000&
            Label15.ForeColor = &HC000&
         tt = "可用"
          ElseIf ListBox1.Column(3) = "" And a = 2 Then
          deng2.BackColor = &HC000&
            Label15.ForeColor = &HC000&
           tt = "可用"
          ElseIf ListBox1.Column(3) = "" And a = 3 Then
          deng3.BackColor = &HC000&
          Label15.ForeColor = &HC000&
           tt = "可用"
          ElseIf ListBox1.Column(3) = "" And a = 4 Then
          deng4.BackColor = &HC000&
          Label15.ForeColor = &HC000&
          tt = "可用"
          ElseIf ListBox1.Column(3) = "" And a = 5 Then
          deng5.BackColor = &HC000&
          Label15.ForeColor = &HC000&
           tt = "可用"
          ElseIf ListBox1.Column(3) = "" And a = 6 Then
          deng6.BackColor = &HC000&
          Label15.ForeColor = &HC000&
          tt = "可用"
         ElseIf ListBox1.Column(3) = "" And a = 7 Then
          deng7.BackColor = &HC000&
          Label15.ForeColor = &HC000&
          tt = "可用"
          ElseIf ListBox1.Column(3) = "" And a = 8 Then
          deng8.BackColor = &HC000&
          Label15.ForeColor = &HC000&
           tt = "可用"
          ElseIf ListBox1.Column(3) = "" And a = 9 Then
          deng9.BackColor = &HC000&
          Label15.ForeColor = &HC000&
           tt = "可用"
         ElseIf ListBox1.Column(3) = "" And a = 10 Then
          deng10.BackColor = &HC000&
          Label15.ForeColor = &HC000&
           tt = "可用"
          ElseIf ListBox1.Column(3) = "" And a = 11 Then
          deng11.BackColor = &HC000&
          Label15.ForeColor = &HC000&
           tt = "可用"
           ElseIf ListBox1.Column(3) = "" And a = 12 Then
          deng12.BackColor = &HC000&
          Label15.ForeColor = &HC000&
           tt = "可用"
          ElseIf ListBox1.Column(3) = "" And a = 13 Then
          deng13.BackColor = &HC000&
          Label15.ForeColor = &HC000&
           tt = "可用"
            Else
            Label15.ForeColor = &HFF&
            tt = "不可用"
            End If

凌空一羽

If ListBox1.Column(3) <> "" Then
    For a = 1 To 12
        Me.Controls("deng" & a).BackColor = &HFF&
    Next
End If

If ListBox1.Column(3) = "" Then
    For a = 1 To 13
        Me.Controls("deng" & a).BackColor = &HC000&
    Next
    Label15.ForeColor = &HC000&
    tt = "可用"
Else
    Label15.ForeColor = &HFF&
    tt = "不可用"
End If

nthao

凌空一羽 发表于 2018-8-9 09:15
If ListBox1.Column(3)  "" Then
    For a = 1 To 12
        Me.Controls("deng" & a).BackColor = &HF ...

老师你好：

山菊花

修改：   
tt = IIf(ListBox1.Column(3) = "", "可用", "不可用")
Me.Controls("deng" & a).BackColor = IIf(tt = "可用", &HC000&, &HFF&)
Label15.ForeColor = IIf(tt = "可用", &HC000&, &HFF&)

nthao

山菊花 发表于 2018-8-9 12:35
Dim nColor&
    nColor = IIf(ListBox1.Column(3) = "", &HC000&, &HFF&)
    tt = IIf(ListBox1.Co ...

感谢老师的帮忙，辛苦了。上面两种我这边测试的效果一样， 但实际效果与我给出的代码还是有区别的，
我希望 点击哪行判断哪行的“deng”（label）  ， 不是所有的“deng“”，老师给出的代码是将所有的“deng”一起判断了。
我用的是elseif来判断的  

ListBox1.Column(3) = "" And a = 1       其中变量a 为listindex 的当前行数 。
一共13个listindex   ，13个 label   一一对应。

pshl7

Sub ListBox1_Click()
  If ListBox1.Column(3) <> "" Then Me.Controls("deng" & ListBox1.ListIndex).BackColor = &HFF&
  If ListBox1.Column(3) = "" Then
    Me.Controls("deng" & ListBox1.ListIndex).BackColor = &HC000&
    Label15.ForeColor = &HC000&
    tt = "可用"
  Else
    Label15.ForeColor = &HFF&
    tt = "不可用"
  End If
End Sub

这个是昵称吗

nthao 发表于 2018-8-9 13:54
感谢老师的帮忙，辛苦了。上面两种我这边测试的效果一样， 但实际效果与我给出的代码还是有区别的，
我 ...

那么会用IF居然不会改了？
山菊花版主的代码加个IF 应该就可以
    Dim nColor&，s%，k
    nColor = IIf(ListBox1.Column(3) = "", &HC000&, &HFF&)
    tt = IIf(ListBox1.Column(3) = "", "可用", "不可用")
    For s = 1 To 13
        if s=a then
        Me.Controls("deng" & a).BackColor = nColor
        k=1end if
    Next
   if k<>1 then Label15.ForeColor = nColor

nthao

这个是昵称吗 发表于 2018-8-9 14:41
那么会用IF居然不会改了？
山菊花版主的代码加个IF 应该就可以
    Dim nColor&，s%，k

呵呵，多谢老师，已经实现对应功能。