ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¨Ï¥Îexcel¤Wºô®»¨ú¸ê®Æ,¸Óºô¯¸¤§¸ê®Æ»Ý¸g­pºâ´X¤ÀÄÁ,¦p¦ó¨ú±o?

[µo°Ý] ¨Ï¥Îexcel¤Wºô®»¨ú¸ê®Æ,¸Óºô¯¸¤§¸ê®Æ»Ý¸g­pºâ´X¤ÀÄÁ,¦p¦ó¨ú±o?

¨Ï¥Îexcel¤Wºô®»¨ú¸ê®Æ,¦ý¸Óºô¯¸¤§¸ê®Æ»Ý¸g­pºâ´X¤ÀÄÁ,¦]¦¹¨C¦¸®»¨ú®É,
¥u®»¨ú¨ìªíÀY,¨S®»¨ì¸g­pºâ«á¤§¸ê®Æ,¬O§_¦³¤èªk¥i¥H¨ú±o?

§Ú¤]§ì¨ú¹L¡A¨C¤ÀÄÁ§ì¤@¦¸¡A
¦³®É­Ô¥L¦Û°Ê·|°±¤î§ì¨ú¡A
ÁÙ¤£ª¾¹D­ì¦]¡A§V¤Oª¦¤å§@¥\½Ò¤¤¡C
¤H¥Í´N¹³³·²y¡C­«­nªº¬O­n§ä¨ìÀ㪺³·¡A©M¤@¹Dªøªøªº¤s©Y¡C¡]ªk©ç«Î´Iª¨ª¨¨t²Î¶H­­°õ¦æªø¡^

TOP

¦^´_ 1# chihminyang88

ºô§}¦p¤U : http://stockdog.tw/stockdog/index.php?p=3&m=2&sid=3176&model=0&g=&date=&YM=201212
                 ¿é¤J¥N¸¹¤Î±Ò¨´®É¶¡,¸Óºô¯¸»Ý¥Ó½Ð¬°·|­û(§K¶O)

TOP

¦^´_ 3# chihminyang88
Hsieh(2013-3-10 12:01): ªþ¤Wºô§}¨Ã»¡©ú¾Þ§@¥H«K´ú¸Õ

Áٯʻ¡©ú¾Þ§@  :ªþÀÉ ©Î µ{¦¡½X

TOP

¦^´_ 4# GBKEE

ºô§}¦p¤U : http://stockdog.tw/stockdog/index.php?p=3&m=2&sid=3176&model=0&g=&date=&YM=201212
¾Þ§@¤èªk : ¸Óºô¯¸»Ý¥Ó½Ð¬°·|­û(§K¶O)->¶i¤Jºô¯¸«áÂI¥D¤O¦¨¥»->¿é¤J¥N¸¹¤Î±Ò¨´®É¶¡«ö¤U¬d¸ß«áµ¥¤@¬q®É¶¡§Y¥i±o­pºâ«á¤§¸ê®Æ.

TOP

¦^´_ 5# chihminyang88
ºô§}¦p¤U : http://stockdog.tw/stockdog/index.php?p=3&m=2&sid=3176&model=0&g=&date=&YM=201212
¾Þ§@¤èªk : ¸Óºô¯¸»Ý¥Ó½Ð¬°·|­û(§K¶O)->¶i¤Jºô¯¸«áÂIÄw½X¤ÀªR(­¶­±¤W¤è)->¥D¤O¦¨¥»(­¶­±¥ª¤è)->¿é¤J¥N¸¹¤Î±Ò¨´®É¶¡«ö¤U¬d¸ß«áµ¥¤@¬q®É¶¡§Y¥i±o­pºâ«á¤§¸ê®Æ.

TOP

¦^´_ 6# chihminyang88
­pºâ«á¤§¸ê®Æ.½Ð°Ý§A¬O¦p¦ó¥ÎVBAªºµ{§Ç(µ{¦¡½X)¨Ó¨ú±o ,§A­n¨q¤W¨Ó¬Ý¬Ý,®Ç¤H¤~ª¾¦p¦óÀ°¦£.

TOP

¦^´_ 7# GBKEE
©êºp!²{¦bªþ¤Wµ{¦¡½X:

Private Sub Worksheet_Change(ByVal TARGET As Range)
       Dim stockno As String
       stockno =3176
      
        With ActiveSheet.QueryTables.Add(Connection:= _
             "URL;http://www.stockdog.tw/stockdog/index.php?p=3&m=2&sid=" & stockno & "&sdate=2013-01-01&edate=2013-01-31&Submit=%ACd%B8%DF" _
             , Destination:=Range("A5"))
             .Name = "«ùªÑ¤À§G"
             .FieldNames = True
             .RowNumbers = False
             .FillAdjacentFormulas = False
             .PreserveFormatting = False
             .RefreshOnFileOpen = False
             .BackgroundQuery = True
             .RefreshStyle = xlOverwriteCells
             .SavePassword = False
             .SaveData = True
             .AdjustColumnWidth = False
             .RefreshPeriod = 0
             .WebSelectionType = xlSpecifiedTables
             .WebFormatting = xlWebFormattingNone
             .WebTables = "1,2,3,4,5,6,7,8,9,10"
             .WebPreFormattedTextToColumns = True
             .WebConsecutiveDelimitersAsOne = True
             .WebSingleBlockTextImport = False
             .WebDisableDateRecognition = False
             .WebDisableRedirections = False
             .Refresh BackgroundQuery:=False
         End With
End Sub

TOP

¦^´_ 8# chihminyang88
§A¬°¦ó¥Î¤u§@ªí¤WÀx¦s®æ¦³­×§ïªº¹w³]¨Æ¥ó  ¶·­×§ï¤@¤U
  1. Private Sub Worksheet_Change(ByVal TARGET As Range)
  2.         Dim stockno As String
  3.         Application.EnableEvents = False   
  4.        'EnableEvents ÄÝ©Ê  ¦pªG«ü©wª«¥ó¯àIJµo¨Æ¥ó¡A«h¥»Äݩʬ° True¡CŪ/¼g Boolean¡C
  5.         stockno = 3176
  6.         With ActiveSheet.QueryTables.Add(Connection:= _
  7.              "URL;http://www.stockdog.tw/stockdog/index.php?p=3&m=2&sid=" & stockno & "&sdate=2013-01-01&edate=2013-01-31&Submit=%ACd%B8%DF" _
  8.              , Destination:=Range("A5"))
  9.              .Name = "«ùªÑ¤À§G"
  10.              .FieldNames = True
  11.              .RowNumbers = False
  12.              .FillAdjacentFormulas = False
  13.              .PreserveFormatting = False
  14.              .RefreshOnFileOpen = False
  15.              .BackgroundQuery = True
  16.              .RefreshStyle = xlOverwriteCells
  17.              .SavePassword = False
  18.              .SaveData = True
  19.              .AdjustColumnWidth = False
  20.              .RefreshPeriod = 0
  21.              .WebSelectionType = xlSpecifiedTables
  22.              .WebFormatting = xlWebFormattingNone
  23.              .WebTables = "1,2,3,4,5,6,7,8,9,10"
  24.              .WebPreFormattedTextToColumns = True
  25.              .WebConsecutiveDelimitersAsOne = True
  26.              .WebSingleBlockTextImport = False
  27.              .WebDisableDateRecognition = False
  28.              .WebDisableRedirections = False
  29.              .Refresh BackgroundQuery:=False
  30.          End With
  31.          Application.EnableEvents = True
  32. End Sub
½Æ»s¥N½X
¶×¤Jªº¥~³¡¸ê®Æ ¦p¤U¦³¦ó¤£¹ï?
¡ã                                       
¨é°Ó        ¶R±i        ½æ±i        ¦X­p        «ùªÑ¦¨¥»       
9659(´I¨¹°ª¶¯)        545        446        99        176.53       
9653(´I¨¹©µ¥­)        513        185        328        173.68       
5260(¤j¼y)        436        308        128        173.07       
126U(§»»·À]«e)        293        95        198        181.41       
9183(¸s¯qª÷¹©°ª¶¯)        264        220        44        175.28       
µù¥U¬°·|­û¥i¬d¸ß©Ò¦³¨é°Ó¶i¥X¸ê®Æ¡B±Æ¦æ¡B«ù¦³§¡»ù                                       
                                       
                                       
½Ð¥ý µn¤J ¡A¬d¸ß§ó¦h¸ê®Æ                                       
                                       
µù¥U¦¨¬°·|­û

TOP

¦^´_ 9# GBKEE
ÁÂÁ±zªº¦^µª!!
¸g­×§ï«á¨ÌµM¥u¯àºI¨ú¨ìªíÀY(¦p¤U¤§¸ê®Æ),ªþ¤Wexcelµ{¦¡(NEW),·Ð½Ð«ü¾É.
NOTE : ¤@ª½ÃhºÃ¬O§_¦]¸Óµ§¸ê®Æ»Ý¸g­pºâ,¦]®É¶¡®t¦Ó³y¦¨¥u¯àŪ¨ú¨ìªíÀY?

®i¶}¥D¤O¦¨¥»ªí                                                                        
                                                                       
                                                                       
¡ã                                                                       
                                                                       
¦@¦³22¤Ñ¥æ©ö¤é                                                                       
³Ì°ª»ù:7.08     ³Ì§C»ù:6.6     §¡»ù:6.81 ³Ì°ª¶q:1719     ³Ì§C¶q:128     §¡¶q:503                                                                       
¨é°Ó        ¶R±i        ¶R¶i        ½æ±i        ½æ¥X        ¶R½æ¶W        ¶R¶i        ½æ¥X        ¨R¾P       
                ¤ñ­«                ¤ñ­«                §¡»ù        §¡»ù

new.rar (63.65 KB)

µ{¦¡

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD