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

[µo°Ý] ½Ð°Ý¦p¦ó±N¿z¿ï±ø¥óÅã¥Ü¦bªí³æ¤º¨Ã·s¼W¸ê®Æ¦b¦P¤@Äæ¦ì

[µo°Ý] ½Ð°Ý¦p¦ó±N¿z¿ï±ø¥óÅã¥Ü¦bªí³æ¤º¨Ã·s¼W¸ê®Æ¦b¦P¤@Äæ¦ì

½Ð°Ý¦U¦ì«e½ú..¤j¤j­Ì!... ¤pªº¤w¸gª¦¹L½×¾Â¤å³¹¤]¦Û¤v¤â°Ê½s¼g¤@¥÷¤u§@ªí³æ (ªì¾ÇªÌ©|¦bºN¯Á¤¤)
¦ý¦b¤u§@¥æ±µ±`¤é¿é¤Jªí³æ¤º...¬d¸ßITEM«áµL½×¦p¦ó¸Õ³£µLªk±N"¤u§@¥æ±µ¨Æ¶µ"ªº¤u§@ªí¤ºÄæ¦ìÂà¼g¨ìªí³æ¤ºªº¹ïÀ³Äæ¦ì
½Ð±ÐÀ³¸Ó¦p¦ó¦b¿z¿ï«á¥iÅã¥Üªí³æ¤ºªº¹ïÀ³Äæ¦ì¨Ã±N¤U¤è·s¼Wªº¸ê°T¼g¤J¦P¤@¦C«á­±Äæ¦ì¤¤!..
½Ð¦U¦ì«e½ú...¤j¤j­ÌÀ°¦£¤@¤U!... ÁÂÁÂ!!

¤u§@ªí.jpg (98.89 KB)

¤u§@ªí.jpg

´ú¸ÕÀÉ20151225.zip (31.24 KB)

©êºpªþ¤WÀɮפº®e...ÁÂÁÂ!!

TOP

¬O³o¼Ë¶Ü?
test.gif
¸Õ¸Õ¬Ý!!
  1. 'Sheets("¤u§@¥æ±µ¨Æ¶µ")_CommandButton1
  2. Private Sub CommandButton1_Click()
  3.     UserForm1.Show
  4. End Sub

  5. 'UserForm1_CommandButton1
  6. Private Sub CommandButton1_Click()
  7.     Dim sh As Worksheet, Rng As Range, MH
  8.     Dim LstR As Integer
  9.     Set sh = Sheets("¤u§@¥æ±µ¨Æ¶µ")
  10.     LstR = sh.[A2].End(xlDown).Row
  11.     Set Rng = sh.[A2].Resize(LstR - 1, 1)
  12.     MH = Application.Match(TextBox1.Value, Rng, 0)
  13.     If IsNumeric(MH) Then
  14.         TextBox2.Value = sh.Cells(MH + 1, "B")  '¤ÏÀ³¤é´Á
  15.         TextBox3.Value = sh.Cells(MH + 1, "C")  '¤ÏÀ³¤H­û
  16.         '~~
  17.         '~~
  18.     End If
  19. End Sub

  20. 'UserForm1_CommandButton2
  21. Private Sub CommandButton2_Click()   'OK
  22.     Unload Me
  23. End Sub
½Æ»s¥N½X

TOP

ÁÂÁÂyen956¤j¤jªºÀ°¦£.. ¥¿¬O¤pªº»Ý­nªº¥\¯à!..
¥Ñ©ó¤pªº­è¤J½×¾Â©|¥¼¤F¸Ñ¨ìµo¤åªº³W«h­Y¦³¿ù»~¤§³B·q½Ð¤£§[«ü¾É...
¤]¬O¥¿¦bºN¯Á¤¤ªº·s¤â... ¥u­n¤ñ¤pªº¼F®`ªº³£¬O«e½ú©M¤j¤j­Ì...
¥ý«e¤pªº¤]¦³¸ÕµÛ¸ÑŪGBKEE¤j¤j¤§«eªº¤u®É¨t²Î¤å³¹..©`¦ó¤~²¨¾Ç²L¤£±o­n»â¥H­P«pµÛÁy¥Ö´M¨D¨ó§U
¦A¦¸·PÁÂyen956¤j¤jªºÀ°¦£.. 12¸U¤Àªº·P¿E!!.. ¤]ÁÂÁ¯¸¤W¦U¦ì«e½ú¤j¤j­Ì¸gÅ窺¤å³¹¤À¨É
¤pªº¤~¯àºCºC¤@¨B¤@¨Bªº¦¨ªø... ·Ð½Ð¤£§[«ü±Ð©MªÈ¥¿...ÁÂÁÂ!!

TOP

¤£¦n·N«ä¦A¦¸½Ð±Ð¦U¦ì¤j¤j...¤pªº¤w¸g¨Ìyen956¤j¤j¤è¦¡¦¨¥\«Ø¥ßITEM·j´M¤è¦¡¨Ã¤ÏõX¦b¬ÛÀ³Äæ¦ì
¦ý¤pªº·Q·s¼W¥t¤@·j´M±ø¥óLotNo... ¦ý¦ü¥GÅܧóµL®Ä·Q½Ð°Ý¦U¦ì¤j¤j«e½ú­Ì¬O§_¤pªº¦³©¿²¤¤°»ò...Àµ½Ð«ü±Ð...ÁÂÁÂ!!

¦p¤U¹Ï

ªþ¥ó : ¦³·s¼W¤@«ö¶s¥i°õ¦æªí³æ...
  1. ¤u§@ªí³æ.zip (42.11 KB)

  2. Private Sub CommandButton3_Click()

  3. '«Å§iÅܼÆ
  4. Dim b
  5. Dim myRange As Range, MH
  6. Dim myTable As Worksheet
  7. Dim Xrow As Long
  8. Dim Rng As Range


  9. Set myTable = Sheets("¤u§@¥æ±µ¨Æ¶µ")
  10. Set myRange = Range("¤u§@¥æ±µ¨Æ¶µ").Columns(1).Find(a, LookAt:=xlWhole)

  11. '«Å§ib = ªí³æªºLotNo
  12. b = UserForm3.LotNo.Text

  13. 'Åã¥Ü¥þ³¡¸ê®Æªº¦h­«¿z¿ï
  14. With ActiveSheet.Range("¤u§@¥æ±µ¨Æ¶µ")
  15.     .Parent.AutoFilterMode = False
  16.    
  17.     '³]©wLotNo¬°·j´M±ø¥ó
  18.     If b <> "" Then .AutoFilter Field:=6, Criteria1:=b

  19. End With

  20. Xrow = myTable.[F2].End(xlDown).Row
  21. Set Rng = myTable.[F2].Resize(Xrow - 1, 1)

  22. MH = Application.Match(LotNo.Value, Rng, 0) 'MH
  23. If IsNumeric(MH) Then
  24.         ¤ÏÀ³¤é´Á.Value = myTable.Cells(MH + 1, "B") '¤ÏÀ³¤é´Á
  25.         ¤ÏÀ³¤H­û.Value = myTable.Cells(MH + 1, "C")    '¤ÏÀ³¤H­û
  26.         ¾÷¥x.Value = myTable.Cells(MH + 1, "D")  '¾÷¥x
  27.         Recipe.Value = myTable.Cells(MH + 1, "E")  'Recipe
  28.         Lot.Value = myTable.Cells(MH + 1, "F")  'Lot
  29.         ²§±`²½X.Value = myTable.Cells(MH + 1, "G")  '²§±`²½X
  30.         ²§±`°ÝÃD´y­z.Value = myTable.Cells(MH + 1, "H")  '²§±`°ÝÃD´y­z
  31.         ³B¸mª¬ªp.Value = myTable.Cells(MH + 1, "I")  '³B¸mª¬ªp

  32. End If

  33. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD