ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¤p°ÝÃD½Ð°ª¤âÀ°¦£¬Ý¤@¤U!!

¤p°ÝÃD½Ð°ª¤âÀ°¦£¬Ý¤@¤U!!

½Ð°Ý¦U¦ì°ª¤â«e½ú­Ì...¤pªº¥Ø«e¸Õ§@¤u§@ºÞ²zªí¸I¤W¨â­Ó¤p°ÝÃD..½ÐÀ°¦£¬Ý¤@¤U!..ÁÂÁÂ~~

¤u§@¥æ±µ¬ö¿ýï-´ú¸Õª©.zip (84.94 KB)

1. ·í¨Ï¥Î"¤u§@¥æ±µ±`¤é¿é¤Jªí³æ"«á§Q¥ÎITEM·j´M , ¤pªº¦³³]­p­Y§ä¤£¨ì¬Û²Å¦X±ø¥ó·|¥X²{¹ï¸Ü®Ø¦ýµL½×¦p¦ó¬O§_¬Û²Å¦X³£·|¥X²{²§±`°T®§ "µL¬Û²Å¦Xªº¬ö¿ý" , ¦ý¥ÎLotNo·j´M«hµL¦¹°ÝÃD!~ ¥i§_½Ð¦U¦ì°ª¤â«e½ú­ÌÀ°¦£¬Ý¤@¤U­þÃä½s¼g¦³»~©O!?
  1. If Cells(2, 1) > ITEM.Value Then
  2. Else
  3. MsgBox "µL§ä¨ì¬Û²Å¦X±ø¥óªº¬ö¿ý!", vbExclamation, "¿ù»~"
½Æ»s¥N½X
2. ¤@¼Ë¨Ï¥Î"¤u§@¥æ±µ±`¤é¿é¤Jªí³æ"µL½×§Q¥ÎITEM or LotNo·j´M¨ì²Å¦X±ø¥ó«á¥i±NOwner~³ÆµùÄæ¦ì¶ñ¨ì"¤u§@¥æ±µ¨Æ¶µ"ªº¹ïÀ³Äæ¦ì , ¥Ñ©ó¤pªºµL½×½s¼g«áÁ`¬O¦³¤@ºØ¤è¦¡¦b·s¼W¬ö¿ý«á·|¸õ¦Ü¤U¤@¦C , ¦Ó«D¹ïÀ³Äæ¦ì~.. ½Ð¦U¦ì°ª¤â«e½ú­ÌÀ°¦£¬Ý¤@¤U!.. ÁÂÁÂ~~
  1. '§PÂ_¸ê°T¬O§_¿é¤J§¹¾ã
  2.     If Owner.Value = "" Or ¦^ÂЮɶ¡.Value = "" Or ¦^Âе²ªG.Value = "" Or ¦^ÂЪþ¥ó.Value = "" Or ³Æµù.Value = "" _
  3.        Then
  4.        MsgBox "¸ê°T¿é¤J¤£§¹¾ã¡A½Ð­«·s¿é¤J!", vbExclamation, "¿ù»~´£¥Ü"
  5.         '°h¥X°õ¦æµ{¦¡
  6.        Exit Sub
  7.     End If
  8.    
  9.     If MsgBox("½T»{¬O§_»Ý­×§ï", vbQuestion + vbYesNo, "¸ß°Ý") = vbYes Then
  10.          nrow = Worksheets("¤u§@¥æ±µ¨Æ¶µ").Range("A2:A65536").Find(ITEM.Value, lookat:=xlWhole).Row
  11.    
  12.     Else
  13.          nrow = Worksheets("¤u§@¥æ±µ¨Æ¶µ").Columns(6).Find(LotNo.Value, lookat:=xlWhole).Row
  14.    
  15.     End If
  16.    
  17.     With Worksheets("¤u§@¥æ±µ¨Æ¶µ")
  18.       
  19.         .Range(.Cells(nrow, 11), .Cells(nrow, 11)) = Owner.Value
  20.         .Range(.Cells(nrow, 12), .Cells(nrow, 12)) = ¦^ÂЮɶ¡.Value
  21.         .Range(.Cells(nrow, 13), .Cells(nrow, 13)) = ¦^Âе²ªG.Value
  22.         .Range(.Cells(nrow, 14), .Cells(nrow, 14)) = ¦^ÂЪþ¥ó.Value
  23.         .Range(.Cells(nrow, 15), .Cells(nrow, 15)) = ³Æµù.Value
  24.         
  25.     End With
½Æ»s¥N½X

¦^´_ 1# samneng
[¤@]
Private Sub CommandButton1_Click()
{1}
'«Å§i a = ªí³æªºITEM
Set myRange = Range("¤u§@¥æ±µ¨Æ¶µ").Columns(1).Find(a, lookat:=xlWhole)
a = UserForm3.ITEM.Text
­×§ï¦¨
'«Å§i a = ªí³æªºITEM
a = UserForm3.ITEM.Text
Set myRange = Range("¤u§@¥æ±µ¨Æ¶µ").Columns(1).Find(a, lookat:=xlWhole)
{2}
If Cells(2, 1) > ITEM.Value Then
­×§ï¦¨
If Not Rng Is Nothing Then

[¤G]
{1}
Private Sub CommandButton1_Click()
        LotNo.Value = "" '§ó§ïLotNo¬°¥¼¿ï¾Üª¬ºA
{2}
Private Sub CommandButton3_Click()
    ITEM.Value = "" '§ó§ïLotNo¬°¥¼¿ï¾Üª¬ºA
±N¥¦­Ì²¾°£¡A¦]¬°
    If MsgBox("½T»{¬O§_»Ý­×§ï", vbQuestion + vbYesNo, "¸ß°Ý") = vbYes Then
         nrow = Worksheets("¤u§@¥æ±µ¨Æ¶µ").Range("A2:A65536").Find(ITEM.Value, lookat:=xlWhole).Row
    Else
         nrow = Worksheets("¤u§@¥æ±µ¨Æ¶µ").Columns(6).Find(LotNo.Value, lookat:=xlWhole).Row
    End If
¦³»y¯f¡C

TOP

ÁÂÁÂc_c_lai ¤j¤jÀ°¦£¤pªº¸Ñ¨M°ÝÃD...!! ·P¿E¤£ºÉ~~
¥t¥~½Ð±Ð¤@¤U~ ¤pªº¤w¸g­«·s¸Õ¹L~...¦ýÁÙ¬O¦³¤p¤pªººÃ°ÝÀµ½ÐÀ°¦£¸Ñµª¤@¤U~...ÁÂÁ³á!!~

1. ¥Ñ©ó¤pªºÁÙ¦b¸Õ¾ÇExcel VBA¦³¿ù½Ð¦A¤£§[«ü¾É...ÁÂÁÂ~
¤w¸g±NITEM«ö¶sªº·j´M§ï¬°¦p¤U , ¤£ª¾¬O§_¦³§ï¿ù! ¥t±NCells²¾°£§ï¬°Rng¦ýµL½×¦³§_¥[Else , ¥u·|¥X²{¨âºØ±¡§Î:
a. µL¥[ElseµL½×¦³§_¬Û¦P±ø¥ó³£·|¥X²{¿ù»~°T®§
b. ¦³¥[ElseµL½×¦³§_¬Û¦P±ø¥ó³£"¤£·|"¥X²{¿ù»~°T®§
¤pªº©È¬O§_»~¸Ñ¤j¤jªº·N«ä... ¬O§_Àµ½Ð¦bÀ°¦£¬Ý¤@¤U!... ÁÂÁÂ~~
  1. '«Å§i a = ªí³æªºITEM
  2. a = UserForm3.ITEM.Text
  3. Set myRange = Range("¤u§@¥æ±µ¨Æ¶µ").Columns(1).Find(a, lookat:=xlWhole)

  4. If Not Rng Is Nothing Then
  5. Else
  6. MsgBox "µL§ä¨ì¬Û²Å¦X±ø¥óªº¬ö¿ý!", vbExclamation, "¿ù»~"
  7. End If
½Æ»s¥N½X
2. ¤pªº¥[¤JLotNo.Value & ITEM.Value = "" '¬°¥¼¿ï¾Üª¬ºA , ¬O©È¨Ï¥ÎªÌ»~¸Ñ¤£ª¾³o·|³y¦¨»y¯f·PÁ«ü¾É!... ½Ð±Ð­Y·j´MITEM®É±NLotNo±±¨î¶µ¤º®e²MªÅ¤Ï¤§¬Û¦Pªº¸Ü , ½Ð°Ý¤pªº­n¼g¦b­þ¸Ì¤~¤£·|³y¦¨»P¯f§xÂZ©O!? ... ³o¨â¶µ²¾°£½T»{¥i½s¼g¦b¦P¤@Äæ¦ì¤F! ÁÂÁ¤j¤j«ü¾É~... ¥H¤W½Ð¦bÀ°¦£½T»{¤@¤U ! ·P¿E~

TOP

¤£¦n·N«ä¦³Ãö²Ä2ÂI¤pªº«á¨Ó¸Õ¹Lµo²{¦pªG¬°ITEM·j´Mªº"·s¼W¬ö¿ý"¥i¦b¦P¤@¦CªºÄæ¦ì¦ý­Y¬°LotNo·j´Mªº"·s¼W¬ö¿ý"«oµLªk·s¼W¦b¦P¤@¦CªºÄæ¦ì½Ð±Ð¤j¤j¬O§_­þÃäµ{¦¡½X»Ý­n§ó§ï©O!... ³Â·Ð¤F~ÁÂÁÂ!!
  1. Private Sub CommandButton2_Click()
  2.     '§PÂ_¸ê°T¬O§_¿é¤J§¹¾ã
  3.     If Owner.Value = "" Or ¦^ÂЮɶ¡.Value = "" Or ¦^Âе²ªG.Value = "" Or ¦^ÂЪþ¥ó.Value = "" Or ³Æµù.Value = "" _
  4.        Then
  5.        MsgBox "¸ê°T¿é¤J¤£§¹¾ã¡A½Ð­«·s¿é¤J!", vbExclamation, "¿ù»~´£¥Ü"
  6.         '°h¥X°õ¦æµ{¦¡
  7.        Exit Sub
  8.     End If
  9.    
  10.     If MsgBox("½T»{¬O§_»Ý­×§ï", vbQuestion + vbYesNo, "¸ß°Ý") = vbYes Then
  11.          nrow = Worksheets("¤u§@¥æ±µ¨Æ¶µ").Range("A2:A65536").Find(ITEM.Value, lookat:=xlWhole).Row
  12.    
  13.     Else
  14.          nrow = Worksheets("¤u§@¥æ±µ¨Æ¶µ").Columns(6).Find(LotNo.Value, lookat:=xlWhole).Row
  15.    
  16.     End If
  17.    
  18.     With Worksheets("¤u§@¥æ±µ¨Æ¶µ")
  19.       
  20.         .Range(.Cells(nrow, 11), .Cells(nrow, 11)) = Owner.Value
  21.         .Range(.Cells(nrow, 12), .Cells(nrow, 12)) = ¦^ÂЮɶ¡.Value
  22.         .Range(.Cells(nrow, 13), .Cells(nrow, 13)) = ¦^Âе²ªG.Value
  23.         .Range(.Cells(nrow, 14), .Cells(nrow, 14)) = ¦^ÂЪþ¥ó.Value
  24.         .Range(.Cells(nrow, 15), .Cells(nrow, 15)) = ³Æµù.Value
  25.         
  26.     End With
½Æ»s¥N½X

TOP

¦^´_ 4# samneng
¥ý½Ð±Ð§A¤@­ÓºÃ°Ý (¦b¤£¥h«ä¦Ò§Aµ{¦¡¤U)¡A¬°¦ó¦³¨â­Ó­×¥¿¿ï¯Ã¡H

TOP

©êºp!.. ¥Ñ©ó¤W¯Z½t¬G±ß¦^!..¥D­n³W¹º¶µ¥Ø¦p¹Ï©Ò¥Ü :


¤pªº«á­±¦³¸Õ¹L¥H¤U´XºØ :
1. ­Y§Q¥ÎITEM·j´M«á"·s¼W¬ö¿ý"¥i¦b¦P¤@¦C«áÄò¬ÛÃöÄæ¦ìµL°ÝÃD!
2. ­Y§Q¥ÎITEM and LotNo·j´M«á"·s¼W¬ö¿ý"¥i¦b¦P¤@¦C«áÄò¬ÛÃöÄæ¦ìµL°ÝÃD!
3. ­Y³æ¿W§Q¥ÎLotNo·j´M«á"·s¼W¬ö¿ý"µLªk¦b¦P¤@¦C«áÄò¬ÛÃöÄæ¦ì!

¤pªº§ï¥Ñ¥H¤U¤è¦¡¤]¦ü¥G¤£¦æ .. µL½×¥ÎOr / And³£¤£¦æ!..
¥D­n¬O·Q§Q¥ÎÂù·j´Mªº¤è¦¡¨Ó§ä¨ì¥¿½Tªº¦P¤@¦C¸ê°T«á , ·s¼W/­×§ï¦b¦P¤@¦Cªº«áÄòÄæ¦ì¤W
¦A½Ð¤j¤jÀ°¦£½T»{¤@¤U¬O§_­þÃä½s¼g¦³»~©O!.. ÁÂÁÂ~·P¿E¤£ºÉ!!
  1. If MsgBox("½T»{¬O§_»Ý­×§ï", vbQuestion + vbYesNo, "¸ß°Ý") = vbYes Then
  2.          nrow = Worksheets("¤u§@¥æ±µ¨Æ¶µ").Range("A2:A65536").Find(ITEM.Value, lookat:=xlWhole).Row Or _
  3.          nrow = Worksheets("¤u§@¥æ±µ¨Æ¶µ").Columns(6).Find(LotNo.Value, lookat:=xlWhole).Row
  4.    
  5.     Else
  6.          'nrow = Worksheets("¤u§@¥æ±µ¨Æ¶µ").Columns(6).Find(LotNo.Value, lookat:=xlWhole).Row
  7.    
  8.     End If
  9.    
  10.     With Worksheets("¤u§@¥æ±µ¨Æ¶µ")
  11.       
  12.         .Range(.Cells(nrow, 11), .Cells(nrow, 11)) = Owner.Value
  13.         .Range(.Cells(nrow, 12), .Cells(nrow, 12)) = ¦^ÂЮɶ¡.Value
  14.         .Range(.Cells(nrow, 13), .Cells(nrow, 13)) = ¦^Âе²ªG.Value
  15.         .Range(.Cells(nrow, 14), .Cells(nrow, 14)) = ¦^ÂЪþ¥ó.Value
  16.         .Range(.Cells(nrow, 15), .Cells(nrow, 15)) = ³Æµù.Value
  17.         
  18.     End With
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-1-9 08:58 ½s¿è

¦^´_ 6# samneng
§Ú¥uÀ°§A²¤·L­×§ï¤F ITEM ¥H¤Î LOT ªº·j´M³B²z¡A
µ{¦¡³W¹º¤@©w­n©ú½T¡A¬yµ{¤À©ú¡Cªþ¤Wµ{¦¡½X¡G
  1. Private Sub CommandButton1_Click()     '  ¿z¿ï±ø¥ó
  2.     Dim a As String, myRange As Range  '  «Å§iÅܼÆ

  3.     a = ITEM.Text                  '  UserForm3
  4.     If a = "" Then Exit Sub

  5.     With Sheets("¤u§@¥æ±µ¨Æ¶µ")
  6.         '  «Å§i a = ªí³æªº ITEM
  7.          Set myRange = .Columns(1).Find(a, lookat:=xlWhole)
  8.    
  9.         If Not myRange Is Nothing Then
  10.             '  Åã¥Ü¥þ³¡¸ê®Æªº¦h­«¿z¿ï
  11.             .AutoFilterMode = False
  12.             '  ³]©wITEM¬°·j´M±ø¥ó
  13.             If a <> "" Then .Range("A1").AutoFilter Field:=1, Criteria1:=a
  14.         
  15.             ¤ÏÀ³¤é´Á.Value = .Cells(myRange.Row, "B")      '  ¤ÏÀ³¤é´Á
  16.             ¤ÏÀ³¤H­û.Value = .Cells(myRange.Row, "C")      '  ¤ÏÀ³¤H­û
  17.             ¾÷¥x.Value = .Cells(myRange.Row, "D")          '  ¾÷¥x
  18.             Recipe.Value = .Cells(myRange.Row, "E")        '  Recipe
  19.             Lot.Value = .Cells(myRange.Row, "F")           '  Lot No.
  20.             ²§±`²½X.Value = .Cells(myRange.Row, "G")      '  ²§±`²½X
  21.             ²§±`°ÝÃD´y­z.Value = .Cells(myRange.Row, "H")  '  ²§±`°ÝÃD´y­z
  22.             ³B¸mª¬ªp.Value = .Cells(myRange.Row, "I")      '  ³B¸mª¬ªp
  23.         Else
  24.             MsgBox "µL§ä¨ì¬Û²Å¦X ITEM ±ø¥óªº¬ö¿ý!", vbExclamation, "¿ù»~"
  25.         End If
  26.         
  27.         '  Ãö³¬«e±N±±¨î¶µ¤¤¤º®e§R°£
  28.         Owner.Value = ""
  29.         ¦^ÂЮɶ¡.Value = ""
  30.         ¦^Âе²ªG.Value = ""
  31.         ¦^ÂЪþ¥ó.Value = ""
  32.         ³Æµù.Value = ""
  33.     End With
  34. End Sub
½Æ»s¥N½X
¥H¤Î
  1. Private Sub CommandButton3_Click()     '  ¿z¿ï±ø¥ó
  2.     Dim a As String, myRange As Range  '  «Å§iÅܼÆ

  3.     a = LotNo.Text                 '  UserForm3
  4.     If a = "" Then Exit Sub

  5.     With Sheets("¤u§@¥æ±µ¨Æ¶µ")
  6.         '  «Å§i a = ªí³æªº LotNo

  7.         Set myRange = .Columns(6).Find(a, lookat:=xlWhole)
  8.    
  9.         If Not myRange Is Nothing Then
  10.             '  Åã¥Ü¥þ³¡¸ê®Æªº¦h­«¿z¿ï
  11.             .AutoFilterMode = False
  12.             '  ³]©wITEM¬°·j´M±ø¥ó
  13.             If a <> "" Then .Range("A1").AutoFilter Field:=6, Criteria1:=a
  14.         
  15.             ITEM.Value = .Cells(myRange.Row, "A")          '  ITEM No.
  16.             ¤ÏÀ³¤é´Á.Value = .Cells(myRange.Row, "B")      '  ¤ÏÀ³¤é´Á
  17.             ¤ÏÀ³¤H­û.Value = .Cells(myRange.Row, "C")      '  ¤ÏÀ³¤H­û
  18.             ¾÷¥x.Value = .Cells(myRange.Row, "D")          '  ¾÷¥x
  19.             Recipe.Value = .Cells(myRange.Row, "E")        '  Recipe
  20.             Lot.Value = .Cells(myRange.Row, "F")            '  Lot No.
  21.             ²§±`²½X.Value = .Cells(myRange.Row, "G")      '  ²§±`²½X
  22.             ²§±`°ÝÃD´y­z.Value = .Cells(myRange.Row, "H")  '  ²§±`°ÝÃD´y­z
  23.             ³B¸mª¬ªp.Value = .Cells(myRange.Row, "I")      '  ³B¸mª¬ªp
  24.         Else
  25.             MsgBox "µL§ä¨ì¬Û²Å¦X LOT ±ø¥óªº¬ö¿ý!", vbExclamation, "¿ù»~"
  26.         End If
  27.         
  28.         '  Ãö³¬«e±N±±¨î¶µ¤¤¤º®e§R°£
  29.         Owner.Value = ""
  30.         ¦^ÂЮɶ¡.Value = ""
  31.         ¦^Âе²ªG.Value = ""
  32.         ¦^ÂЪþ¥ó.Value = ""
  33.         ³Æµù.Value = ""
  34.     End With
  35. End Sub
½Æ»s¥N½X
¦Ü©ó§A©Ò¿×¤§·s¼W¡A§Ú¹ê¦b¤£ª¾§Aªº¥ø¹Ï¡C

TOP

¦^´_ 6# samneng
±N·s¼W³¡¤Àªþ¤W¡G
  1. Private Sub CommandButton2_Click()
  2.     Dim myRange As Range

  3.     '  §PÂ_¸ê°T¬O§_¿é¤J§¹¾ã
  4.     If Owner.Value = "" Or ¦^ÂЮɶ¡.Value = "" Or ¦^Âе²ªG.Value = "" Or ¦^ÂЪþ¥ó.Value = "" Or ³Æµù.Value = "" Then
  5.         MsgBox "¸ê°T¿é¤J¤£§¹¾ã¡A½Ð­«·s¿é¤J!", vbExclamation, "¿ù»~´£¥Ü"
  6.         Exit Sub       '  ¿é¤J¤£§¹¾ã¡A°h¥X°õ¦æµ{¦¡
  7.     End If
  8.    
  9.     With Sheets("¤u§@¥æ±µ¨Æ¶µ")
  10.         If MsgBox("½T»{¬O§_»Ý­×§ï", vbQuestion + vbYesNo, "¸ß°Ý") = vbYes Then
  11.             Set myRange = .Columns(6).Find(Lot.Value, lookat:=xlWhole)

  12.             If .Cells(myRange.Row, 16) = "¤wµ²®×" Then
  13.                 MsgBox "¸Ó¤u§@¥æ±µ¤wµ²®×" & vbCrLf & "µLªk¦A¦¸·s¼W¬ö¿ý"
  14.             Else
  15.                 .Cells(myRange.Row, 11) = Owner.Text
  16.                 .Cells(myRange.Row, 12) = ¦^ÂЮɶ¡.Text
  17.                 .Cells(myRange.Row, 13) = ¦^Âе²ªG.Text
  18.                 .Cells(myRange.Row, 14) = ¦^ÂЪþ¥ó.Text
  19.                 .Cells(myRange.Row, 15) = ³Æµù.Text
  20.                 .Cells(myRange.Row, 16) = IIf(CheckBox1 = True, "¤wµ²®×", "¥¼µ²®×")
  21.             End If
  22.             
  23.             '  ±N¤º®e¼g¤J¤u§@ªí«á¡A±N±±¨î¶µ¤¤¤º®e§R°£
  24.             Owner.Value = ""
  25.             ¦^ÂЮɶ¡.Value = ""
  26.             ¦^Âе²ªG.Value = ""
  27.             ¦^ÂЪþ¥ó.Value = ""
  28.             ³Æµù.Value = ""
  29.             CheckBox1 = False
  30.         End If
  31.     End With
  32. End Sub
½Æ»s¥N½X
¨Ñ§A°Ñ¦Ò¡C

TOP

¯uªº«Ü·PÁÂc_c_lai¤j¤j... ¤pªº¬ã¨s©Ò¥H±ß¦^... «Ü©êºp³á!
¥Ø«e¤pªº´ú¸Õµ²ªG¬O¥¿±`ªºªGµM«e½úªº¤âªk¤ñ¤pªº°ª©ú¬Æ¦h~...
¨S¦³·Q¨ì¦b·j´MLotNo¦P®ÉÅã¥Ü¬Û¹ïÀ³ªºITEM½s¸¹... ¯uªº¤ÓÁo©ú¤F!...
¦A¦¸·PÁÂc_c_lai¤j¤j... ¥t·s¼W´ú¸Õ¤]¬O¥¿±`ªº...¤pªº·|ÂÔ°O¤j¤jªº±Ð¾É"µ{¦¡³W¹º©ú½T&¬yµ{¤À©ú"ªº¥Ø¼Ð§V¤O¤¤
­Y¦³³y¦¨¤£«K¤§³B·q½Ð¨£½Ì... ¤pªº·|§V¤O¾Ç²ßªº!... ·P®¦~ÁÂÁÂc_c_lai¤j¤jªº«ü¾É!

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD