- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-1-9 08:58 ½s¿è
¦^´_ 6# samneng
§Ú¥uÀ°§A²¤·Lקï¤F ITEM ¥H¤Î LOT ªº·j´M³B²z¡A
µ{¦¡³W¹º¤@©wn©ú½T¡A¬yµ{¤À©ú¡Cªþ¤Wµ{¦¡½X¡G- Private Sub CommandButton1_Click() ' ¿z¿ï±ø¥ó
- Dim a As String, myRange As Range ' «Å§iÅܼÆ
- a = ITEM.Text ' UserForm3
- If a = "" Then Exit Sub
- With Sheets("¤u§@¥æ±µ¨Æ¶µ")
- ' «Å§i a = ªí³æªº ITEM
- Set myRange = .Columns(1).Find(a, lookat:=xlWhole)
-
- If Not myRange Is Nothing Then
- ' Åã¥Ü¥þ³¡¸ê®Æªº¦h«¿z¿ï
- .AutoFilterMode = False
- ' ³]©wITEM¬°·j´M±ø¥ó
- If a <> "" Then .Range("A1").AutoFilter Field:=1, Criteria1:=a
-
- ¤ÏÀ³¤é´Á.Value = .Cells(myRange.Row, "B") ' ¤ÏÀ³¤é´Á
- ¤ÏÀ³¤Hû.Value = .Cells(myRange.Row, "C") ' ¤ÏÀ³¤Hû
- ¾÷¥x.Value = .Cells(myRange.Row, "D") ' ¾÷¥x
- Recipe.Value = .Cells(myRange.Row, "E") ' Recipe
- Lot.Value = .Cells(myRange.Row, "F") ' Lot No.
- ²§±`²½X.Value = .Cells(myRange.Row, "G") ' ²§±`²½X
- ²§±`°ÝÃD´yz.Value = .Cells(myRange.Row, "H") ' ²§±`°ÝÃD´yz
- ³B¸mª¬ªp.Value = .Cells(myRange.Row, "I") ' ³B¸mª¬ªp
- Else
- MsgBox "µL§ä¨ì¬Û²Å¦X ITEM ±ø¥óªº¬ö¿ý!", vbExclamation, "¿ù»~"
- End If
-
- ' Ãö³¬«e±N±±¨î¶µ¤¤¤º®e§R°£
- Owner.Value = ""
- ¦^ÂЮɶ¡.Value = ""
- ¦^Âе²ªG.Value = ""
- ¦^ÂЪþ¥ó.Value = ""
- ³Æµù.Value = ""
- End With
- End Sub
½Æ»s¥N½X ¥H¤Î- Private Sub CommandButton3_Click() ' ¿z¿ï±ø¥ó
- Dim a As String, myRange As Range ' «Å§iÅܼÆ
- a = LotNo.Text ' UserForm3
- If a = "" Then Exit Sub
- With Sheets("¤u§@¥æ±µ¨Æ¶µ")
- ' «Å§i a = ªí³æªº LotNo
- Set myRange = .Columns(6).Find(a, lookat:=xlWhole)
-
- If Not myRange Is Nothing Then
- ' Åã¥Ü¥þ³¡¸ê®Æªº¦h«¿z¿ï
- .AutoFilterMode = False
- ' ³]©wITEM¬°·j´M±ø¥ó
- If a <> "" Then .Range("A1").AutoFilter Field:=6, Criteria1:=a
-
- ITEM.Value = .Cells(myRange.Row, "A") ' ITEM No.
- ¤ÏÀ³¤é´Á.Value = .Cells(myRange.Row, "B") ' ¤ÏÀ³¤é´Á
- ¤ÏÀ³¤Hû.Value = .Cells(myRange.Row, "C") ' ¤ÏÀ³¤Hû
- ¾÷¥x.Value = .Cells(myRange.Row, "D") ' ¾÷¥x
- Recipe.Value = .Cells(myRange.Row, "E") ' Recipe
- Lot.Value = .Cells(myRange.Row, "F") ' Lot No.
- ²§±`²½X.Value = .Cells(myRange.Row, "G") ' ²§±`²½X
- ²§±`°ÝÃD´yz.Value = .Cells(myRange.Row, "H") ' ²§±`°ÝÃD´yz
- ³B¸mª¬ªp.Value = .Cells(myRange.Row, "I") ' ³B¸mª¬ªp
- Else
- MsgBox "µL§ä¨ì¬Û²Å¦X LOT ±ø¥óªº¬ö¿ý!", vbExclamation, "¿ù»~"
- End If
-
- ' Ãö³¬«e±N±±¨î¶µ¤¤¤º®e§R°£
- Owner.Value = ""
- ¦^ÂЮɶ¡.Value = ""
- ¦^Âе²ªG.Value = ""
- ¦^ÂЪþ¥ó.Value = ""
- ³Æµù.Value = ""
- End With
- End Sub
½Æ»s¥N½X ¦Ü©ó§A©Ò¿×¤§·s¼W¡A§Ú¹ê¦b¤£ª¾§Aªº¥ø¹Ï¡C |
|