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

[µo°Ý] »â°h®Æ°ÝÃD½Ð±Ð-¨Ì¤u³æ¸¹½XKEY¤J»â°h®Æªº¸ê®Æ

[µo°Ý] »â°h®Æ°ÝÃD½Ð±Ð-¨Ì¤u³æ¸¹½XKEY¤J»â°h®Æªº¸ê®Æ

¦U¦ì¤j¤j§A¦n¡G
¦³´X­Ó°ÝÃD·Q½Ð±Ð¦U¦ì°ª¤â¡G

¥Ø«e·|¦³¨â­Óªí³æ¡A»â®Æ´£»â³æ¾Ú¬Okey¤JÁ`ªíªº¥Õ¦â°Ï¶ô¡A­ì®Æ»â°h®Æ³æ¨Ì¤u³æ½s¸¹key¤J¶À¡Bºñ¡BÂÅ¡B¾ï
1.ºÞ²z½s¸¹¦ì¸m¬O§_¦Û°Ê²£¥Í½s¸¹¡A°²¦pÁ`ªí¤vKEY¨ìMAL-14-028¡Aªí³æªºªÅ®æ³B¥i¦Û¨ì²£¥ÍMAL-14-029¡A¨Ã¶×¤JÁ`ªí¡C
2.§÷®ÆÃþ§OÅã¥Ü®I¤J¥ó®É¡A§÷®Æ½s¸¹¥i¥H¥uÅã¥ÜIN-XXX¡C
3.¬O§_¥i¨Ï¥Î¤½¦¡¨Ì¾Ú­ì®Æµ¥¯Å­pºâ¨Ï¥Î¶q¡A¥þ¦¸®Æ¤£­pºâ¡A·s¥[¦¸*2/3¡A·s®Æ¥¿±`¥[´î¡A©ó¬õ¦â°Ï¶ôªº¨Ï¥Î¶qªÅ®æ§e²{¡A¨Ã¶×¤JÁ`ªí¡C
4.ºñ¦â°Ï¶ô»P¾ï¦â°Ï¶ô¡A¨ÌºÞ²z½s¸¹¡A±N¼Æ¾ÚKEY¶×¤JÁ`ªí
5.§÷®Æ½s¸¹»P¶}³æ¤é¡A¬O§_¥i°Ñ·ÓÁ`ªí¸ê®ÆªººÞ²z½s¸¹¡A¨Ã¨q¥X¸ê®Æ
»â°h®Æ°ÝÃD½Ð±Ð.rar (61.76 KB)
ANN

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-10-14 11:10 ½s¿è

¦^´_ 1# ann.liu
  1. 3.¬O§_¥i¨Ï¥Î¤½¦¡¨Ì¾Ú­ì®Æµ¥¯Å­pºâ¨Ï¥Î¶q¡A¥þ¦¸®Æ¤£­pºâ¡A·s¥[¦¸*2/3¡A·s®Æ¥¿±`¥[´î¡A©ó¬õ¦â°Ï¶ôªº¨Ï¥Î¶qªÅ®æ§e²{¡A¨Ã¶×¤JÁ`ªí¡C
½Æ»s¥N½X
½Ð¦A»¡²M·¡¨Ç!
  1. Dim ws As Worksheet
  2. Private Sub UserForm_Initialize()
  3.     Dim sp As Variant, wsiRow As Range
  4.     Set ws = Worksheets("»â°h®Æ°O¿ýªí")
  5.     Set wsiRow = ws.Cells(ws.Rows.Count, 1).End(xlUp)
  6.     sp = Split(wsiRow, "-")
  7.     sp = Replace(wsiRow, sp(UBound(sp)) & "", Format(Val(sp(UBound(sp))) + 1, "0000"))
  8.     cmb§÷®Æ½s¸¹.RowSource = ""
  9.     '1.ºÞ²z½s¸¹¦ì¸m¬O§_¦Û°Ê²£¥Í½s¸¹
  10.     AlblºÞ²z½s¸¹.Caption = sp  'ªí³æ¤W³o±±¨î¶µ¬OLableu¦bª«¥ó¤W¥X²{­×¹¢¤å¦rªºÄݩʬO.Caption
  11. End Sub
  12. Private Sub cmb§÷®ÆÃþ§O_Change()
  13.     Dim e As Range
  14.     With cmb§÷®Æ½s¸¹
  15.         .RowSource = ""
  16.         If cmb§÷®ÆÃþ§O.ListIndex = 0 Then
  17.             .RowSource = [§÷®Æ½s¸¹].Address(, , , 1, 1) '[¬¡­¶Ã¯ªº ¨ç¼Æ,¦WºÙ,¤½¦¡]
  18.         ElseIf cmb§÷®ÆÃþ§O.ListIndex = 1 Then
  19.            '2.§÷®ÆÃþ§OÅã¥Ü®I¤J¥ó®É¡A§÷®Æ½s¸¹¥i¥H¥uÅã¥ÜIN-XXX¡C
  20.             For Each e In [§÷®Æ½s¸¹]
  21.                 If InStr(e, "IN-") Then .AddItem e
  22.             Next
  23.         End If
  24.     End With
  25. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2014/10/14 13:35): ½ÐªþÀÉ,¬Ý¬Ý­þ¦æµ{¦¡½X¿ù»~

¦^´_ 2# GBKEE
ª©¥D§A¦n¡G
¤£ª¾§Ú¬O§_¦³¿ù»~ªº¦a¤è¡A°õ¦æ®É·|¥X²{¿ù»~°T®§¡C
3.¬O§_¥i¨Ï¥Î¤½¦¡¨Ì¾Ú­ì®Æµ¥¯Å­pºâ¨Ï¥Î¶q¡A¥þ¦¸®Æ¤£­pºâ¡A·s¥[¦¸*2/3¡A·s®Æ¥¿±`¥[´î¡A©ó¬õ¦â°Ï¶ôªº¨Ï¥Î¶qªÅ®æ§e²{¡A¨Ã¶×¤JÁ`ªí¡C
¤£¦n·N«ä¡A¥i¯à¸ÑÄÀªº¤£°÷²M·¡¡A¦b­ì®Æ»â°h®Æ³æªºªí³æ¤¤¡A­ì®Æµ¥¯Å¦pªG¿ï¾Ü·s¥[¦¸¡A¨Ï¥Î¶q­pºâ¡G(»â®Æ¶ì®Æ­«¶q*2/3)-
(°h®Æ¶ì®Æ­«¶q*2/3)¡F
¦pªG¿ï¾Ü¥þ¦¸®Æ´N¤£­pºâ¡F¡F¦pªG·s®Æ¨Ï¥Î¶q­pºâ¡G(»â®Æ¶ì®Æ­«¶q)-
(°h®Æ¶ì®Æ­«¶q)
ANN

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD