VBA代码IF-ELSE逻辑仅执行首个条件问题排查及修改请求

错误原因拆解 #

• 第一个If分支缺少闭合语句
  原代码中If .List(j, 8) <> "" Then z = z + ListBox1.List(j, 6) * ww没有配套的End If，导致后续的s和n累加语句不受该条件约束，无论.List(j,8)是否为空都会执行，同时打乱了整个代码的逻辑结构。

• 条件判断逻辑完全错误
  原判断用Or连接多个不等条件，这意味着只要ComboBox5.Value不等于其中任意一个Label的标题，条件就成立。但一个值不可能同时等于四个不同的标题，所以这个条件永远为True，Else分支永远不会被触发。正确逻辑应该用And，表示当ComboBox5.Value不等于所有四个Label标题时执行第一个分支，只要等于其中一个就走Else分支。

• 结果赋值位置不合理
  t11.Value、tx3.Value的赋值放在循环内部，会导致每次循环都覆盖之前的计算结果，最终只保留最后一次循环的数值，应该移到循环结束后统一赋值。

修正后的代码 #

Dim ww As Double, z As Double, s As Double, n As Double, j As Long
On Error Resume Next
ww = Application.WorksheetFunction.VLookup(ComboBox5.Value, ThisWorkbook.Sheets("users").Range("y2:z1000"), 2, 0)
With ListBox1
    For j = 0 To .ListCount - 1
        ' 修复第一个If分支的闭合问题
        If .List(j, 8) <> "" Then
            z = z + .List(j, 6) * ww
        End If
        ' s和n的累加如果是无条件执行，就放在If外面；如果有条件，自行调整
        s = s + .List(j, 6) * ww
        n = n + .List(j, 6)
    Next j
    
    ' 修复条件判断逻辑，移到循环外部统一计算结果
    If ComboBox5.Value <> Labs2.Caption And ComboBox5.Value <> Labs3.Caption And _
       ComboBox5.Value <> Labs4.Caption And ComboBox5.Value <> Labs5.Caption Then
        t11.Value = s
    Else
        t11.Value = z
    End If
    
    tx3.Value = n
    Frame61.Visible = False
    Labs7.Caption = ComboBox5.Value
End With
On Error GoTo 0

额外说明 #

• 如果s和n的累加也需要受.List(j,8)<>""的约束，只需把这两行移到第一个If分支内部即可。
• On Error Resume Next会掩盖VLookup的错误（比如找不到匹配值时的错误），如果需要处理这种情况，可以添加错误判断逻辑。

内容的提问来源于stack exchange，提问作者hisham elsafty