返回列表 上一主題 發帖

[分享] 大盤每月每天歷史成交量與金額下載

回復 4# white5168


    晚點再來下載看看囉~~~~
我是斯多

TOP

謝謝G版主的解決方式~~~
但其實小弟我是想要一個超偷懶方式...
年、月會自動跑
如:自1990年01月起自動下載紀錄在SHEET1後儲存,
再自動跳到1990年02月,自動下載紀錄在SHEET1內下方空白處,接續剛剛1月的資料尾
如此重覆至2012年10月這樣...
這樣是不是太懶了...一..一"

TOP

本帖最後由 usana642 於 2012-10-24 18:10 編輯

回復 33# GBKEE

再請教GBKEE大,我再增加一個''紀錄''工作表,把計算後的小計,自動匯入儲存,如果隔天再按''計算''工作表的''更新''按鈕後,希望能在''紀錄''工作表自動儲存當天計算後的小計結果,懇請GBKEE大大再次協助,謝謝您...
[attach]12878[/attach]
stock

TOP

本帖最後由 usana642 於 2012-10-24 18:14 編輯

回復 33# GBKEE

不好意思,沒有上傳好,再上傳一次

TEST2.zip (49.2 KB)

TEST2.zip (49.2 KB)

stock

TOP

回復 44# usana642
  1. Option Explicit
  2. Sub 儲存小計結果()
  3.     Dim Rng As Range
  4.     Set Rng = Sheets("計算").Range("G1").End(xlDown)                 'G1往下最後有資料的儲存格
  5.     With Sheets("紀錄").Cells(Rows.Count, "A").End(xlUp).Cells(2, 1)
  6.          'Cells(Rows.Count, "A").End(xlUp):A欄最後列往上有資料的儲存格.Cells(2, 1) :第2列 ,第1欄
  7.           .Value = Date
  8.           .Cells(1, 2) = Rng
  9.           .Cells(1, 3).Resize(1, 4) = Rng.Cells(1, 4).Resize(1, 4).Value
  10.     End With
  11. End Sub
複製代碼

TOP

回復 45# GBKEE

謝謝GBKEE的熱心協助,可以正常執行了,非常感謝您,祝您事事順心
stock

TOP

本帖最後由 usana642 於 2012-10-25 13:34 編輯

回復 45# GBKEE

GBKEE午安
我想再請教您
請問如果我想在''連結''工作表中,挑選出買權和賣權的最大未平倉量,
例如24日是
賣權   履約價=7000        最後成交價=27.5  未平倉量=38191
買權   履約價=7700        最後成交價=11.5  未平倉量=57082

然後分別自動儲存在''紀錄''工作表中,每天的結果也能紀錄儲存,再次懇請您的幫忙,謝謝您
TEST2.zip (52.74 KB)

TEST2.zip (52.74 KB)

stock

TOP

回復 47# usana642
試試看
  1. Option Explicit
  2. Sub 儲存小計結果()
  3.     Dim Rng(1 To 4) As Range, AR(1 To 6), xi As Integer, e As Variant
  4.     With Sheets("計算")
  5.         Set Rng(1) = .Range("G1").End(xlDown)                 'G1往下最後有資料的儲存格
  6.         Set Rng(2) = .Range("E2", .[E2].End(xlDown))          '買賣權
  7.     End With
  8.     For Each e In Array("Call", "Put")
  9.         Rng(2).Replace e, "=usana642"                          '公式不存在 傳回錯誤值
  10.         With Rng(2).SpecialCells(xlCellTypeFormulas, xlErrors) '有錯誤的儲存格
  11.             With .Offset(, 2)                                  '右移2欄
  12.                 xi = IIf(e = "Call", 0, 1)
  13.                 Set Rng(3) = .Find(Application.Max(.Cells))    '尋找最大值
  14.                 AR(1 + xi) = Rng(3).Offset(, -3)               '履約價
  15.                 AR(3 + xi) = Rng(3).Offset(, -1)               '最後成交價
  16.                 AR(5 + xi) = Rng(3)                            '未沖銷契約量
  17.             End With
  18.             .Value = e
  19.         End With
  20.     Next
  21.     With Sheets("紀錄").Cells(Rows.Count, "A").End(xlUp).Cells(2, 1)
  22.          'Cells(Rows.Count, "A").End(xlUp):A欄最後列往上有資料的儲存格.Cells(2, 1) :第2列 ,第1欄
  23.           .Value = Date
  24.           .Cells(1, 2) = Rng(1)
  25.           .Cells(1, 3).Resize(1, 4) = Rng(1).Cells(1, 4).Resize(1, 4).Value
  26.           .Cells(1, 7).Resize(1, 6) = AR
  27.     End With
  28. End Sub
複製代碼

TOP

回復 48# GBKEE

謝謝GBKEE的熱心協助,我從程式碼編輯程式執行這一段程式,已經可以正常執行,稍後我再把它整合進整個程式裡,非常感謝您的熱心幫忙,再次感謝您,祝您順利發財...
stock

TOP

回復 48# GBKEE

GBKEE您好

我今天試著照您的方式,在抓取另一網頁資料時,在紀錄1工作表無法完成自動紀錄,懇請您再指導一下,謝謝您...
   
TEST3.zip (12.46 KB)
stock

TOP

        靜思自在 : 一個人的快樂.不是因為他擁有得多,而是因為他計較得少。
返回列表 上一主題