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

[µo°Ý] TextBoxÅã¥Ü¦Û°Ê½s¸¹°ÝÃD½Ð±Ð¡S

[µo°Ý] TextBoxÅã¥Ü¦Û°Ê½s¸¹°ÝÃD½Ð±Ð¡S

½Ð±Ð¦U¦ì¤j¤j¡G
¬O§_¥i¥H¦bTextBoxÅã¥ÜA:A³Ì«á¤@­Ó½s¸¹¦A+1
ÂI¿ïCommandButton1«á±NTextBoxÅã¥Üªº¸ê®ÆCOPY¨ì¤u§@ªí1
ªþ¥ó¦p¤U¡G
TEXT.rar (8.78 KB)
ANN

Label¤é´ÁÅã¥Ü ®æ¦¡°ÝÃD½Ð±Ð

½Ð°Ý¦U¦ì¤j¤j¡G
VLOOKUP°Ñ·Ó½s¸¹²£¥Í¤é´Á¡A
¦ý¤é´Áªº®æ¦¡»P¤u§@ªí1ªº®æ¦¡¤£¦P¡A
½Ð°Ý¬O§_¥i¥H§ï¦¨2014/9/5ªº®æ¦¡Åã¥Ü¡C

TEXT2.rar (14.07 KB)
ANN

TOP

TEXT-a.rar (27.31 KB) ¦^´_ 5# GBKEE

·PÁÂluhpro»PGBKEE¤j¤jªº¦^ÂСA¤G¦ì¤j¤jªº¤èªk³£¬O¥i¥H¨Ï¥Î¡C

¥t¥~­n½Ð±Ðluhpro¤j¤j
1.¦pªG§Ú¦³4­ÓUserForm ³£­n¦Û°Ê½s¸¹¡A½s¸¹³£­n¦Û°Ê±a¥X¡A
§Ú­«·s»s§@¥t¥~¤T­Óªí³æ¡A¦ý¸¹½X·|¶Ã¸õ¡A¤£ª¾¿ù»~¦b¨º¡A½Ð¤j¤j«ü±Ð¡S

2.§Ú°µ¤F4­Ó«ö¶sÂI¿ï»Ý­nªºªí³æ¡A¤£­n¶}©lexcel´N¦Û°Ê¸õ¥Xµøµ¡¡A
½Ð°Ý¤j¤j­n¦p¦ó½s¼g©O¡S
3.¤é´ÁÅã¥Ü¥i¥H¥[¤W®É¶¡¶Ü¡S
Me.lbl«Ø¥ß¤é´Á = Format(Application.VLookup(Me.cmb½s¸¹, Worksheets("¤u§@ªí1").[½s¸¹], 2, 0) , "yyyy/m/d")
   ªþÀÉ¡G
¥t¥~­n½Ð±ÐGBKEE¤j¤j
ªí³æ¦pªG­n³sÄò¿é¤J¦n´Xµ§¡A¬O§_¥i¥H¦Û°Ê¶i¦ì©O
1.        Private Sub CommandButton2_Click() 'cb¿é¤J«á,¥iÄ~Äò + 1
2.        txt½s¸¹ = "AL-" & Format(Application.Max(D.KEYS) + 1, "000")
3.        End Sub
ANN

TOP

GBKEE¤j¤j
¸Õ«áÁÙ¬O¤£¯à¦Û°Ê¶i¸¹
ANN

TOP

·PÁÂluhpro¤j¤j¡G
§Aªº¼gªk´ú¸Õ«á¡A¯u¬OÅý§Ú¤Ó¨ØªA¤F¡AÁöµMµ{¦¡¤£¬O«Ü¤F¸Ñ¡A
¦ý·|§V¤Oªº¬ã¨s¡AÀÉ®×´N¥ý¦¬¤U¡AºCºC¬ã¨s¤F¡A·P®¦¡C
ANN

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD