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

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

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

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

¤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

ÁÂÁÂ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

©êºp!.. ¥Ñ©ó¤W¯Z½t¬G±ß¦^!..¥D­n³W¹º¶µ¥Ø¦p¹Ï©Ò¥Ü :
¤u§@ªí»¡©ú.jpg
2016-1-8 13:26


¤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

¯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 : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD