µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» ¦p¦ó¥i¥H§ó¦³®Ä²v§ó§ïÀx¦s®æ¤ºÈªº®æ¦¡
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
¦p¦ó¥i¥H§ó¦³®Ä²v§ó§ïÀx¦s®æ¤ºÈªº®æ¦¡
uf023630
µoµu®ø®§
¥[¬°¦n¤Í
uf023630
·í«eÂ÷½u
UID
4262
©«¤l
17
¥DÃD
7
ºëµØ
0
¿n¤À
62
ª÷¿ú
62
ÂI¦W
0
§@·~¨t²Î
WinXP
³nÅ骩¥»
Office 2003
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
Tinwan
¦b½u®É¶¡
66 ¤p®É
µù¥U®É¶¡
2011-4-9
³Ì«áµn¿ý
2018-7-6
¤¤¾Ç¥Í
©«¤l
17
¥DÃD
7
ºëµØ
0
¿n¤À
62
ÂI¦W
0
§@·~¨t²Î
WinXP
³nÅ骩¥»
Office 2003
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
Tinwan
µù¥U®É¶¡
2011-4-9
³Ì«áµn¿ý
2018-7-6
1
#
¸õÂà¨ì
»
˧Ǭݩ«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2011-4-18 14:28
|
¥u¬Ý¸Ó§@ªÌ
[µo°Ý]
¦p¦ó¥i¥H§ó¦³®Ä²v§ó§ïÀx¦s®æ¤ºÈªº®æ¦¡
°ÝÃD¤@
Á`¦@¦³6¸U¦hµ§¸ê®ÆnRUN¡A¬O§_¦³§ó¦nªº¤è¦¡
NR = ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row
For i = 4 To NR
Cells(i, 1).Value = VBA.Format$(Trim(Cells(i, 1).Value), "'" & "00000000")
Next
°ÝÃD¤G
¸ê®Æ¦bABCÄæ¨Ñ4¸Uµ§
»Ý¿z¿ï¯S©w¸ê®Æ(¤£«½Æ)¶K¨ìE-G H-J ......¦³¥i¯à±q´_6-7¦¸
§Ún¦p¦ó¼g,¤§«e·Q¥Î°j°é¼g¥¹¬O¦³¤@ÂI½ÆÂø¡A½Ð¤j®aÀ°§Ú·Q·Q
¤U¸ü
(57.97 KB)
2011-4-18 14:21
¼Ó¥D¼ö©«
§PÂ_¦Û°Ê¿z¿ïAutoFilterªº°ÝÃD
¤j¶q¸ê®Æ¤ñ¹ï»P¦X¨Ö
¤j¶q¸ê®Æ¿z¿ï¤£«½Æ¨Ã¤ÀÃþ
VBA ³sµ² Access ªº°ÝÃD½Ð±Ð
Ãö©óUserForm ¤¤ª«¥óChartSpaceªº¥Îªk½Ð±Ð
Ãö©óºô¶ì©lÀÉ®×-¸ê®ÆŪ¨ú
¦¬ÂÃ
¤À¨É
oobird
µoµu®ø®§
¥[¬°¦n¤Í
oobird
·í«eÂ÷½u
µó¤Í¤@±Ú
UID
17
©«¤l
1572
¥DÃD
16
ºëµØ
2
¿n¤À
1521
ª÷¿ú
1521
ÂI¦W
0
§@·~¨t²Î
xp
³nÅ骩¥»
office 2003
¾\ŪÅv
150
©Ê§O
¨k
¦b½u®É¶¡
832 ¤p®É
µù¥U®É¶¡
2010-5-1
³Ì«áµn¿ý
2016-1-13
¡@ÀY»Î:
µó¤Í¤@±Ú
¶W¯Åª©¥D
©«¤l
1572
¥DÃD
16
ºëµØ
2
¿n¤À
1521
ÂI¦W
0
§@·~¨t²Î
xp
³nÅ骩¥»
office 2003
¾\ŪÅv
150
©Ê§O
¨k
µù¥U®É¶¡
2010-5-1
³Ì«áµn¿ý
2016-1-13
2
#
µoªí©ó 2011-4-19 09:19
|
¥u¬Ý¸Ó§@ªÌ
1.§ï¥Î°}¦C¿é¤J¡AÀþ¶¡§¹¦¨
Dim i&,rng
rng = Range(Cells(4, 1), Cells(65536, 1))
For i = 1 To UBound(rng)
rng(i, 1) = VBA.Format$(Trim(rng(i, 1)), "'" & "00000000")
Next
Cells(4, 1).Resize(UBound(rng)) = rng
2.¤W¶Ç§Aªº¤å¥ó¤~·|ª¾¹D¿z¿ï¤°»ò
TOP
uf023630
µoµu®ø®§
¥[¬°¦n¤Í
uf023630
·í«eÂ÷½u
UID
4262
©«¤l
17
¥DÃD
7
ºëµØ
0
¿n¤À
62
ª÷¿ú
62
ÂI¦W
0
§@·~¨t²Î
WinXP
³nÅ骩¥»
Office 2003
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
Tinwan
¦b½u®É¶¡
66 ¤p®É
µù¥U®É¶¡
2011-4-9
³Ì«áµn¿ý
2018-7-6
¤¤¾Ç¥Í
©«¤l
17
¥DÃD
7
ºëµØ
0
¿n¤À
62
ÂI¦W
0
§@·~¨t²Î
WinXP
³nÅ骩¥»
Office 2003
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
Tinwan
µù¥U®É¶¡
2011-4-9
³Ì«áµn¿ý
2018-7-6
3
#
µoªí©ó 2011-4-20 13:26
|
¥u¬Ý¸Ó§@ªÌ
·PÁÂoobirdªºÀ°§U¡A³t«×ªGµM§Ö«Ü¦h¡A§Ú¦]¸Ó¦n¦n¾Ç²ß¤@¤U°}¦Cªº¨Ï¥Î§Þ¥©
TOP
ÀR«ä¦Û¦b :
¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤HµhW¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
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¯»µ·