- 帖子
- 2798
- 主題
- 10
- 精華
- 0
- 積分
- 2854
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-4-15
|
參考：
１．使用者按〔取消〕即結束
２．若未輸入而按〔Enter〕或〔確定〕，仍維持在待命輸入狀態！
- Sub 輸入()
- Dim xR As Range, X, Y, T$, N%
- Set xR = Cells(Rows.Count, 2).End(xlUp)(2, 0)
-
- T = "請輸入收料OP工號 [ Please enter Operator ID ]"
- Do: X = InputBox(T, T)
- If StrPtr(X) = 0 Then Exit Sub '使用者按〔取消〕跳出
- Loop Until X <> ""
-
- T = "請輸入MO [ Please enter MO ]"
- Do: Y = InputBox(T & "，輸入完畢請按取消鍵", T)
- If StrPtr(Y) = 0 Then GoTo 999 '使用者按〔取消〕結束
- If Y <> "" Then
- xR.Resize(1, 3) = Array(X, Y, Now)
- Set xR = xR(2, 1): N = N + 1
- End If
- Loop
-
- 999: If N > 0 Then ThisWorkbook.Save
- End Sub
|
|
發表於 2015-9-18 15:49
| 