[已解决]为什么exit sub没有退出程序

gemini_

我是菜鸟。学着写了一个很简单的出入库自动扣减的代码。
在target.count数不等于1 的时候，我是写了退出程序的，但不知道为什么这个代码仍然执行了出库的扣减操作。
if target.count <>1 then exit sub  怎么没有效果？
请各位高手帮忙看看！
谢谢

最佳答案

月排行榜 / 总排行榜

liyh67

2016-8-7 17:12

你用的是Worksheet_Change事件，当多个单元格的值同时改变时Target.Count的值才大于1，如果你同时选择了多个单元格，但是只改变了一个单元格的值，Target.Count=1，如果同时选择了多个单元格，并且输入数值时用Ctrl+Enter同时在多个单元格中输入数值，Target.Count>1

跳转到最佳答案楼层

gemini_

代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    If Target.Row > Cells(Rows.Count, 1).End(3).Row Then Exit Sub
    If Target.Column <> 2 Then Exit Sub
    If Target.Count <> 1 Then Exit Sub  
    If Target.Value = "" Then Exit Sub
    Set rng = Sheet2.Columns("a").Find(Target.Offset(0, -1))
   
If rng.Offset(0, 1).Value < Target.Value Then
MsgBox "库存不足！" & Chr(13) & "出库数量大于当前库存数量！"
Target.ClearContents
Else
rng.Offset(0, 1) = rng.Offset(0, 1) - Target.Value
End If
End Sub

gemini_

附件在这里

liyh67

你用的是Worksheet_Change事件，当多个单元格的值同时改变时Target.Count的值才大于1，如果你同时选择了多个单元格，但是只改变了一个单元格的值，Target.Count=1，如果同时选择了多个单元格，并且输入数值时用Ctrl+Enter同时在多个单元格中输入数值，Target.Count>1

gemini_

liyh67 发表于 2016-8-7 17:12
你用的是Worksheet_Change事件，当多个单元格的值同时改变时Target.Count的值才大于1，如果你同时选择了多个 ...

哦，原来如此啊！
又学到了一个知识点，谢谢老师的讲解！
慢慢积累！