µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» §xÂZ¤F¤T¤ÀÄÁªº°ÝÃD¡Aexcel¨ú¤£«½ÆÈ¡A¤wª¦¤å§ä¨ìµª®×¡A¤À¨É¤W¨Ó
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[¤À¨É]
§xÂZ¤F¤T¤ÀÄÁªº°ÝÃD¡Aexcel¨ú¤£«½ÆÈ¡A¤wª¦¤å§ä¨ìµª®×¡A¤À¨É¤W¨Ó
ketrddem
µoµu®ø®§
¥[¬°¦n¤Í
ketrddem
·í«eÂ÷½u
UID
20001
©«¤l
50
¥DÃD
8
ºëµØ
0
¿n¤À
66
ª÷¿ú
66
ÂI¦W
0
§@·~¨t²Î
WIN7
³nÅ骩¥»
OFFICE 2013
¾\ŪÅv
20
©Ê§O
¨k
¦b½u®É¶¡
53 ¤p®É
µù¥U®É¶¡
2015-2-3
³Ì«áµn¿ý
2022-3-5
¤¤¾Ç¥Í
©«¤l
50
¥DÃD
8
ºëµØ
0
¿n¤À
66
ÂI¦W
0
§@·~¨t²Î
WIN7
³nÅ骩¥»
OFFICE 2013
¾\ŪÅv
20
©Ê§O
¨k
µù¥U®É¶¡
2015-2-3
³Ì«áµn¿ý
2022-3-5
1
#
¸õÂà¨ì
»
˧Ǭݩ«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2016-4-25 23:45
|
¥u¬Ý¸Ó§@ªÌ
[¤À¨É]
§xÂZ¤F¤T¤ÀÄÁªº°ÝÃD¡Aexcel¨ú¤£«½ÆÈ¡A¤wª¦¤å§ä¨ìµª®×¡A¤À¨É¤W¨Ó
·QµÛ¦p¦ó¥Îvba¹ê²{¡C¤Wºôª¦¤F¤å¡A§ä¨ì¤Fµª®×
°õ¦æ®ÄªG¤]«Ü¦n¡A¤À¨É¤W¨Ó
Sub ¨ú¤£«½ÆÈ()
Dim myList As New Collection, Cel As Range, itm, i As Integer
On Error Resume Next '¹M¾ú¼Æ¾Ú°Ï°ìªº³æ¤¸®æ
For Each Cel In Sheets("¸ê®Æ©Ò¦bªº¤u§@ªí").Range("R1:R65536")
If Cel <> "" Then myList.Add Cel.Value, CStr(Cel.Value)'§PÂ_³æ¤¸®æ¤º®e¬O§_¬°ªÅ
Next
Sheets("¤u§@ªí1").Range("a:a").NumberFormatLocal = "@"
On Error GoTo 0
i = 1 '±N«D«½Æȼg¤J¤u§@ªí
For Each itm In myList
Sheets("·Ç³Æn¿é¤Jªº¤u§@ªí").Cells(i, 1) = Format(itm, "@")
i = i + 1
Next
End Sub
¼Ó¥D¼ö©«
«OÅ@vba·½½Xªº¤èªk±´°Q
Calculate¡A¯à§_¦^¶Çµo¥ÍÅܰʪºÀx¦s®æªºÄæ¦ì
vba §äÀx¦s®æ¦ì¸m°õ¦æ®Ä¯à½Ð¯q
¤H¥Í¥|¤Q¤~¶}©l
½Ð°Ýºô¸ô¤W¦³¨S¦³VTOSªº¬ÛÃö±Ð¾Ç¡A©Î¬O±ÀÂË
¤¸¤jRTD³ø»ù¥æ©ö¤¸¥ó¡A¯à§_±N±b¸¹±K½Xª½±µ¼g
¼Æ¦rÂন.(¤p¼ÆÂIªºÂI)
¦¬ÂÃ
¤À¨É
EXCEL VBA·s¤â¡A½Ð«e½ú¦h¦h«ü±Ð
ÀR«ä¦Û¦b :
¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡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¯»µ·