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

[µo°Ý] ¶]¨ì¤@¥b·|¥d¦í~~

[µo°Ý] ¶]¨ì¤@¥b·|¥d¦í~~

¥»©«³Ì«á¥Ñ power82843 ©ó 2016-12-1 23:09 ½s¿è

test.rar (476.9 KB) ¦U¦ì¥ý¶i¤p§Ì³o­Óµ{¦¡¶]¨ì¤@¥b´N·|¥d¦í¡A¥i§_À°§Ú¬Ý¬Ý°ÝÃD¥X¦b­þ¡A·PÁÂ!

¥»©«³Ì«á¥Ñ GBKEE ©ó 2016-12-2 07:19 ½s¿è

¦^´_ 1# power82843

¬O³o¸Ì¥d¦í¶Ü?
  1. Option Explicit
  2. Sub ªÑ§QªÑ®§()
  3.     Dim Sh As Worksheet, i As Integer
  4.     On Error Resume Next                  '¤£²z·|µ{¦¡¤Wªº¿ù»~,µ{¦¡Ä~Äò°õ¦æ¤U¥h
  5.     Set Sh = Sheets("ªÑ§QªÑ®§")        '¨S¦³ Sheets("ªÑ§QªÑ®§")®É¦³µ{¦¡¤Wªº¿ù»~]
  6.     On Error GoTo 0                           'µ{¦¡°±¤î³B²z¿ù»~,µ{¦¡°õ¦æ¤W¦³¿ù»~µo¥Í·|²×¤î.
  7.     If Sh Is Nothing Then                   '¨S¦³ Sheets("ªÑ§QªÑ®§")®É Sh Is Nothing
  8.         Sheets.Add after:=Sheets(Sheets.Count)
  9.         Sheets(Sheets.Count).Name = "ªÑ§QªÑ®§"
  10.         Set Sh = Sheets("ªÑ§QªÑ®§")
  11.     End If
  12.     With Sh ' Worksheets("ªÑ§QªÑ®§").Select
  13.         .UsedRange.Clear
  14.         .Range("A1").Value = "++++++++++++++++++++++++++++++++++++++++++++++++++++"
  15.         .Range("B1").Value = "++++++++++++++++++++++++++++++++++++++++++++++++++++"
  16.         .Range("B2").Value = "++++++++++++++++++++++++++++++++++++++++++++++++++++"
  17.     End With
  18. For i = 10 To Sheets("­ÓªÑ¸ê®Æ").Range("B10").End(xlDown).Row
  19.      Sh.Cells(Rows.Count, 2).End(xlUp).Offset(1, -1).Resize(11) = Worksheets("­ÓªÑ¸ê®Æ").Range("C" & i).Value ' '±NAÄæ¦ì¶ñ¤JªÑ²¼¦WºÙ¡A³sÄò¶ñ¼g11¦C
  20.     With Sh.QueryTables.Add(Connection:= _
  21.         "URL;https://tw.stock.yahoo.com/d/s/dividend_" & Sheets("­ÓªÑ¸ê®Æ").Range("B" & i) & ".html", Destination:=Sh.Cells(Rows.Count, 2).End(xlUp).Offset(1))
  22.         .Name = "0000000"
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

GBKEE ¤j¤j ©êºp¨S¦³»¡²M·¡¡A¬O¤U­±³o¤@¬qµ{¦¡¡A¤@¶}©l¥i¥H¶]±oÆZ¶¶ªº¡A¥i¬O¶]­Ó80~200µ§«á´N·|¥d¦í¤£¶]¡A«ü¼Ð§e²{µ¥«Ýªº¹Ï®×¡C
  1. Sub ROE()

  2. For i = 10 To Sheets("­ÓªÑ¸ê®Æ").Range("B281").End(xlDown).Row
  3. Worksheets("ROEÁ`ªí").Range("B1").Value = "++++++++++++++++++++++++++++++++++++++++++++++++++++"
  4. Worksheets("ROE").Select
  5.     With ActiveSheet.QueryTables.Add(Connection:= _
  6.         "URL;http://stockchannelnew.sinotrade.com.tw/z/zc/zcr/zcra/zcra_" & Sheets("­ÓªÑ¸ê®Æ").Range("B" & i) & ".djhtm", Destination:=Range("B1"))
  7.         .Name = "0000000"
  8.         .FieldNames = True
  9.         .RowNumbers = False
  10.         .FillAdjacentFormulas = False
  11.         .PreserveFormatting = True
  12.         .RefreshOnFileOpen = False
  13.         .BackgroundQuery = True
  14.         .RefreshStyle = xlInsertDeleteCells
  15.         .SavePassword = False
  16.         .SaveData = True
  17.         .AdjustColumnWidth = True
  18.         .RefreshPeriod = 0
  19.         .WebSelectionType = xlSpecifiedTables
  20.         .WebFormatting = xlWebFormattingNone
  21.         .WebTables = "1"
  22.         .WebPreFormattedTextToColumns = True
  23.         .WebConsecutiveDelimitersAsOne = True
  24.         .WebSingleBlockTextImport = False
  25.         .WebDisableDateRecognition = False
  26.         .WebDisableRedirections = False
  27.         .Refresh BackgroundQuery:=False
  28.     End With
  29.    
  30.     Range("C1:C500").Find("ªÑªFÅv¯q³ø¹S²v").Select
  31.     Range(Selection, Selection.End(xlToRight)).Copy
  32.     Worksheets("ROEÁ`ªí").Select
  33.     Worksheets("ROEÁ`ªí").Range("B1").Select
  34.     ActiveCell.End(xlDown).Select
  35.     lastrow = ActiveCell.Row
  36.     ActiveSheet.Paste Destination:=Worksheets("ROEÁ`ªí").Range("b" & lastrow + 1)
  37.     Worksheets("ROEÁ`ªí").Range("A" & lastrow + 1).Value = Worksheets("­ÓªÑ¸ê®Æ").Range("C" & i).Value
  38.     Worksheets("ROE").Select
  39.     Worksheets("ROE").Range("B1").Select
  40.     Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Delete

  41. Next

  42. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# power82843

¥d¦b¨º¸Ì?
  1. For i = 10 To Sheets("­ÓªÑ¸ê®Æ").Range("B281").End(xlDown).Row
  2.     Worksheets("ROEÁ`ªí").Range("B1").Value = "++++++++++++++++++++++++++++++++++++++++++++++++++++"
  3.     Worksheets("ROEÁ`ªí").Range("B2:J2") = Array("´Á§O", "104", "103", "102", "101", "100", "99", "98", "97")
  4.     '¬O¤Ö¤F³o¸Ì¶Ü?   
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2016-12-3 11:26 ½s¿è
  1. Sub ROE_1()
  2. [ROEÁ`ªí!B1].Value = String(52, "+")
  3. For i = 10 To [­ÓªÑ¸ê®Æ!B281].End(xlDown).Row
  4.     With Sheets("ROE").QueryTables.Add(Connection:= _
  5.         "URL;http://stockchannelnew.sinotrade.com.tw/z/zc/zcr/zcra/zcra_" & _
  6.         [­ÓªÑ¸ê®Æ!B1].Cells(i, 1) & ".djhtm", Destination:=[ROE!B1])
  7.         .Name = ""
  8.         .FieldNames = True
  9.         .RowNumbers = False
  10.         .FillAdjacentFormulas = False
  11.         .PreserveFormatting = True
  12.         .RefreshOnFileOpen = False
  13.         .BackgroundQuery = True
  14.         .RefreshStyle = xlInsertDeleteCells
  15.         .SavePassword = False
  16.         .SaveData = True
  17.         .AdjustColumnWidth = True
  18.         .RefreshPeriod = 0
  19.         .WebSelectionType = xlSpecifiedTables
  20.         .WebFormatting = xlWebFormattingNone
  21.         .WebTables = "1"
  22.         .WebPreFormattedTextToColumns = True
  23.         .WebConsecutiveDelimitersAsOne = True
  24.         .WebSingleBlockTextImport = False
  25.         .WebDisableDateRecognition = False
  26.         .WebDisableRedirections = False
  27.         .Refresh BackgroundQuery:=False
  28.         .Delete
  29.     End With
  30.    
  31.     Dim xF As Range, xE As Range
  32.     Set xF = [ROE!C1:C500].Find("ªÑªFÅv¯q³ø¹S²v")
  33.     If Not xF Is Nothing Then
  34.        Set xE = [ROEÁ`ªí!B1].End(xlDown)(2)
  35.        xE.Select
  36.        Range(xF, xF.End(xlToRight)).Copy xE
  37.        xE(1, 0) = Sheets("­ÓªÑ¸ê®Æ").Range("C" & i)
  38.     End If
  39.     Sheets("ROE").UsedRange.Clear
  40. Next
  41. End Sub
½Æ»s¥N½X

TOP

GBKEE ±z¦n!
´N¹³¤U¤èµe­±¡A¶]¤F100¦hµ§¤§«á´N¤@ª½¥d¦b³o­Óµe­±¡C

TOP

¦^´_ 5# ­ã´£³¡ªL

­ã´£³¡ªL ¤j¤j
±zªºµ{¦¡¶]°_¨Ó§Ö«Ü¦h¡A¦ý¬OÁÙ¬O·|¥d¦í¡A¦p¤Uµe­±¡A¥i¥H¦AÀ°¦£¬Ý¬O¤°»ò°ÝÃD¶Ü?·PÁÂ!

TOP

¦^´_ 4# GBKEE

GBKEE ±z¦n!
´N¹³¤U¤èµe­±¡A¶]¤F100¦hµ§¤§«á´N¤@ª½¥d¦b³o­Óµe­±¡C

TOP

your  ip is locked ..........

TOP

¦^´_ 7# power82843


¦³µL¸õ¥X¿ù»~µøµ¡, ¤Î¿ù»~¦æªº¦ì¸m,
¤j³¡¥÷ºô­¶¬°¨¾¤îµu®É¶¡¦h¦¸ªº¦s¨ú, ·|Âê¦í±zªºip, ©Ò¥HµLªk§¹¦¨¥þ³¡¶×¤J!

TOP

        ÀR«ä¦Û¦b : µoµÊ®ð¬Oµu¼ÈªºµoºÆ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD