標題: [發問] 關於IF 多條件下 問題 [打印本頁]

---

作者: joslau    時間: 2013-10-28 20:04     標題: 關於IF 多條件下 問題

我在網上東找西尋寫好了一個公司走貨用的EXCEL
但有時候好像會沒有回應

暫時發現了問題的有兩個

1 ,  使用雷射槍在 SI 方格輸入後不懂跳到BAR CODE格
2 , 在BAR CODE行輸入按下ENTER沒有執行ADD / ERRORADD

我設定的條件是

1  , 兩格都要有10個字 , 方可執行 ADD
2 , 在SI格沒有資料時 , BAR CODE輸入字時自動跳到 SI 格
3 , 在SI格有10個字時 , BAR CODE沒有東西按下ENTER 不會執行 ERRORADD  (防止有貨物按住鍵盤引致無限執行ERRORADD)
4 , 在SI格有10個字時 , BAR CODE 0個字以外 / 不是10個字 執行 ERRORADD
5 , BAR CODE沒有任何MSGBOX (防止使用者沒有留意下跳過了下一個BAR CODE)

我覺得問是在這裡...

1. Private Sub bar_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
   
2. 
   
3. If si.Value Like "" Then
   
4. 
   
5. Me.si.SetFocus
   
6. 
   
7. End If
   
8. 
   
9. If KeyCode <> 13 Then Exit Sub
   
10. 
    
11. 
    
12. If si.Value Like "??????????" Then
    
13. If bar.Value Like "??????????" Then
    
14. 
    
15. add
    
16. Me.bar.SetFocus
    
17. Me.bar.Value = ""
    
18. 
    
19. End If
    
20. End If
    
21. 
    
22. If si.Value Like "??????????" Then
    
23. If bar.Value Like "" Then
    
24. 
    
25. Me.bar.SetFocus
    
26. Me.bar.Value = ""
    
27. 
    
28. Else
    
29. 
    
30. erroradd
    
31. 
    
32. End If
    
33. End If
    
34. 
    
35. 
    
36. noExit = True
    
37. End Sub

複製代碼

END IF放法是否有錯?

先謝!

[attach]16498[/attach]

---

作者: joslau    時間: 2013-10-29 17:41

好像已解決...

將所有 SetFocus 用 noExit = True 代替

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)