[µo°Ý] ½Ð°Ý¸Ó¦p¦ó¦Û°Ê¨ú¥N

leefing

¦pÃD
§Ú¤w¸g¦³¿ý»s¨ú¥Nªº¥¨¶°¡A¦ý¬O¨C¦¸§ó·s³£­n¦A«ö¤@¦¸¥¨¶°¡A¸Ó¦p¦ó§â¥¦§ï¦¨¦Û°ÊÅܧó
·N«ä´N¬O»¡  §Ú«ö¤@¦¸§ó·s  ¡A ´N·|ÅÜ¥x¶ì¡A¥i¬ODDE¶Ç°e¬O»O¶ì¡A©Ò¥H§Ú­n§â¦W¦r§ï¦¨»O¶ì¡A¥Îvlookup¤~§äªº¨ì

1. Sub ¼¯®Ú¨ú¥N¦W¦r()
   
2. ' Macro4 Macro
   
3. '
   
4.     Cells.Replace What:="¥x¶ì", Replacement:="»O¶ì", LookAt:=xlWhole, _
   
5.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
   
6.         ReplaceFormat:=False
   
7.         
   
8.     Cells.Replace What:="¥x¤Æ", Replacement:="»O¤Æ", LookAt:=xlWhole, _
   
9.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
   
10.         ReplaceFormat:=False
    
11.     Cells.Replace What:="»·¯¼", Replacement:="»·ªF·s", LookAt:=xlWhole, _
    
12.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    
13.         ReplaceFormat:=False
    
14. 
    
15. End Sub

½Æ»s¥N½X

register313

¦^´_ 1# leefing

¤u§@ªí¤º¥ô¤@Àx¦s®æ¤§­È¦³Åܰʮɦ۰ʰõ¦æ¨ú¥Nµ{¦¡

¤u§@ªí¼Ò²Õ

1. Private Sub WORKSHEET_CHANGE(ByVal TARGET As Range)
   
2.     Cells.Replace What:="¥x¶ì", Replacement:="»O¶ì", LookAt:=xlWhole, _
   
3.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
   
4.         ReplaceFormat:=False
   
5.         
   
6.     Cells.Replace What:="¥x¤Æ", Replacement:="»O¤Æ", LookAt:=xlWhole, _
   
7.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
   
8.         ReplaceFormat:=False
   
9.     Cells.Replace What:="»·¯¼", Replacement:="»·ªF·s", LookAt:=xlWhole, _
   
10.         SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    
11.         ReplaceFormat:=False
    
12. End Sub

½Æ»s¥N½X

leefing

¦^´_ 2# register313

¥i¥H¦Û°Ê¨ú¥N¤F¡AÁÂÁÂR¤j

GBKEE

¦^´_ 1# leefing
¤£¥Î VBA   
¦p¹Ï  «÷¦rÀˬd ³]©w  

¤U¸ü (69.18 KB)

2012-2-9 21:42

leefing

¦^´_ 4# GBKEE


    ÁÂÁÂg¤j  ¡A³o¼Ë¤S¦h¤F¤@­Ó¤èªk¥i¥H¨Ï¥Î¤F

°Ý¤@­ÓÃD¥~¸Ü¡A´N¬O³o­Óºô¯¸  ÃÒ¥æ©Ò¶°¤¤¥«³õ¸ê°T
  §Ú·Q­n§â³o¤@­¶ªºªí®æ  ¶×¨ìexcel   ¡A²{¦bªº°ÝÃD¬O§Ú«ö¶×¶i¥h  µ²ªG¨SªF¦è¶]¥X¨Ó¡A  ¤£ª¾¹D¯à¤£¯à¸Ñ¨M¡H

GBKEE

¦^´_ 5# leefing
³o¦³¤H´£¹L   ¦]¥L¤£¬O¤å¦r µLªk¶×¤JExcel

Hsieh

¦^´_ 5# leefing


    ½Æ»sºô­¶¤º®e

1. Sub Catch_Web()
   
2. Set MyIE = CreateObject("InternetExplorer.Application")
   
3. With MyIE
   
4. .navigate "http://mis.tse.com.tw/market_index.html?market=1"
   
5. Do Until .readyState = READYSTATE_COMPLETE: DoEvents: Loop
   
6. .ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0
   
7. .ExecWB OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0
   
8. Sheet1.Select
   
9. Sheet1.[A1].Select
   
10. Sheet1.Paste
    
11. .Quit
    
12. End With
    
13. End Sub

½Æ»s¥N½X