Excel inputbox 迴圈問題 - Excel程式區

[發問] Excel inputbox 迴圈問題

1^# 跳轉到 »

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

複製代碼

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

靜思自在 : 願要大、志要堅、氣要柔、心要細。