GBKEE

¦^´_ 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

GBKEE

¦^´_ 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

GBKEE

¦^´_ 8# power82843
3708 ¤W½n§ë±±  ¨S¦³¸ê®Æ

1. Range("C1:C500").Find("ªÑªFÅv¯q³ø¹S²v").Select

½Æ»s¥N½X

¥d¦b³o¸Ì¬O¶Ü?
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex_ROE()
   
3.     Dim Sh(1 To 3) As Worksheet, Rng As Range, i As Integer
   
4.     Set Sh(1) = Sheets("­ÓªÑ¸ê®Æ")
   
5.     Set Sh(2) = Worksheets("ROEÁ`ªí")
   
6.     Set Sh(3) = Worksheets("ROE")
   
7.    
   
8.     '***°õ¦æ¥»µ{¦¡½X¤@¦¸«á,¥i§R°£±¼¨â¦æ¬P¸¹¶¡ªºµ{¦¡½X**
   
9.     '*************************************
   
10.     '§R°£ ROE ­¶¤WQueryTables¤Î QueryTables.Add©Ò·s¼Wªº¦WºÙ
    
11.     'QueryTable¹L¦h,¦WºÙ¹L¦h¤]¬OÀɮ׿±¤jªº­ì¦]¤§£¸
    
12.     With Sh(3)
    
13.         For i = .Names.Count To 1 Step -1
    
14.             .Names(i).Delete
    
15.         Next
    
16.         .UsedRange.Clear
    
17.         For i = .QueryTables.Count To 1 Step -1
    
18.           .QueryTables(i).Delete
    
19.        Next
    
20.     End With
    
21.     '******************************
    
22.     With Sh(2)
    
23.         .UsedRange.Clear
    
24.         .Range("B1") = "++++++++++++++++++++++++++++++++++++++++++++++++++++"
    
25.         .Range("B2:J2") = Array("´Á§O", "104", "103", "102", "101", "100", "99", "98", "97")
    
26.         .Activate
    
27.     End With
    
28.     For i = 10 To Sh(1).Range("B281").End(xlDown).Row
    
29.         If Sh(1).Range("B" & i) <> "" Then   '«DªÅ¥ÕÀx¦s®æ
    
30.             With Sh(3).QueryTables.Add(Connection:= _
    
31.                 "URL;http://stockchannelnew.sinotrade.com.tw/z/zc/zcr/zcra/zcra_" & Sh(1).Range("B" & i) & ".djhtm", Destination:=Sh(3).Range("B1"))
    
32.                 '.Name = "0000000"  '¦WºÙ¥H¼Æ¦r¶}ÀY,·|¦Û°Ê¥[¤W"_" ¬° "_0000000"
    
33.                 .WebSelectionType = xlSpecifiedTables
    
34.                 .WebFormatting = xlWebFormattingNone
    
35.                 .WebTables = "1"
    
36.                 .WebPreFormattedTextToColumns = True
    
37.                 .WebConsecutiveDelimitersAsOne = True
    
38.                 .WebSingleBlockTextImport = False
    
39.                 .WebDisableDateRecognition = False
    
40.                 .WebDisableRedirections = False
    
41.                 .Refresh BackgroundQuery:=False
    
42.             End With
    
43.             With Sh(3).QueryTables(1)
    
44.                 Application.StatusBar = i - 9 & " - " & .ResultRange.Range("b2") & "   ªÑªFÅv¯q³ø¹S²v §¹¦¨"
    
45.                 If .ResultRange.Rows.Count > 5 Then
    
46.                     Sh(2).Range("b1").End(xlDown).Offset(1, -1).Resize(, .ResultRange.Columns.Count) = .ResultRange.Rows(16).Value
    
47.                     Sh(2).Range("b1").End(xlDown).Offset(, -1) = Sh(1).Range("C" & i)
    
48.                     Sh(2).Range("b1").End(xlDown).Offset(, -1).Activate
    
49.                 Else
    
50.                     Sh(2).Range("b1").End(xlDown).Offset(1) = "¬dµL " & .ResultRange.Range("b2") & " °]°È¤ñ²vªí¸ê®Æ(¦X¨Ö¦~ªí)"
    
51.                 End If
    
52.                 .ResultRange.Clear                 '²M°£¶×¤J¥~³¡ªº¸ê®Æ
    
53.                 Sh(3).Names(.Name).Delete   '§R°£¦Û°Ê·s¼Wªº¦WºÙ
    
54.                 .Delete                                    '§R°£ QueryTable ª«¥ó
    
55.             End With
    
56.         End If
    
57.     Next
    
58. End Sub

½Æ»s¥N½X