二列数字比较，不相等提示错误

wljsxz

在同一张表中，二列数字比较，假如A<=B，不提示信息，假如A>B，提示“库存不足，不能保存”(A为出库数量，B为结存数量），请高手指点一下怎么编VBA，附件中的VBA只能一行一行比较，高手指点，万分感激。谢谢

金樽空对月

保存文档时触发程序运行：

1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
   
2. Dim x As Integer
   
3.     With Sheets("材料出库单")
   
4.         For x = 4 To .Range("d65536").End(3).Row
   
5.             If .Cells(x, 4) > .Cells(x, 11) Then
   
6.                 MsgBox .Cells(x, 1) & "领用数量:" & .Cells(x, 4) & "，大于结存数量，不能保存"
   
7.                 Cancel = True
   
8.             End If
   
9.         Next x
   
10.     End With
    
11. End Sub

复制代码

wljsxz

金樽空对月 发表于 2022-9-27 21:54
保存文档时触发程序运行：

朋友你的代码无法运行的，谢谢

金樽空对月

wljsxz 发表于 2022-9-28 09:47
朋友你的代码无法运行的，谢谢

不是不运行，而是只有在保存文档时才运行。

superboy_713

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)删掉后就可以手动了