- 帖子
- 824
- 主題
- 6
- 精華
- 0
- 積分
- 904
- 點名
- 0
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2023-12-24
|
2#
發表於 2016-4-2 23:57
| 只看該作者
本帖最後由 luhpro 於 2016-4-2 23:58 編輯
回復 1# man65boy
[Module]- Public lRows&
- Public vDIO, vDPeo
- Private Sub cbInput_Click()
- UserForm1.Show
- End Sub
- Private Sub Workbook_Open()
- Dim lRow&
- Dim sStr$
-
- Set vDIO = CreateObject("Scripting.Dictionary")
- Set vDPeo = CreateObject("Scripting.Dictionary")
- lRow = 2
- While Cells(lRow, 1) <> ""
- If Cells(lRow, 3) = "" Then
- sStr = "O"
- Else
- sStr = "I"
- End If
- vDIO(CStr(Cells(lRow, 1) & "-" & Cells(lRow, 2))) = sStr
- vDPeo(CStr(Cells(lRow, 1) & "-" & Cells(lRow, 2))) = lRow
- lRow = lRow + 1
- Wend
- lRows = lRow - 1
- End Sub
- Private Sub CommandButton1_Click()
- Dim lRow&
-
- If TextBox1 = "" Then
- MsgBox "你必須輸入 (車輛編號)"
- Exit Sub
- End If
-
- If TextBox2 = "" Then
- MsgBox "你必須輸入 (司機人員)"
- Exit Sub
- End If
-
- lRow = vDPeo(CStr(TextBox1 & "-" & TextBox2))
- If vDIO(CStr(TextBox1 & "-" & TextBox2)) = "O" Then ' 回來了
- Cells(lRow, 3) = TextBox2
- Cells(lRow, 5) = Now
- Cells(lRow, 6) = ComboBox1.Text
- vDIO(CStr(TextBox1 & "-" & TextBox2)) = "I"
- Else ' 即將外出
- lRows = lRows + 1
- Cells(lRows, 1) = TextBox1
- Cells(lRows, 2) = TextBox2
- Cells(lRows, 4) = Now
- vDIO(CStr(TextBox1 & "-" & TextBox2)) = "O"
- vDPeo(CStr(TextBox1 & "-" & TextBox2)) = lRows
- End If
- End Sub
- Private Sub UserForm_Initialize()
- ComboBox1.AddItem "NO"
- ComboBox1.AddItem "Yes"
- ComboBox1.ListIndex = 0
- End Sub
 20160331-A.zip (24.93 KB)
|
|
