使 if 语句在 VBA 中运行时遇到问题

Question

我的第一个问题是 Excel VBA 是否会识别具有两个约束的 if 语句，即

IF Range(somecell).value > 0 AND Range(anothercell).value < 100 Then:
   execute code here

因为当我知道我正在运行的脚本中满足两个约束时，我无法将包含在 if 语句中的代码触发。也许是我的逻辑有问题。

我已经包含了代码，请看看您能否指出我的逻辑或VBA中的任何错误。 背景信息（我还在代码中包含了一些）：

有两个杠杆可以更改单元格 F71（D40 和 D41）。要求是 F71 大于 0，并且必须小于 F71 的当前值（保存在变量 currentValueAdd 中）。

因此，我循环遍历两个层，迭代所有可能的组合，试图找到满足上述条件的最佳组合。有时我打开excel，它工作得很好，有时却根本不工作。结果非常不稳定。

Private Sub OptimizeFI_Click()
  Dim waiveLoop As Integer
  Dim comissionLoop As Integer
  Dim finalWaive As Integer
  Dim finalCommission As Integer
  Dim currentValueAdd As Double

  Dim F71 As Range, D41 As Range

  currentValueAdd = Range("$F$71").Value ' <-- This is the cell I am trying to optimize.

  For waiveLoop = 0 To 7
    Range("$D$40").Value = waiveLoop ' <-- one of the levers in changing cell F71

    For comissionLoop = 0 To 7
      Range("$D$41").Value = comissionLoop ' <-- a second lever in changing cell F71
      If Range("$F$71").Value > 0 And Range("$F$71").Value < currentValueAdd Then
        finalWaive = Range("$D$40").Value
        finalComission = Range("$D$41").Value
        Range("$E$27").Value = finalWaive * 0.05
        Range("$E$28").Value = finalComission * 0.05
        currentValueAdd = Range("$F$71").Value
      End If
    Next comissionLoop

  Next waiveLoop

  Range("$D$40").Value = Range("$E$27") / 0.05
  Range("$D$41").Value = Range("$E$28") / 0.05
  Range("$F$8").Value = currentValueAdd
End Sub

Answer 1

我的第一个问题是 Excel VBA 是否会识别具有两个约束的 if 语句

。课程。

顺便说一句，没有“Excel VBA”，只有 VBA。它实际上相当于VB。

也许是我的逻辑有问题。

很有可能。不过，您的代码中没有立即出现问题。

Answer 2

如果我没有弄错的话，那么你的 if 条件的后半部分永远不会成立，对吧？我的意思是“Range("$F$71").Value”永远不会小于“currentValueAdd”。

如果是这种情况，那么您需要重新检查您的逻辑，

    currentValueAdd = Range("$F$71").Value

因为这将始终将 Range("$F$71") 的值发送到 currentValueAdd，并且当您检查条件时，

    Range("$F$71").Value < currentValueAdd

单元格 F71 中的值自您以来没有更改将其转移到变量中，因此变量中的值与 F71 中的值相同，因此第二个条件永远不会成立。

希望它有所帮助。