- ©«¤l
- 16
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 26
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWN XP
- ³nÅ骩¥»
- OFFICE2003
- ¾\ŪÅv
- 10
- ©Ê§O
- ¤k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2011-5-11
- ³Ì«áµn¿ý
- 2017-12-17
|
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¤jn¦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ªGn³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 |
|