- 帖子
- 193
- 主題
- 29
- 精華
- 0
- 積分
- 222
- 點名
- 0
- 作業系統
- Windows7
- 軟體版本
- OFFICE2013
- 閱讀權限
- 20
- 註冊時間
- 2015-9-18
- 最後登錄
- 2023-4-29
|
小弟又有一個小問題
這是一個Output按鈕,會去比對Input date
點選按鈕後輸入MO去比對資料表B欄位的MO
如果有一樣的MO就在同欄的Output資料欄(F欄)上自動帶入時間
我有寫一段程式碼 但不知道如何寫搜尋功能...煩請大大協助
如果要將搜尋到的資料反底色程式碼會很複雜嗎? <額外功能 可有可無>- Sub Outwafer()
- EnterMOo:
- P = InputBox("請輸入MO [Please enter MO]", "請輸入MO [Please enter MO]", "")
- If Len(P) < 7 Then
- If MsgBox("你的輸入有誤,是否重新輸入一個MO?" & vbCrLf & _
- "點擊""是""重新輸入,""否""退出當次輸入。" & vbCrLf & _
- "You are not enter MO ,Click ""是(Y)""Re-enter or ""否(N)""End enter", vbYesNo Or vbQuestion, "無輸入MO [You are not enter MO]") = vbYes Then GoTo EnterMOo
- Exit Sub
- End If
-
- EnterOID:
- G = InputBox("請輸入工號 [Please enter OP ID]", "請輸入工號 [Please enter OP ID]", "")
- If Len(G) < 1 Then
- If MsgBox("你的輸入有誤,是否重新輸入工號?" & vbCrLf & _
- "點擊""是""重新輸入,""否""退出當次輸入。" & vbCrLf & _
- "You are not enter OP ID ,Click ""是(Y)""Re-enter or ""否(N)""End enter", vbYesNo Or vbQuestion, "無輸入工號 [You are not enter OP ID]") = vbYes Then GoTo EnterOID
- Exit Sub
- End If
- Dim C2 As Integer
- C2 = 2
- While Cells(C2, 2) <> ""
- C2 = C2 + 1
- Wend
- Cells(C2, 6) = Now()
- Cells(C2, 7) = G
- End Sub
複製代碼 另再問一下 如果刪除功能,要改成比對F欄位 超過3個月
程式碼該如何修改呢?- Sub 刪除()
- Dim R&
- R = Application.CountIf([Database!C:C], "<" & Date - 90)
- If R > 0 Then [Database!A2:C2].Resize(R).Delete Shift:=xlUp
-
- R = Application.CountIf([Database!F:F], "<" & Date - 90)
- If R > 0 Then [Database!D2:F2].Resize(R).Delete Shift:=xlUp
- End Sub
複製代碼 |
|