返回列表下一主題上一主題發帖

[發問] 關於IF 多條件下問題

joslau

小學生 Rank: 1

帖子: 15
主題: 5
精華: 0
積分: 20
點名: 0
作業系統: WINDOWS
軟體版本: 7
閱讀權限: 10
註冊時間: 2013-7-22
最後登錄: 2015-7-21

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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)

我覺得問是在這裡...

Private Sub bar_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If si.Value Like "" Then
Me.si.SetFocus
End If
If KeyCode <> 13 Then Exit Sub
If si.Value Like "??????????" Then
If bar.Value Like "??????????" Then
add
Me.bar.SetFocus
Me.bar.Value = ""
End If
End If
If si.Value Like "??????????" Then
If bar.Value Like "" Then
Me.bar.SetFocus
Me.bar.Value = ""
Else
erroradd
End If
End If
noExit = True
End Sub