Arrays 简化我的代码

这将持续到bar10和npc10 我不知道如何应用循环或数组。我不是最好的编程高手，但我的项目很快就要到期了，我很紧张，因为它必须看起来很好。如果可以，请帮助并将其分解

试试这个

    If bar1.Visible = False Or bar1.Value > 0 Then
        npc1.Visible = False
    End If
    If bar2.Visible = False Or bar2.Value >= 0 Then
        npc2.Visible = False
    End If
    If bar3.Visible = False Or bar3.Value >= 0 Then
        npc3.Visible = False
    End If
    If bar4.Visible = False Or bar4.Value >= 0 Then
        npc4.Visible = False
    End If
    If bar5.Visible = False Or bar5.Value >= 0 Then
        npc5.Visible = False
    End If

For n = 1 to 10
    Set c = Me.Controls("bar" & n)
    If c.Visible = False Or c.Value > 0 Then
        Me.Controls("npc" & n).Visible = False
    End If
Next n

---

这不是一个让别人做你项目工作的地方。好吧，什么是酒吧和npc？这是用户表单还是这些单元格或。。。？我们需要更多的信息来提供帮助。那里的人非常擅长使工作代码看起来更好，工作得更好。如果您包括更多的上下文，比如整个过程，这可能是一个很好的代码审查问题。

Dim i As Long

For i = 1 To 10 Step 1
    If bar(i).Visible = False Or bar(i).Value >= 0 Then
        npc(i).Visible = False
    End If
Next i