µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excelµ{¦¡°Ï
» VBA ¤U¸üºô¶ÀÉ®×
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
[µo°Ý]
VBA ¤U¸üºô¶ÀÉ®×
li_hsien
µoµu®ø®§
¥[¬°¦n¤Í
li_hsien
·í«e¦b½u
UID
15435
©«¤l
248
¥DÃD
55
ºëµØ
0
¿n¤À
314
ª÷¿ú
314
ÂI¦W
236
§@·~¨t²Î
XP / WIN7
³nÅ骩¥»
2003 / 2007
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
Tainan
¦b½u®É¶¡
802 ¤p®É
µù¥U®É¶¡
2013-10-18
³Ì«áµn¿ý
2024-12-24
¤¤¾Ç¥Í
©«¤l
248
¥DÃD
55
ºëµØ
0
¿n¤À
314
ÂI¦W
236
§@·~¨t²Î
XP / WIN7
³nÅ骩¥»
2003 / 2007
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
Tainan
µù¥U®É¶¡
2013-10-18
³Ì«áµn¿ý
2024-12-24
1
#
¸õÂà¨ì
»
˧Ǭݩ«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2014-3-27 11:36
|
¥u¬Ý¸Ó§@ªÌ
[µo°Ý]
VBA ¤U¸üºô¶ÀÉ®×
¥»©«³Ì«á¥Ñ li_hsien ©ó 2014-3-27 11:44 ½s¿è
ÂÇ¥ÑEXCELÀx¦s®æ¿é¤J¤å¥ó½s¸¹
«ö¤U«ö¶s¤U¸üºô¯¸¤W³o¥÷¤å¥ó½s¸¹ªºÀÉ®×
¥H¤U¬O§Úª¦¤å«áªì¨Bªº¼gªk
¥Ñ©ón¤U¸üÀÉ®×»Ýn¸g¹L¤TÓºô¯¸µe±
§Ú¤w¸g¯à¨ì³Ì«á©ñÀɮתº¨ºÓµe±¤F
¥i¬OÀɮפ£ª¾«ç»ò¤U¸ü¤U¨Ó
¦ý¥Ñ©óºô¯¸¬O¤½¥q¤º³¡ºô¯¸
©Ò¥HÂsÄý¤£¨ì ¤p§Ì§Ú¶È¯àªþ¹Ï ·Ð½Ð«ü±Ð ÁÂÁÂ
²Ä¤@Óµe±
¿é¤J½s¸¹(§ìA1Äæ¦ìªºÈ)«ö¤U·j´M
¤U¸ü
(32.55 KB)
2014-3-27 11:31
¶i¨ì²Ä¤GÓµe±
¦Aª½±µÂI¿ï½s¸¹¦WºÙ(¶W³sµ²)
¤U¸ü
(26.24 KB)
2014-3-27 11:32
¶i¨ì²Ä¤TÓµe±
¬õ®Ø³¡¤À¬°§Ún¤U¸üªºPDFÀÉ(ÀɦWקאּEXCELÀx¦s®æA1ªºÈ)
¤U¸ü
(22.19 KB)
2014-3-27 11:33
¥Ø«e¤p§Ì»yªk¯à°÷¨ì²Ä¤TÓµe±
¥i¬O¤£ª¾Àɮצp¦ó¤U¸ü¤U¨Ó
¥t¥~ §Ú·Q¦b¤U¸ü¤U¨Ó«á
¦^¨ìµe±1¡A·s¿é¤JEXCELÀx¦s®æA2ªºÈ
Ä~Äò¤U¸üPDFÀÉ
Option Explicit
Sub ¸ê°Tºô¶()
Dim A As Object, B As Object
With CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "ºô§}"
Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
For Each A In .document.getelementSbyTAGNAME("INPUT")
If A.Name = "number" Then A.Value = Range("A1") '¦bEXCELªí³æ¿é¤J©Òn·j´MªºÈ
If A.Value = "·j´M" Then
A.Click '«ö¤U ·j´M
Exit For
End If
Next
Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
For Each B In .document.getelementSbyTAGNAME("A")
If B.innerText = Range("A1") Then '¦AÂI¤J·j´M¨ìªºÈ(¶W³sµ²¤è¦¡)
B.Click
Exit For
End If
Next
End With
End Sub
½Æ»s¥N½X
³Â·Ð¦U¦ì¤j¤j ÁÂÁÂ
¼Ó¥D¼ö©«
ªí³æÀx¦s®æ¦Û°Ê¤U©Ô§ó·s
§ïµ½¤jµ§¸ê®Æ³B²z
¨â¤u§@ªí¤ñ¹ï ·s¼Wקï
icon¸ô®|°ÝÃD
¨âÓ°ÝÃD¡G¤ñ¹ï°j°é & Àx¦s®æ°{Ã{
¶¥¼hÅÞ¿è§PÂ_
EXCEL 2007 VBA ¦bEXCEL 2010 °õ¦æ¥X°ÝÃD
®æ¦¡«öENTER¤~¯àÂà´«
°õ¦æ¶¥¬q¿ù»~-2147417848(80010108) Automa
³B²z¤@©w®É¶¡ ¤¤Â_°õ¦æ
¦¬ÂÃ
¤À¨É
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã
li_hsien
µoµu®ø®§
¥[¬°¦n¤Í
li_hsien
·í«e¦b½u
UID
15435
©«¤l
248
¥DÃD
55
ºëµØ
0
¿n¤À
314
ª÷¿ú
314
ÂI¦W
236
§@·~¨t²Î
XP / WIN7
³nÅ骩¥»
2003 / 2007
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
Tainan
¦b½u®É¶¡
802 ¤p®É
µù¥U®É¶¡
2013-10-18
³Ì«áµn¿ý
2024-12-24
¤¤¾Ç¥Í
©«¤l
248
¥DÃD
55
ºëµØ
0
¿n¤À
314
ÂI¦W
236
§@·~¨t²Î
XP / WIN7
³nÅ骩¥»
2003 / 2007
¾\ŪÅv
20
©Ê§O
¨k
¨Ó¦Û
Tainan
µù¥U®É¶¡
2013-10-18
³Ì«áµn¿ý
2024-12-24
2
#
µoªí©ó 2014-3-27 17:51
|
¥u¬Ý¸Ó§@ªÌ
§Ú«á¨Óª¦¤å§ä¨ìªº¤è¦¡
¤j¦h³£¬O³o¼Ë¤U¸üªº
URLDownloadToFile 0, "¨Ó·½ºô§}", "¥Øªº¸ô®|", 0, 0
½Æ»s¥N½X
¥i¬O¦n¹³¥u¾A¥Î¦b¤U¸üªºÀɮצì¸m³Ì«áÅã¥Ü¬°°ÆÀɦW(.pdf)
¦ý§Úªººô¯¸³Ì«á¤£¬O.pdf
¥i¬O¥L¹ê»Ú¤WÂI¶i¥h´N¬O¤@¥÷PDFÀÉ
¥u¬O§ÚnÂI®ÇÃ䪺Àx¦s¡A©Î¬O¹ï¶W³sµ²«ö¥kÁä¥t¦s
¤£ª¾«ç¼Ë¤~¯à¥Î»yªk¤U¸ü
½Ð±Ð¦U¦ì¤j¤j
ÁÂÁÂ
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã
TOP
ÀR«ä¦Û¦b :
§g¤l¥ß«í§Ó¡A¤p¤H«í¥ß§Ó¡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¯»µ·