[發問] Excel inputbox 迴圈問題

因工作上一個小問題想寫成程式去RUN
如圖所示

目前我寫的程式碼只能單筆輸入，然後每輸入完一筆會自動存檔
我想改寫成第一次點選跳出來的inputbox 只輸入工號
再來開始跳回圈輸入MO
直到我按取消他就把我回圈輸入中的訊息自動帶出來，工號部分能自動填上嗎?

程式碼參考請問如何修改成我圖說的那樣呢?

Sub 請輸入()
x = InputBox("請輸入收料OP工號 [ Please enter Operator ID ]", "請輸入收料OP工號 [Please enter Operator ID ]", "")
y = InputBox("請輸入MO, 輸入完畢請按取消鍵 [ Please enter MO ]", "請輸入MO [ Please enter MO ]", "")
Dim c1 As Integer
c1 = 2
While Cells(c1, 2) <> ""
c1 = c1 + 1
Wend
Cells(c1, 1) = x
Cells(c1, 2) = y
Cells(c1, 3) = Now()
ActiveWorkbook.Save
End Sub

複製代碼

樓主熱帖

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2015-9-18 11:12 | 只看該作者

回復 1# v03586

Sub 請輸入()
Dim x, y
x = InputBox("請輸入收料OP工號 [ Please enter Operator ID ]", "請輸入收料OP工號 [Please enter Operator ID ]", "")
If x = "" Then Exit Sub
Do
y = InputBox("請輸入MO, 輸入完畢請按取消鍵 [ Please enter MO ]", "請輸入MO [ Please enter MO ]", "")
If y = "" Then Exit Do
With Cells(Rows.Count, 1).End(xlUp)
.Cells(2, 1) = x
.Cells(2, 2) = y
.Cells(2, 3) = Now
End With
Loop
ActiveWorkbook.Save
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

Joforn

　暱稱: 南宮飄雪

中學生 Rank: 2

帖子: 109
主題: 2
精華: 0
積分: 114
點名: 0
作業系統: Win7 Win10
軟體版本: Office 2019 WPS
閱讀權限: 20
性別: 男
來自: 深圳
註冊時間: 2013-2-2
最後登錄: 2024-11-6

3^#

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

複製代碼

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

TOP

Joforn

　暱稱: 南宮飄雪

中學生 Rank: 2

帖子: 109
主題: 2
精華: 0
積分: 114
點名: 0
作業系統: Win7 Win10
軟體版本: Office 2019 WPS
閱讀權限: 20
性別: 男
來自: 深圳
註冊時間: 2013-2-2
最後登錄: 2024-11-6

4^#

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