GBKEE

¦^´_ 1# spermbank
1

1.   Sub ¥¨¶°1()
   
2.     '
   
3.     '
   
4.     Application.OnTime Now + TimeValue("00:00:10"), "¥¨¶°2"
   
5. End Sub

½Æ»s¥N½X

2   2003ª© ¤¤§ä¤£¥X¿ù»~

3  X = Year(Cells(1, 1))
    Y = Month(Cells(1, 1))
   Z = Day(Cells(1, 1))
'''''''''''''''''''''''''
   A = Split(Cells(1, 1), "/")
   X = A(0)
   Y = A(1)
   Z = A(2)

GBKEE

¦^´_ 3# spermbank
¤Ö¤@­Ó³s±µ²Å¸¹ &
  f.Workbooks.Open "http://ichart.finance.yahoo.com/table.csv?s=" & s ".TW&a=" & i "&b=" & j "&c=" & k "&d=" & m "&e=" & n "&f=" & o  "&g=d&ignore=.csv

F.Workbooks.Open "http://ichart.finance.yahoo.com/table.csv?s=" & s & ".TW&a=" & i & "&b=" & j & "&c=" & k & "&d=" & m & "&e=" & n & "&f=" & o & "&g=d&ignore=.csv"

GBKEE

¦^´_ 1# spermbank
­n¶}Ãö 1298­ÓÀÉ®× ³t«×§Ö¤£¤F

1. Sub «ö¶s3_Click()
   
2.     With ThisWorkbook.Sheets("Sheet1")
   
3.         .Range("H" & 11).Formula = "§ó·s¤¤..."
   
4.         ii = .Cells(6, 6) - 1 '°_©l¤ë
   
5.         j = .Cells(7, 6) '°_©l¤é
   
6.         k = .Cells(5, 6) '°_©l¦~
   
7.         m = .Cells(6, 8) - 1 '²×¤î¤ë
   
8.         n = .Cells(7, 8) '²×¤î¤é
   
9.         o = .Cells(5, 8) '²×¤î¦~
   
10.         h = .Cells(9, 6) '¦sÀɦì¸m
    
11.         Application.ScreenUpdating = False       '°±¤î¿Ã¹õ§ó·s
    
12.         For i = 2 To Application.CountA(.Range("A:A")) 'Äæ¦ì¦³­È½d³ò­pºâ
    
13.             symbol = .Cells(i, 1)
    
14.             save_file_name = h & symbol & ".csv" '¦sÀÉÀɦW
    
15.             If .Range("C" & i).Formula = "¥«" Then
    
16.                 '¥Îexcel¨Ó¦sÀÉ
    
17.                 Workbooks.Open "http://ichart.finance.yahoo.com/table.csv?s=" & symbol & ".TW&a=" & ii & "&b=" & j & "&c=" & k & "&d=" & m & "&e=" & n & "&f=" & o & "&g=d&ignore=.csv"
    
18.             Else
    
19.                 Workbooks.Open "http://ichart.finance.yahoo.com/table.csv?s=" & symbol & ".TWO&a=" & ii & "&b=" & j & "&c=" & k & "&d=" & m & "&e=" & n & "&f=" & o & "&g=d&ignore=.csv"
    
20.             End If
    
21.             With ActiveWorkbook   'Àɮ׶}±Ò«á¦¨¬°§@¥Î¤¤ªº¬¡­¶Ã¯
    
22.                 .SaveAs save_file_name, 6, False '¦s¦¨csv
    
23.                 .Close False
    
24.             End With
    
25.         Next
    
26.         .Range("H" & 11).Formula = "§ó·sµ²§ô"
    
27.     End With
    
28.     Application.ScreenUpdating = True     '¿Ã¹õ§ó·s
    
29. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 8# spermbank
¦Û¤v´ú¸Õ¬Ý¬Ý

1. Sub «ö¶s3_Click()
   
2.     Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
   
3.     With ThisWorkbook.Sheets("Sheet1")
   
4.         .Range("H" & 11).Formula = "§ó·s¤¤..."
   
5.         ii = .Cells(6, 6) - 1 '°_©l¤ë
   
6.         j = .Cells(7, 6) '°_©l¤é
   
7.         k = .Cells(5, 6) '°_©l¦~
   
8.         m = .Cells(6, 8) - 1 '²×¤î¤ë
   
9.         n = .Cells(7, 8) '²×¤î¤é
   
10.         o = .Cells(5, 8) '²×¤î¦~
    
11.         h = .Cells(9, 6) '¦sÀɦì¸m
    
12.         For i = 2 To Application.CountA(.Range("A:A")) 'Äæ¦ì¦³­È½d³ò­pºâ
    
13.             symbol = .Cells(i, 1)
    
14.             save_file_name = h & symbol & ".csv" '¦sÀÉÀɦW
    
15.             If .Range("C" & i).Formula = "¥«" Then
    
16.                 '¥Îexcel¨Ó¦sÀÉ
    
17.                 myURL = "http://ichart.finance.yahoo.com/table.csv?s=" & symbol & ".TW&a=" & ii & "&b=" & j & "&c=" & k & "&d=" & m & "&e=" & n & "&f=" & o & "&g=d&ignore=.csv"
    
18.             Else
    
19.                 myURL = "http://ichart.finance.yahoo.com/table.csv?s=" & symbol & ".TWO&a=" & ii & "&b=" & j & "&c=" & k & "&d=" & m & "&e=" & n & "&f=" & o & "&g=d&ignore=.csv"
    
20.             End If
    
21.             WinHttpReq.Open "GET", myURL, False
    
22.             WinHttpReq.Send        '
    
23.             myURL = WinHttpReq.ResponseBody
    
24.             If WinHttpReq.Status = 200 Then
    
25.                 With CreateObject("ADODB.Stream")
    
26.                     .Open
    
27.                     .Type = 1
    
28.                     .Write WinHttpReq.ResponseBody
    
29.                     .SaveToFile (save_file_name)
    
30.                     .Close
    
31.                 End With
    
32.             End If
    
33.         Next
    
34.         .Range("H" & 11).Formula = "§ó·sµ²§ô"
    
35.     End With
    
36. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 10# spermbank

1. Sub «ö¶s6_Click()
   
2.     Dim Rng As Range
   
3.     Sheets("Sheet1").Select
   
4.     X = Application.WorksheetFunction.CountA(Range("A:A")) 'Äæ¦ì¦³­È½d³ò­pºâ
   
5.     For i = X To 2 Step -1
   
6.         If Range("C" & i).Formula = "Âd" Then
   
7.                 Range("A" & i, "C" & i).Delete Shift:=xlUp
   
8.         End If
   
9.     Next
   
10. End Sub
    
11. Sub «ö¶s6_Click()
    
12.     Dim Rng As Range
    
13.     Sheets("Sheet1").Select
    
14.     X = Application.WorksheetFunction.CountA(Range("A:A")) 'Äæ¦ì¦³­È½d³ò­pºâ
    
15.     For i = 2 To X
    
16.         If Range("C" & i).Formula = "Âd" Then
    
17.             If Rng Is Nothing Then
    
18.                 Set Rng = Range("A" & i, "C" & i)
    
19.             Else
    
20.                 Set Rng = Union(Rng, Range("A" & i, "C" & i))
    
21.             End If
    
22.         End If
    
23.     Next
    
24.     Rng.Delete Shift:=xlUp
    
25. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 12# spermbank
°ÝÃD1 : Äæ ©Î ¦C ªº§R°£.  »Ý¥Ñ ¤U©¹¤W  §R°£.  ¥Ñ ¤W©¹¤U  §R°£ ·|¦³º|ºô¤§³½

1. for i=1 to 10      '¥Ñ ¤W©¹¤U  §R°£
   
2. cells(i,1).Delete Shift:=xlUp  
   
3. '¨Ò=1 -> ¤U¤èÀx¦s®æ¤W²¾   cells(2,1)·|¤W¤É¬°cells(1,1) º|ºô±¼
   
4. '¨Ò=5 -> ¤U¤èÀx¦s®æ¤W²¾   cells(6,1)·|¤W¤É¬°cells(5,1) º|ºô±¼
   
5. next

½Æ»s¥N½X

°ÝÃD2: ¦p¦óŪ¨ú¥N¸¹1101.csv²Ä1Äæ©Ò¦³¤é´Á(data)¡A¼g¤Jexcel¤¤ªºsheet2ªº²Ä1¦C¤¤¡A¨Ã¥BŪ¨ú©Ò¦³*.csvÀɮפ¤ªº²Ä5Äæ(close)ªº¸ê®Æ¡A¨Ì§Ç¹ï·ÓÀɦW»P²Ä1Ä椤ªº¥N¸¹±N²Ä5Äæ¸ê®Æ¼g¤J¦U¥N¸¹ªº¦C¦ì¤¤
¬õ¦r³¡¤À ½Ðªþ½d¨Ò¤W¨Ó

GBKEE

¦^´_ 14# spermbank

1. Sub «ö¶s7_Click()
   
2.     Dim TheCsv As String, ThePath As String, OpCsv As Workbook, CsvRange As Range, TheRow As Variant
   
3.     ThePath = Sheets("Sheet1").Range("F9")                                          'D:\data\   ½Ð¥[¤W"\"
   
4.     TheCsv = Dir(ThePath & "*.CSV")                                                 '¶Ç¦^²Å¦Xªº²Ä¤@­ÓÀɮצWºÙ
   
5.     If TheCsv = "" Then MsgBox ThePath & " ¨S¦³ CSVÀÉ®×": Exit Sub
   
6.     Application.ScreenUpdating = False
   
7.     With Sheets("Sheet2")
   
8.         If .[C1] <> "" Then .Range(.[C1], .[C1].End(xlToRight).End(xlDown)) = ""    '²MªÅ¸ê®Æ
   
9.         Do While TheCsv <> ""
   
10.             Set OpCsv = Workbooks.Open(ThePath & TheCsv)                            '¥´¶} Csv
    
11.             If .[C1] = "" Then                                                      '¾É¤J¤é´Á
    
12.                 Set CsvRange = OpCsv.Sheets(1).Range("A:A").SpecialCells(xlCellTypeConstants).Offset(1) '³]©w½d³ò
    
13.                 'SpecialCells ->¯S®íÀx¦s®æ ,°Ñ¼Æ(xlCellTypeConstants->¥]§t±`¼ÆªºÀx¦s®æ
    
14.                 .[C1].Resize(, CsvRange.Rows.Count) = Application.Transpose(CsvRange)   'Âà¸m-> Application.Transpose(½d³ò)
    
15.             End If
    
16.             TheRow = Replace(UCase(TheCsv), ".CSV", "")                                 'Replace ->´À´«¤å¦r
    
17.             Set TheRow = .Range("A:A").Find(TheRow, LOOKAT:=xlWhole)                    '´M§ä *.CSV ¦bSheets("Sheet2")ªº¦ì¸m
    
18.             If Not TheRow Is Nothing Then                                               '§ä¨ì *.CSV ¦bSheets("Sheet2")ªº¦ì¸m
    
19.                 Set CsvRange = OpCsv.Sheets(1).Columns(5).SpecialCells(xlCellTypeConstants).Offset(1)  '³]©w*.csvÀɮפ¤ªº²Ä5Äæ(close)ªº¸ê
    
20.                 TheRow.Offset(, 2).Resize(, CsvRange.Rows.Count) = Application.Transpose(CsvRange)
    
21.             End If
    
22.             OpCsv.Close False
    
23.             TheCsv = Dir
    
24.         Loop
    
25.     End With
    
26.     Application.ScreenUpdating = True
    
27. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 16# spermbank
¥i¥H§ï¦¨           Set CsvRange = OpCsv.Sheets(1).Columns(1).SpecialCells(xlCellTypeConstants).Offset(1)
Range ("A:A") =>Columns("A:A")  ³æÄæ Columns(1)
Range ("A:B") >= Columns("A:B")   
­n«ç»ò¥ý§â²Ä6Äæ(Volume)©Ò¦³­È³£¥ý°£¥H1000¦A¦s¤JSheet2©O?
AR = Application.Transpose(CsvRange) ->°}¦C±qÀx¦s®æ¾É¤J­È®É ¨C¤@ºû«×ªº¤U­­³£¬O±q1 ¶}©l  ->For i = 1 To UBound(AR)

1. AR = Application.Transpose(CsvRange)
   
2. For i = 1 To UBound(AR)
   
3. AR(i) = AR(i) / 1000
   
4. Next
   
5. TheRow.Offset(, 2).Resize(, CsvRange.Rows.Count) = AR

½Æ»s¥N½X

¦^´_ 17# spermbank

1. Sub Ex()
   
2.     Dim x As Double, i As Double, AA()
   
3.     x = Application.WorksheetFunction.CountA(Range("A:A")) 'Äæ¦ì¦³­È½d³ò­pºâ
   
4.     ReDim AA(2 To x, 1 To 4)    '2 To x-> ²Ä¤@ºû «ü©w±q 2 ¨ì X
   
5.                                 '1 To 4-> ²Ä¤Gºû «ü©w±q 1 ¨ì 4
   
6.     For i = 2 To x              '°t¦X°}¦Cºû«×ªº¤W¤U­­
   
7.         With Application
   
8.         'With Application.WorksheetFunction                  '¥¿²Î¼gªk
   
9.             AA(i, 1) = .Sum(Cells(i, 3).Resize(, 5)) / 5
   
10.             AA(i, 2) = .Average(Range("A" & i).Resize(, 20))  '20¤é-20­ÓÀx¦s®æ¤¤ªº¼Æ­È¥­§¡
    
11.             AA(i, 3) = .Average(Range("A" & i).Resize(, 60))  '60¤é
    
12.             AA(i, 4) = .Average(Range("A" & i).Resize(, 120)) '120¤é
    
13.         End With
    
14.     Next
    
15. End Sub
    
16. Sub Ex1()
    
17.     x = Application.WorksheetFunction.CountA(Range("A:A")) 'Äæ¦ì¦³­È½d³ò­pºâ
    
18.     Dim AA(2000, 3)     '2000-> ²Ä¤@ºû 0-2000 ¦@20001­Ó
    
19.                         '3   -> ²Ä¤Gºû 0-3    ¦@4­Ó
    
20.     For i = 2 To x
    
21.         AA(i - 2, 0) = (Cells(i, 3) + Cells(i, 4) + Cells(i, 5) + Cells(i, 6) + Cells(i, 7)) / 5
    
22.         AA(i - 2, 1) = Application.WorksheetFunction.Average(Range("A" & i & ": V" & i)) '20¤é-20­ÓÀx¦s®æ¤¤ªº¼Æ­È¥­§¡
    
23.         AA(i - 2, 2) = Application.WorksheetFunction.Average(Range("A" & i & ": BJ" & i)) '60¤é
    
24.         AA(i - 2, 3) = Application.WorksheetFunction.Average(Range("A" & i & ": DR" & i)) '120¤é
    
25.     Next
    
26. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 19# spermbank
¤u§@ªíÀx¦s®æ¸Ìªº¨ç¼Æ =TODAY()