VBA中If语句无法正常运行问题求助

先拆解代码里几个可能导致逻辑异常的核心点，帮你逐一解决：

1. 文本与数值的比较错误 #

你内层If判断里，xytbx4通过Format(registos.TextBox4, "@")转成了文本类型，但sumfinal是数值类型，文本和数值直接比较会触发VBA不预期的类型转换，导致判断完全失效。

应该先把输入转换成数值再做判断，还要加输入有效性验证：

Dim xytbx4 As Double
' 先检查输入是否为有效数字，避免报错
If IsNumeric(registos.TextBox4.Text) Then
    xytbx4 = CDbl(registos.TextBox4.Text)
Else
    MsgBox "请输入有效的数字！"
    GoTo fim
End If

' 用数值类型做正确比较
If xytbx4 > 0 And xytbx4 < sumfinal Then
    GoTo salto_2
Else
    MsgBox "N茫o 茅 poss铆vel movimentar mais que o stock atual!Stock " & sumfinal & ""
    GoTo fim
End If

2. 冗余循环完全没必要 #

你外层写了For i = 1 To last循环，但全程没用到循环变量i，而且每次循环都重复判断registos.ComboBox1 = "SAÍDA"（ComboBox的值在运行过程中是固定的），这不仅浪费性能，还会导致逻辑混乱。应该把ComboBox的判断提到循环外，直接去掉无意义的循环：

' 先判断ComboBox状态，再执行后续逻辑
If registos.ComboBox1 = "SAÍDA" Then
    Dim wsRegistos As Worksheet
    Set wsRegistos = ThisWorkbook.Worksheets("Registos")
    Dim wsCalculos As Worksheet
    Set wsCalculos = ThisWorkbook.Worksheets("calculos")
    Dim tabela As ListObject
    Set tabela = wsRegistos.ListObjects("Tabela1")
    
    ' 过滤参考值
    tabela.Range.AutoFilter Field:=8, Criteria1:=registos.TextBox1.Text
    ' 过滤CC
    tabela.Range.AutoFilter Field:=6, Criteria1:=registos.Label11.Caption
    ' 过滤ENTRADA并取值
    tabela.Range.AutoFilter Field:=12, Criteria1:="ENTRADA"
    xty100 = wsCalculos.Range("A1").Value ' 明确取Value属性避免歧义
    
    ' 过滤SAÍDA并取值
    tabela.Range.AutoFilter Field:=12, Criteria1:="SAÍDA"
    xty101 = wsCalculos.Range("A1").Value
    
    sumfinal = xty100 - xty101
    
    ' 这里放内层If判断逻辑...
End If

3. 避免依赖活动工作表 #

原来的Worksheets("registos").Select和ActiveSheet写法很脆弱——如果用户不小心切换了工作表，代码就会出错。直接用对象变量引用工作表和表格，既高效又稳定，就像上面代码里的wsRegistos、tabela那样。

4. 确保过滤后求和的正确性 #

要确认calculos!A1用的是SUBTOTAL函数（比如=SUBTOTAL(9, Registos!Tabela1[Quantidade])），普通的SUM函数不会忽略过滤后的隐藏行，只有SUBTOTAL能正确计算可见行的总和。

修正后的完整代码片段 #

Dim wsRegistos As Worksheet
Dim wsCalculos As Worksheet
Dim tabela As ListObject
Dim xty100 As Double, xty101 As Double, sumfinal As Double
Dim xytbx4 As Double

Set wsRegistos = ThisWorkbook.Worksheets("Registos")
Set wsCalculos = ThisWorkbook.Worksheets("calculos")
Set tabela = wsRegistos.ListObjects("Tabela1")

' 先验证输入合法性
If registos.ComboBox1 <> "SAÍDA" Then
    GoTo fim
End If

If registos.TextBox1.Text = "" Then
    MsgBox "请输入参考值！"
    GoTo fim
End If

' 清除旧过滤，避免干扰新结果
tabela.Range.AutoFilter

' 执行过滤逻辑
tabela.Range.AutoFilter Field:=8, Criteria1:=registos.TextBox1.Text
tabela.Range.AutoFilter Field:=6, Criteria1:=registos.Label11.Caption

' 计算ENTRADA总和
tabela.Range.AutoFilter Field:=12, Criteria1:="ENTRADA"
xty100 = wsCalculos.Range("A1").Value

' 计算SAÍDA总和
tabela.Range.AutoFilter Field:=12, Criteria1:="SAÍDA"
xty101 = wsCalculos.Range("A1").Value

sumfinal = xty100 - xty101

' 验证TextBox4输入
If Not IsNumeric(registos.TextBox4.Text) Then
    MsgBox "请输入有效的数字！"
    GoTo fim
End If
xytbx4 = CDbl(registos.TextBox4.Text)

' 最终判断逻辑
If xytbx4 > 0 And xytbx4 < sumfinal Then
    GoTo salto_2
Else
    MsgBox "N茫o 茅 poss铆vel movimentar mais que o stock atual!Stock " & sumfinal & ""
    GoTo fim
End If

salto_2:
' 此处放置salto_2后续执行的逻辑

fim:
' 清除过滤，恢复表格完整显示
tabela.Range.AutoFilter

内容的提问来源于stack exchange，提问作者Pedro Gaspar