µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» office 2010 vbaÂà¨ìoffice2000ªº°ÝÃD
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
office 2010 vbaÂà¨ìoffice2000ªº°ÝÃD
lionliu
µoµu®ø®§
¥[¬°¦n¤Í
lionliu
·í«eÂ÷½u
UID
1594
©«¤l
97
¥DÃD
26
ºëµØ
0
¿n¤À
158
ª÷¿ú
158
ÂI¦W
0
§@·~¨t²Î
windows
³nÅ骩¥»
office2010
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
taichung
¦b½u®É¶¡
69 ¤p®É
µù¥U®É¶¡
2010-9-12
³Ì«áµn¿ý
2019-8-29
¤¤¾Ç¥Í
©«¤l
97
¥DÃD
26
ºëµØ
0
¿n¤À
158
ÂI¦W
0
§@·~¨t²Î
windows
³nÅ骩¥»
office2010
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
taichung
µù¥U®É¶¡
2010-9-12
³Ì«áµn¿ý
2019-8-29
1
#
¸õÂà¨ì
»
˧Ǭݩ«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2014-3-24 14:22
|
Åã¥Ü¥þ³¡©«¤l
[µo°Ý]
office 2010 vbaÂà¨ìoffice2000ªº°ÝÃD
¦U¦ì¤jô¦n
¤p§Ì³Ìªñoffice2010§@¤@Óvb¦boffice2000°õ¦æ·|¥X¿ù¡A¥H¤U¬O§Úªº¤º®e
§Úª¾¹D¦³ª©¥»°ÝÃD¦ý¬O¦]¬°¤£ª¾¦boffice2000n¦p¦ó³B²z¡C
Sub chkno()
'
'
Dim myrow As Long
Dim myrange As Range
Dim i As Integer
myrow = Range("a1").End(xlDown).Row
For i = 2 To myrow
Set myrange = Cells(i, 4)
If myrange.Value >= 1 Then
Cells(i, 5).Value = _
Cells(i, 3) & String(4 - Len(myrange), "0") & myrange
End If
Next
End Sub
¼Ó¥D¼ö©«
½Ð±Ðmid¡Bmidb¡Blen¡Blenb°ÝÃD
Àx¦s®æ¤º®e¤Î¯S®í²Å¸¹°ÝÃD
½Ð±Ðexcel °}¦C°ÝÃD
excel§é¦æ¤Àµõ°ÝÃD
¸ê®Æ¬Û¦P±Æ¦b¦P¤@¦Cªº°ÝÃD
EXCEL²Å¦X±ø¥óÀx¦s®æ¤U¤è´¡¤J¤@¦C
¯S©w°Ï¶ô¨Ì½s¸¹«·s±Æ¦C°ÝÃD
sheetÂàutf8 TXT °ÝÃD
½Ð±Ðvbaªº¼¶¼g°ÝÃD
¦p¦ó§R°£Àx¦s®æ¤¤ªºÁôÂòŸ¹
¦¬ÂÃ
¤À¨É
lionliu
lionliu
µoµu®ø®§
¥[¬°¦n¤Í
lionliu
·í«eÂ÷½u
UID
1594
©«¤l
97
¥DÃD
26
ºëµØ
0
¿n¤À
158
ª÷¿ú
158
ÂI¦W
0
§@·~¨t²Î
windows
³nÅ骩¥»
office2010
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
taichung
¦b½u®É¶¡
69 ¤p®É
µù¥U®É¶¡
2010-9-12
³Ì«áµn¿ý
2019-8-29
¤¤¾Ç¥Í
©«¤l
97
¥DÃD
26
ºëµØ
0
¿n¤À
158
ÂI¦W
0
§@·~¨t²Î
windows
³nÅ骩¥»
office2010
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
taichung
µù¥U®É¶¡
2010-9-12
³Ì«áµn¿ý
2019-8-29
2
#
µoªí©ó 2014-3-25 11:25
|
Åã¥Ü¥þ³¡©«¤l
¦^´_
2#
Hsieh
·PÁÂH¤j¦^ÂÐ
§Ú·Q§Úªº¿ù»~¤£¦bª©¥»°ÝÃD¡A§Ú¸ê®Æ¥¨¶°Y³æ¿W°õ¦æ¬OOKªº¡C
¦ý¬OY©Ò¦³¥¨¶°¦A¤@°_·|²£¥Í§ä¤£¨ì±M®×©Îµ{¦¡®w¡C
Y¿W¥ß¨ì¥t¤@Ó·sÀÉ´NOK¡C
¿ù»~µo¥ÍÂI¦A STRINGS³o¨ç¼Æ¡C
¦³ÂI¤£ª¾¦p¦ó³B²z¡C
lionliu
TOP
lionliu
µoµu®ø®§
¥[¬°¦n¤Í
lionliu
·í«eÂ÷½u
UID
1594
©«¤l
97
¥DÃD
26
ºëµØ
0
¿n¤À
158
ª÷¿ú
158
ÂI¦W
0
§@·~¨t²Î
windows
³nÅ骩¥»
office2010
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
taichung
¦b½u®É¶¡
69 ¤p®É
µù¥U®É¶¡
2010-9-12
³Ì«áµn¿ý
2019-8-29
¤¤¾Ç¥Í
©«¤l
97
¥DÃD
26
ºëµØ
0
¿n¤À
158
ÂI¦W
0
§@·~¨t²Î
windows
³nÅ骩¥»
office2010
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
taichung
µù¥U®É¶¡
2010-9-12
³Ì«áµn¿ý
2019-8-29
3
#
µoªí©ó 2014-3-27 15:20
|
Åã¥Ü¥þ³¡©«¤l
¦^´_
5#
Hsieh
ÁÂÁ¤j®a¤w¸Ñ¨M
¦ý¬O¬O¥Î²Â¤èªkOFFICE2000¶}ÀÉ«á¦A¶×¤J¼Ò²Õ
´N¥i¥H¡A©Ò¥H¤£²M·¡¯u¥¿ì¦]¦bþ¡C
¤£¹L¦b¦¹ÁÂÁ ¦U¦ì¤jô¼ö¤ßªº¦^Âгá¡C
:D :D
lionliu
TOP
ÀR«ä¦Û¦b :
¦³®É·í«äµL®ÉW¡A¦n¤Ñn¿n«B¨Ó³¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
Excel£¸¯ë°Ï
EXCEL±MÄݰQ½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·