麻辣家族討論版版 » Excel程式區 » input box輸入比對資料

返回列表下一主題上一主題發帖

[發問] input box輸入比對資料

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2015-10-8 21:32 | 只看該作者

[發問] input box輸入比對資料

小弟又有一個小問題

這是一個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

複製代碼

樓主熱帖

收藏

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

5^#

發表於 2015-10-12 21:44 | 只看該作者

回復 4# lpk187

感謝大大的提供！我在稍微做個修改！:)

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

4^#

發表於 2015-10-12 07:12 | 只看該作者

回復 1# v03586

查詢比對的方式有很多種，討論區中有太多例子了，下列提供2種給你參考：

With Sheets("工作表1")
For Each Rng In .Range("b2:B" & Cells(Rows.Count, 2).End(xlUp).Row)
If Rng <> "" Then
If Rng Like P Then
Rng.Offset(, 4) = Rng.Offset(, -1)
Rng.Offset(, 5) = G
End If
End If
Next
End With

複製代碼

Dim Rng As Range
With Sheets("工作表1")
With .Columns(2)
Set Rng = .Find(P, , , 1, , 2)
If Not Rng Is Nothing Then
Rng.Offset(, 4) = Rng.Offset(, -1)
Rng.Offset(, 5) = G
Else
MsgBox "查無資料"
End If
End With
End With

複製代碼

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

3^#

發表於 2015-10-12 00:27 | 只看該作者

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

2^#

發表於 2015-10-8 21:37 | 只看該作者

例如我輸入28445621 資料表B欄有這筆資料就在F欄位上帶入時間表示Ouput了作業員ID
如下圖

靜思自在 : 忘功不忘過，忘怨不忘恩。

返回列表下一主題上一主題