返回列表 上一主題 發帖

VBA 當2個條件一樣時，自動尋找輸入 2

man65boy

帖子
169 
主題
39 
精華
0 
積分
252 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2011-4-17 
最後登錄
2020-7-17 

2012龍年全勤獎章2011兔年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-3-31 11:55 | 只看該作者

VBA 當2個條件一樣時，自動尋找輸入 2

當工作表上有"車輛編號"A201603030015和"司機(1)"黑松和"司機(2)"黑松時，這代表他已經送貨回來了，但因為他在不同樣的時間又出去送貨，所以還要再次輸入"車輛編號"A201603030015和"司機(1)"黑松，這個資料還要依序在A欄和B欄上轉寫，當他又送貨完回來時，又要回到只能在C欄產生B欄對應的資料，(新增F欄為TextBox3 所填入的資料)也跟著回車輸入進去，麻煩老師在費心了，謝謝!
覆檔: 20160331.rar (26.25 KB)
收藏 分享

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2016-4-2 23:57 | 只看該作者
本帖最後由 luhpro 於 2016-4-2 23:58 編輯

回復 1# man65boy
[Module]
  1. Public lRows&
  2. Public vDIO, vDPeo
複製代碼
[Sheet 主頁]
  1. Private Sub cbInput_Click()
  2.   UserForm1.Show
  3. End Sub
複製代碼
[ThisWorkbook]
  1. Private Sub Workbook_Open()
  2.   Dim lRow&
  3.   Dim sStr$
  4.   
  5.   Set vDIO = CreateObject("Scripting.Dictionary")
  6.   Set vDPeo = CreateObject("Scripting.Dictionary")
  7.   lRow = 2
  8.   While Cells(lRow, 1) <> ""
  9.     If Cells(lRow, 3) = "" Then
  10.       sStr = "O"
  11.     Else
  12.       sStr = "I"
  13.     End If
  14.     vDIO(CStr(Cells(lRow, 1) & "-" & Cells(lRow, 2))) = sStr
  15.     vDPeo(CStr(Cells(lRow, 1) & "-" & Cells(lRow, 2))) = lRow
  16.     lRow = lRow + 1
  17.   Wend
  18.     lRows = lRow - 1
  19. End Sub
複製代碼
[UserForm]
  1. Private Sub CommandButton1_Click()
  2.   Dim lRow&
  3.   
  4.   If TextBox1 = "" Then
  5.     MsgBox "你必須輸入 (車輛編號)"
  6.     Exit Sub
  7.   End If
  8.   
  9.   If TextBox2 = "" Then
  10.     MsgBox "你必須輸入 (司機人員)"
  11.     Exit Sub
  12.   End If
  13.   
  14.   lRow = vDPeo(CStr(TextBox1 & "-" & TextBox2))
  15.   If vDIO(CStr(TextBox1 & "-" & TextBox2)) = "O" Then ' 回來了
  16.     Cells(lRow, 3) = TextBox2
  17.     Cells(lRow, 5) = Now
  18.     Cells(lRow, 6) = ComboBox1.Text
  19.     vDIO(CStr(TextBox1 & "-" & TextBox2)) = "I"
  20.   Else ' 即將外出
  21.     lRows = lRows + 1
  22.     Cells(lRows, 1) = TextBox1
  23.     Cells(lRows, 2) = TextBox2
  24.     Cells(lRows, 4) = Now
  25.     vDIO(CStr(TextBox1 & "-" & TextBox2)) = "O"
  26.     vDPeo(CStr(TextBox1 & "-" & TextBox2)) = lRows
  27.   End If
  28. End Sub

  30. Private Sub UserForm_Initialize()
  31.   ComboBox1.AddItem "NO"
  32.   ComboBox1.AddItem "Yes"
  33.   ComboBox1.ListIndex = 0
  34. End Sub
複製代碼
請留意 : 主頁 的 輸入按鈕 我有重建成 cbInput 按鈕物件

20160331-A.zip (24.93 KB)

TOP

man65boy

帖子
169 
主題
39 
精華
0 
積分
252 
點名
0  
作業系統
XP 
軟體版本
2003 
閱讀權限
20 
註冊時間
2011-4-17 
最後登錄
2020-7-17 

2012龍年全勤獎章2011兔年全勤獎章
3#
發表於 2016-4-3 11:50 | 只看該作者
回復 2# luhpro

感謝luhpro老師的答覆，完美好實用，真的很謝謝!

TOP

        靜思自在 : 人生最大的成就是從失敗中站起來。
返回列表 上一主題