VBA 當2個條件一樣時，自動尋找輸入 3 程式修改
- 帖子
- 169
- 主題
- 39
- 精華
- 0
- 積分
- 252
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2003
- 閱讀權限
- 20
- 註冊時間
- 2011-4-17
- 最後登錄
- 2020-7-17
 
|
回復 10# 准提部林
謝准大大的回答，程式執行只有尋找(寫入返回車)的功能，沒原先的寫入(增加車輛編號&出車)的功能，我把名稱改一下，會比較理解，不然小弟會誤導老師們，拍事!
表單設計功能是，配合公司條碼機，能快速寫入，尋找，計算時間，工作表A欄(車輛編號)<<是英文+數字不固定的，B欄(出車人員(1))<<也是是英文+數字不固定的，C欄(返車人員(2))<<也是是英文+數字不固定的，最重要的是B.C欄相同一列的人員號碼，絕對是一樣的，意思是使用表單輸入寫入，當車輛編號輸入11，司機人員輸入王建民，表單中的(回車物品)在出車人員成立時，是無法寫入的，按確定，資料完全寫入，然後，我再次使用表單輸入，當車輛編號再次輸入11，司機人員再次輸入王建民時，表單就要去尋找工作表裡，哪個欄位是11，哪個返車人員是王建民，找到後寫入，表單中的(回車物品)在返車人員成立時，是可以寫入的，所有的資料都依序往下寫入，假使途中把工作表內的資料其中一列，刪除時，再次使用表單輸入時，也要把新的資料，填補在那一列，如再有新資料，也要往下列輸入，(字太多，有點灰)，有勞老師幫忙。
 20181206.rar (59.55 KB)
|
|
|
|
|
|
|
|
- 帖子
- 2848
- 主題
- 10
- 精華
- 0
- 積分
- 2903
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2026-7-25
|
12#
發表於 2018-12-6 17:27
| 只看該作者
本帖最後由 准提部林 於 2018-12-6 17:32 編輯
回復 11# man65boy
1) 假使途中把工作表內的資料其中一列，刪除時，再次使用表單輸入時，也要把新的資料，填補在那一列
__是指[清除]吧! 列變成空白, 而不是整列刪除???
__所以, 新的資料要從中間有空白的列優先填補, 沒有中間空白列了, 才從最後一列下面空白列填寫???
__要新寫入的資料與被刪除的沒有對應關係???
2) 己有[回車]時間的列, 不再對其做任何處理??? (表示該工作已完成)
3) 只有[出車]時間者, 等[回車]時, 只要填入__人員(2)/回車時間/物品???
4) 新增[出車]時, 只填入__車輛/人員(1)/出車時間??? |
|
|
|
|
|
|
|
- 帖子
- 2848
- 主題
- 10
- 精華
- 0
- 積分
- 2903
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2026-7-25
|
13#
發表於 2018-12-6 20:18
| 只看該作者
回復 11# man65boy
Dim vD As Object
Private Sub CommandButton1_Click()
Dim T$, T1$, T2$, R&
T1 = TextBox1: T2 = TextBox2: T = T1 & "|" & T2
If T1 = "" Then MsgBox "你必須輸入 (車輛編號) ": Exit Sub
If T2 = "" Then MsgBox "你必須輸入 (司機人員) ": Exit Sub
R = Val(vD(T))
If R = 0 Then '出車
R = [A:A].Find(What:="", LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext).Row
Cells(R, 1) = T1: Cells(R, 2) = T2: Cells(R, 4) = Now
vD(T) = R
Else '回車
If ComboBox1.Text = "" Then MsgBox "這是【回車】趟，(回車物品) 必須輸入 ": Exit Sub
Cells(R, 3) = T2: Cells(R, 5) = Now: Cells(R, 6) = ComboBox1.Text
vD(T) = 0
End If
TextBox1 = "": TextBox1.SetFocus: TextBox2 = "": ComboBox1 = ""
End Sub
Private Sub UserForm_Initialize()
Dim T$, T1$, T2$, i&, Arr
Set vD = CreateObject("Scripting.Dictionary")
Arr = Range([F1], [A65536].End(xlUp))
For i = 2 To UBound(Arr)
T1 = Arr(i, 1): T2 = Arr(i, 2): T = T1 & "|" & T2
If T1 <> "" And T2 <> "" And Arr(i, 3) = "" Then vD(T) = i
Next i
ComboBox1.List = Array("NO", "Yes")
End Sub
111_v2.rar (27.91 KB)
|
|
|
|
|
|
|
|
- 帖子
- 169
- 主題
- 39
- 精華
- 0
- 積分
- 252
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- 2003
- 閱讀權限
- 20
- 註冊時間
- 2011-4-17
- 最後登錄
- 2020-7-17
|
14#
發表於 2018-12-6 22:57
| 只看該作者
回復 13# 准提部林
謝謝准大老師的幫忙，完美的工作表，真是太實用了，謝謝准大老師。
准大的名言:
＜准提部林＞知識+．點數有多有少．公仔換不了．慈善捐不了．門票抵不了多了富不了．少了死不了．機心追累何時了知識+．頭銜有高有低．名片印不了．招牌掛不了．墓誌刻不了高了傲不了．低了羞不了．苦心謀取何時了 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 滴水效應 |
|
|
|
|
|
|
|
- 帖子
- 406
- 主題
- 8
- 精華
- 0
- 積分
- 453
- 點名
- 0
- 作業系統
- WINDOWS 7
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣
- 註冊時間
- 2015-2-7
- 最後登錄
- 2021-7-31
|
15#
發表於 2018-12-6 23:53
| 只看該作者
本帖最後由 n7822123 於 2018-12-7 00:04 編輯
回復 1# man65boy
你的程式寫的好分散.......
你原本的程式只要改其中一行即可
討論串好長......懶得看，好像還有其他問題
只解決你1樓的問題，不幫助其他Debug
lRows = lRows+ 1
改為
lRows = [A1].End(4).Row + 1
20181128+.rar (26.61 KB)
|
|
|
程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助
|
|
|
|
|
