Excel的VBA如果大于或小于不能正常工作

我想测试一个单元格的旧值是大于还是小于当前插入值。但是，它一直说它既不是。Excel的VBA如果大于或小于不能正常工作

我真的不知道为什么......任何人都可以帮我解决问题吗？

Dim oldCellValue As Integer 
Dim curSheetName As String 
Dim curCellAddress As String 
Dim curCellValue As Integer 

Public Sub Worksheet_SelectionChange(ByVal Target As Range) 
    oldCellValue = Target.Value 
End Sub 

Private Sub Worksheet_Change(ByVal Target As Range) 

    curSheetName = ActiveSheet.Name 
    curCellAddress = ActiveCell.Offset(-1, 0).Address 
    curCellValue = ActiveCell.Offset(-1, 0).Value 

    If oldCellValue = 0 And curCellValue = 0 Then 
     Exit Sub 
    Else 

     With Application 
      .ScreenUpdating = False 
      .DisplayAlerts = False 
      .EnableEvents = False 
     End With 

     Set Workbook = Workbooks.Open("stock.xlsx") 

     If oldCellValue > curCellValue Then 
      Sheets(curSheetName).Range(curCellAddress) = ActiveCell.Value + (oldCellValue - curCellValue) 
     ElseIf curCellValue < oldCellValue Then 
      Sheets(curSheetName).Range(curCellAddress) = ActiveCell.Value - (curCellValue - oldCellValue) 
     Else 
      MsgBox "Neither" 
     End If 

     Workbook.Save 
     Workbook.Close 

     With Application 
      .ScreenUpdating = True 
      .DisplayAlerts = True 
      .EnableEvents = True 
     End With 

    End If 

End Sub

编辑：我已经更新了建议和修复代码，即使有一个新的问题。见下面的评论。

Dim oldCellValue As Integer 
Dim curSheetName As String 
Dim curCellAddress As String 
Dim curCellValue As Integer 

Public Sub Worksheet_SelectionChange(ByVal Target As Range) 
    oldCellValue = Target.Value 
End Sub 

Private Sub Worksheet_Change(ByVal Target As Range) 

    curSheetName = ActiveSheet.Name 
    curCellAddress = Target.Address 
    curCellValue = Target.Value 

    If oldCellValue = 0 And curCellValue = 0 Or oldCellValue = curCellValue Then 
     Exit Sub 
    Else 

     With Application 
      .ScreenUpdating = False 
      .DisplayAlerts = False 
      .EnableEvents = False 
     End With 

     Set Workbook = Workbooks.Open("stock.xlsx") 

     If oldCellValue > curCellValue Then 
      Sheets(curSheetName).Range(curCellAddress) = ActiveCell.Value + (oldCellValue - curCellValue) 
      MsgBox ActiveCell.Value 
     Else 
      Sheets(curSheetName).Range(curCellAddress) = ActiveCell.Value - (curCellValue - oldCellValue) 
      MsgBox ActiveCell.Value 
     End If 

     Workbook.Save 
     Workbook.Close 

     With Application 
      .ScreenUpdating = True 
      .DisplayAlerts = True 
      .EnableEvents = True 
     End With 

    End If 

End Sub

来源

2016-08-22 coldpumpkin

你的数据是什么样的？两个细胞的上下彼此确实相等吗？在'Change'中，尝试使用'Target'而不是'ActiveCell'，看看是否有帮助。 – cxw

在您的'Change'事件处理程序中，您设置了'curCellValue = ActiveCell.Offset（-1,0）.Value'，这看起来可能是错误的逻辑。为什么不是'curCellValue = Target.Value'？ –

在评估If/ElseIf时，'oldCellValue'和'curCellValue'的值是什么？如果您不知道，请使用Print/MsgBox的调试技术或断点检查Locals窗口中的数据。 –

oldCellValue > curCellValue和curCellValue < oldCellValue在技术上是相同的条件。

如果oldcell值= 10和新单元值= 11

然后oldCellValue > curCellValue =假(10 >11)

，所以是

curCellValue < oldCellValue =假(11 < 10)

变化curCellValue < oldCellValue到curCellValue > oldCellValue

来源

2016-08-22 19:58:59 cyboashu

这几乎解决了我的问题！非常感谢，多么愚蠢:)如果问题不多，你可以检查我的编辑吗？现在它正在工作，但count中的“ActiveCell.Value”给了我一个空白值。基本上我想从目标文件检索值... – coldpumpkin

没关系，试过'表格（curSheetName）.Range（curCellAddress）.Value'，它很有效。再次感谢。 – coldpumpkin

啊很棒..... :) – cyboashu

Excel的VBA如果大于或小于不能正常工作

回答

相关问题