usana642

回復 52# GBKEE


    今天的資料是口數430,75,-5,317,-4,812,-86,017,870,-13,469,-98,616
謝謝您

usana642

回復 52# GBKEE

GBKEE大大您好

我是想抓取計算1工作表的口數(F欄位),謝謝您

GBKEE

回復 51# usana642
[當日-自營商][當日-投信][當日-外資][當日-多空淨額][未平倉-自營商][未平倉-投信][未平倉-外資][未平倉-多空淨額]
這些欄位是抓取  計算1  那些的資料??
.Cells(1, 7).Resize(1, 6) = AR 程式中沒看到抓AR的資料

usana642

回復 48# GBKEE

GBKEE您好

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

TEST3
下載次數: 15

2012-10-30 17:29

usana642

回復 48# GBKEE

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

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

回復 45# GBKEE

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

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

下載次數: 7

2012-10-25 13:33

usana642

回復 45# GBKEE

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

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

回復 33# GBKEE

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

TEST2.zip (49.2 KB)

下載次數: 15

2012-10-24 18:12