Excel inputbox 迴圈問題 - Excel程式區

[發問] Excel inputbox 迴圈問題

　暱稱: 南宮飄雪

1^# 跳轉到 »

發表於 2015-9-18 11:59 | 顯示全部帖子

Sub 請輸入()
Dim X As Variant
Dim Y As Variant
Dim C1 As Integer
EnterID:
X = InputBox("請輸入收料OP工號 [ Please enter Operator ID ]", "請輸入收料OP工號 [Please enter Operator ID ]", "")
If X = False Then Exit Sub
EnterMo:
Y = InputBox("請輸入MO, 輸入完畢請按取消鍵 [ Please enter MO ]", "請輸入MO [ Please enter MO ]", "")
If Y = False Then
If MsgBox("你的輸入有誤，是否重新輸入一個MO?" & vbCrLf & _
"點擊""是""重新輸入，""否""退出當次輸入。", vbYesNo Or vbQuestion, "MO輸入錯誤") = vbYes Then GoTo EnterMo
Exit Sub
End If
C1 = 2
While Cells(C1, 2) <> ""
C1 = C1 + 1
Wend
Cells(C1, 1) = X
Cells(C1, 2) = Y
Cells(C1, 3) = Now()
ActiveWorkbook.Save
GoTo EnterID
End Sub

複製代碼

世界那麼大，可我想去哪？

　暱稱: 南宮飄雪

2^#

發表於 2015-9-18 12:07 | 顯示全部帖子

回復 1# v03586
上面的代碼有誤，帖子不能編輯，重發一次代碼：

Sub 請輸入()
Dim X As String
Dim Y As String
Dim C1 As Long
EnterID:
X = InputBox("請輸入收料OP工號 [ Please enter Operator ID ]", "請輸入收料OP工號 [Please enter Operator ID ]")
If Len(X) < 1 Then Exit Sub
EnterMo:
Y = InputBox("請輸入MO, 輸入完畢請按取消鍵 [ Please enter MO ]", "請輸入MO [ Please enter MO ]", "")
If Len(Y) < 1 Then
If MsgBox("你的輸入有誤，是否重新輸入一個MO?" & vbCrLf & _
"點擊""是""重新輸入，""否""退出當次輸入。", vbYesNo Or vbQuestion, "MO輸入錯誤") = vbYes Then GoTo EnterMo
Exit Sub
End If
C1 = 2
While Cells(C1, 2) <> ""
C1 = C1 + 1
Wend
Cells(C1, 1) = X
Cells(C1, 2) = Y
Cells(C1, 3) = Now()
ActiveWorkbook.Save
GoTo EnterID
End Sub

複製代碼

世界那麼大，可我想去哪？

靜思自在 : 知識要用心體會，才能變成自己的智慧。