reangame

回復 4# white5168


    晚點再來下載看看囉~~~~

turbine

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

usana642

回復 33# GBKEE

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

usana642

回復 33# GBKEE

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

TEST2.zip (49.2 KB)

下載次數: 15

2012-10-24 18:12

GBKEE

回復 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

複製代碼

usana642

回復 45# GBKEE

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

usana642

回復 45# GBKEE

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

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

下載次數: 7

2012-10-25 13:33

GBKEE

回復 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

複製代碼

usana642

回復 48# GBKEE

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

usana642

回復 48# GBKEE

GBKEE您好

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

TEST3
下載次數: 15

2012-10-30 17:29