- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
7#
發表於 2016-1-8 19:57
| 只看該作者
本帖最後由 c_c_lai 於 2016-1-9 08:58 編輯
回復 6# samneng
我只幫你略微修改了 ITEM 以及 LOT 的搜尋處理,
程式規劃一定要明確,流程分明。附上程式碼:- Private Sub CommandButton1_Click() ' 篩選條件
- Dim a As String, myRange As Range ' 宣告變數
- a = ITEM.Text ' UserForm3
- If a = "" Then Exit Sub
- With Sheets("工作交接事項")
- ' 宣告 a = 表單的 ITEM
- Set myRange = .Columns(1).Find(a, lookat:=xlWhole)
-
- If Not myRange Is Nothing Then
- ' 顯示全部資料的多重篩選
- .AutoFilterMode = False
- ' 設定ITEM為搜尋條件
- If a <> "" Then .Range("A1").AutoFilter Field:=1, Criteria1:=a
-
- 反應日期.Value = .Cells(myRange.Row, "B") ' 反應日期
- 反應人員.Value = .Cells(myRange.Row, "C") ' 反應人員
- 機台.Value = .Cells(myRange.Row, "D") ' 機台
- Recipe.Value = .Cells(myRange.Row, "E") ' Recipe
- Lot.Value = .Cells(myRange.Row, "F") ' Lot No.
- 異常簡碼.Value = .Cells(myRange.Row, "G") ' 異常簡碼
- 異常問題描述.Value = .Cells(myRange.Row, "H") ' 異常問題描述
- 處置狀況.Value = .Cells(myRange.Row, "I") ' 處置狀況
- Else
- MsgBox "無找到相符合 ITEM 條件的紀錄!", vbExclamation, "錯誤"
- End If
-
- ' 關閉前將控制項中內容刪除
- Owner.Value = ""
- 回覆時間.Value = ""
- 回覆結果.Value = ""
- 回覆附件.Value = ""
- 備註.Value = ""
- End With
- End Sub
複製代碼 以及- Private Sub CommandButton3_Click() ' 篩選條件
- Dim a As String, myRange As Range ' 宣告變數
- a = LotNo.Text ' UserForm3
- If a = "" Then Exit Sub
- With Sheets("工作交接事項")
- ' 宣告 a = 表單的 LotNo
- Set myRange = .Columns(6).Find(a, lookat:=xlWhole)
-
- If Not myRange Is Nothing Then
- ' 顯示全部資料的多重篩選
- .AutoFilterMode = False
- ' 設定ITEM為搜尋條件
- If a <> "" Then .Range("A1").AutoFilter Field:=6, Criteria1:=a
-
- ITEM.Value = .Cells(myRange.Row, "A") ' ITEM No.
- 反應日期.Value = .Cells(myRange.Row, "B") ' 反應日期
- 反應人員.Value = .Cells(myRange.Row, "C") ' 反應人員
- 機台.Value = .Cells(myRange.Row, "D") ' 機台
- Recipe.Value = .Cells(myRange.Row, "E") ' Recipe
- Lot.Value = .Cells(myRange.Row, "F") ' Lot No.
- 異常簡碼.Value = .Cells(myRange.Row, "G") ' 異常簡碼
- 異常問題描述.Value = .Cells(myRange.Row, "H") ' 異常問題描述
- 處置狀況.Value = .Cells(myRange.Row, "I") ' 處置狀況
- Else
- MsgBox "無找到相符合 LOT 條件的紀錄!", vbExclamation, "錯誤"
- End If
-
- ' 關閉前將控制項中內容刪除
- Owner.Value = ""
- 回覆時間.Value = ""
- 回覆結果.Value = ""
- 回覆附件.Value = ""
- 備註.Value = ""
- End With
- End Sub
複製代碼 至於你所謂之新增,我實在不知你的企圖。 |
|