返回列表 上一主題 發帖

[發問] Excel inputbox 迴圈 問題

v03586

帖子
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
直到我按取消他就把我回圈輸入中的訊息自動帶出來，工號部分能自動填上嗎?

程式碼參考  請問如何修改成我圖說的那樣呢?
  1. Sub 請輸入()


  4.     x = InputBox("請輸入收料OP工號 [ Please enter Operator ID ]", "請輸入收料OP工號  [Please enter Operator ID ]", "")
  5.     y = InputBox("請輸入MO, 輸入完畢請按取消鍵 [ Please enter MO ]", "請輸入MO [ Please enter MO ]", "")


  8.     Dim c1 As Integer
  9.     c1 = 2
  10.     While Cells(c1, 2) <> ""
  11.         c1 = c1 + 1
  12.     Wend
  13.     Cells(c1, 1) = x
  14.     Cells(c1, 2) = y
  15.     Cells(c1, 3) = Now()


  18.     ActiveWorkbook.Save

  20. End Sub
複製代碼
收藏 分享

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
10#
發表於 2015-9-24 12:57 | 只看該作者
回復 9# v03586


基本原則：
與本帖主題需求不同，宜另開新帖！
另．所謂的〔三個月〕如何概定？要說得更清楚，最好舉實例！

TOP

v03586

帖子
193 
主題
29 
精華
0 
積分
222 
點名
0  
作業系統
Windows7 
軟體版本
OFFICE2013 
閱讀權限
20 
註冊時間
2015-9-18 
最後登錄
2023-4-29 
9#
發表於 2015-9-24 10:34 | 只看該作者
回復 5# 准提部林


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

TOP

v03586

帖子
193 
主題
29 
精華
0 
積分
222 
點名
0  
作業系統
Windows7 
軟體版本
OFFICE2013 
閱讀權限
20 
註冊時間
2015-9-18 
最後登錄
2023-4-29 
8#
發表於 2015-9-18 19:47 | 只看該作者
回復 5# 准提部林


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

TOP

v03586

帖子
193 
主題
29 
精華
0 
積分
222 
點名
0  
作業系統
Windows7 
軟體版本
OFFICE2013 
閱讀權限
20 
註冊時間
2015-9-18 
最後登錄
2023-4-29 
7#
發表於 2015-9-18 19:37 | 只看該作者
回復 4# Joforn


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

TOP

v03586

帖子
193 
主題
29 
精華
0 
積分
222 
點名
0  
作業系統
Windows7 
軟體版本
OFFICE2013 
閱讀權限
20 
註冊時間
2015-9-18 
最後登錄
2023-4-29 
6#
發表於 2015-9-18 19:35 | 只看該作者
回復 2# stillfish00


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

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
5#
發表於 2015-9-18 15:49 | 只看該作者
參考：
１．使用者按〔取消〕即結束
２．若未輸入而按〔Enter〕或〔確定〕，仍維持在待命輸入狀態！
　
  1. Sub 輸入()
  2. Dim xR As Range, X, Y, T$, N%
  3. Set xR = Cells(Rows.Count, 2).End(xlUp)(2, 0)
  4. 　
  5. T = "請輸入收料OP工號 [ Please enter Operator ID ]"
  6. Do: X = InputBox(T, T)
  7. 　　If StrPtr(X) = 0 Then Exit Sub  '使用者按〔取消〕跳出
  8. Loop Until X <> ""
  9. 　
  10. T = "請輸入MO [ Please enter MO ]"
  11. Do: Y = InputBox(T & "，輸入完畢請按取消鍵", T)
  12. 　　If StrPtr(Y) = 0 Then GoTo 999  '使用者按〔取消〕結束
  13. 　　If Y <> "" Then
  14. 　　　xR.Resize(1, 3) = Array(X, Y, Now)
  15. 　　　Set xR = xR(2, 1): N = N + 1
  16. 　　End If
  17. Loop
  18. 　
  19. 999: If N > 0 Then ThisWorkbook.Save
  20. 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
上面的代碼有誤，帖子不能編輯，重發一次代碼：
  1. Sub 請輸入()
  2.     Dim X   As String
  3.     Dim Y   As String
  4.     Dim C1  As Long
  5.    
  6. EnterID:
  7.     X = InputBox("請輸入收料OP工號 [ Please enter Operator ID ]", "請輸入收料OP工號  [Please enter Operator ID ]")
  8.     If Len(X) < 1 Then Exit Sub
  9. EnterMo:
  10.     Y = InputBox("請輸入MO, 輸入完畢請按取消鍵 [ Please enter MO ]", "請輸入MO [ Please enter MO ]", "")
  11.     If Len(Y) < 1 Then
  12.       If MsgBox("你的輸入有誤，是否重新輸入一個MO?" & vbCrLf & _
  13.                 "點擊""是""重新輸入，""否""退出當次輸入。", vbYesNo Or vbQuestion, "MO輸入錯誤") = vbYes Then GoTo EnterMo
  14.       Exit Sub
  15.     End If
  16.    
  17.     C1 = 2
  18.     While Cells(C1, 2) <> ""
  19.         C1 = C1 + 1
  20.     Wend
  21.     Cells(C1, 1) = X
  22.     Cells(C1, 2) = Y
  23.     Cells(C1, 3) = Now()
  24.     ActiveWorkbook.Save
  25.     GoTo EnterID
  26. 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 | 只看該作者
  1. Sub 請輸入()
  2.     Dim X   As Variant
  3.     Dim Y   As Variant
  4.     Dim C1  As Integer
  5.    
  6. EnterID:
  7.     X = InputBox("請輸入收料OP工號 [ Please enter Operator ID ]", "請輸入收料OP工號  [Please enter Operator ID ]", "")
  8.     If X = False Then Exit Sub
  9. EnterMo:
  10.     Y = InputBox("請輸入MO, 輸入完畢請按取消鍵 [ Please enter MO ]", "請輸入MO [ Please enter MO ]", "")
  11.     If Y = False Then
  12.       If MsgBox("你的輸入有誤，是否重新輸入一個MO?" & vbCrLf & _
  13.                 "點擊""是""重新輸入，""否""退出當次輸入。", vbYesNo Or vbQuestion, "MO輸入錯誤") = vbYes Then GoTo EnterMo
  14.       Exit Sub
  15.     End If
  16.    
  17.     C1 = 2
  18.     While Cells(C1, 2) <> ""
  19.         C1 = C1 + 1
  20.     Wend
  21.     Cells(C1, 1) = X
  22.     Cells(C1, 2) = Y
  23.     Cells(C1, 3) = Now()
  24.     ActiveWorkbook.Save
  25.     GoTo EnterID
  26. End Sub
複製代碼
世界那麼大，可我想去哪？

TOP

stillfish00

帖子
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
  1. Sub 請輸入()
  2.     Dim x, y

  4.     x = InputBox("請輸入收料OP工號 [ Please enter Operator ID ]", "請輸入收料OP工號  [Please enter Operator ID ]", "")
  5.     If x = "" Then Exit Sub
  6.     Do
  7.         y = InputBox("請輸入MO, 輸入完畢請按取消鍵 [ Please enter MO ]", "請輸入MO [ Please enter MO ]", "")
  8.         If y = "" Then Exit Do
  9.         With Cells(Rows.Count, 1).End(xlUp)
  10.             .Cells(2, 1) = x
  11.             .Cells(2, 2) = y
  12.             .Cells(2, 3) = Now
  13.         End With
  14.     Loop

  16.     ActiveWorkbook.Save
  17. End Sub
複製代碼
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 脾氣嘴巴不好，心地再好也不能算是好人。
返回列表 上一主題