麻辣家族討論版版 » Excel程式區 » Excel inputbox 迴圈問題

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

[發問] Excel inputbox 迴圈問題

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

1^# 跳轉到 » 倒序看帖

字體大小: tT

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

[發問] 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

複製代碼

樓主熱帖

收藏

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

2^#

發表於 2015-9-18 19:35 | 顯示全部帖子

回復 2# stillfish00

謝謝大大的指教！程式碼OK :D 感謝解決我一個大問題~

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

3^#

發表於 2015-9-18 19:37 | 顯示全部帖子

回復 4# Joforn

感謝大大的分想~但他迴圈還是會出現輸入工號，我理想的設計是讓我的操作員，輸入工號第一次就好，其他就刷條碼，這樣對操作原來說比較不用一直輸入工號，降低作業時的失誤率，但還是感謝您的分享，讓我也見識到不同的程式語法唷!!! :D

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

4^#

發表於 2015-9-18 19:47 | 顯示全部帖子

回復 5# 准提部林

感謝板大的程式碼！有像防呆的功能還不賴耶!!!!沒有取消就在待命讚 :)

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

5^#

發表於 2015-9-24 10:34 | 顯示全部帖子

回復 5# 准提部林

請問一下版大，如果我要加一行資料自動三個月自動刪除可以嗎？
資料表上再輸入時的時間往後判斷三個月

靜思自在 : 人事的艱難與琢磨，就是一種考驗。

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