麻辣家族討論版版 » Excel程式區 » (發問)自動更新數據往下新增的問題●

返回列表下一主題上一主題發帖

[發問] (發問)自動更新數據往下新增的問題●

中學生 Rank: 2

帖子: 88
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-3
最後登錄: 2017-12-31

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-2-15 00:27 | 只看該作者

[發問] (發問)自動更新數據往下新增的問題●

excel附檔：

oi測試版.rar (330.21 KB)

請教一下大家關於自動更新數據的相關問題，主要目的是要能每日更新數據並換算出結果最後產生出圖形
--------------------------------------------------------------------------------------------------------------
資料陳述如下：
“Sheet網站上每日五大”的工作表是已設定好與”期交所”網頁資料做連結，下午四點半按重新整理就會更新成”當天的資訊”

“Sheet期貨大額交易者”裡頭是每一天的數據整理後的結果(從2004/7到2012/2/10)
----------------------------------------------------------------------------------------------------------------

首先處理的是”全市場未沖銷部位數的數據”
s1 點選SHEET”網站上每日五大”後，先處理日期資料，點選a1欄位後，複製a1欄位的值。點sheet”期貨大額交易者”後，貼到a1897的下一格(a1898)。

s2 點選SHEET”網站上每日五大”後，複製k8欄位的值，點sheet”期貨大額交易者”後，貼到b1897的下一格(b1898)。

s3再點SHEET”網站上每日五大”後，複製k10欄位的值，點sheet”期貨大額交易者”後，貼到c1897的下一格(c1898)。

s4 再點選sheet”期貨大額交易者” 計算D1898的值=C1898-B1898

錄的節果如下：
Sub largeOItest
  Range("A1898").Select
ActiveCell.FormulaR1C1 = "=網站上每日五大交易人期貨!R[-1892]C"  ‘貼上今天的日期資料
Range("B1898").Select
ActiveCell.FormulaR1C1 = "=網站上每日五大交易人期貨!R[-1885]C[9]" ‘貼上今天的(近月)全市場所有未沖銷部位
Range("C1898").Select
ActiveCell.FormulaR1C1 = "=網站上每日五大交易人期貨!R[-1883]C[8]" ‘貼上今天的(所有月)全市場所有未沖銷部位

Range("D1898").Select
ActiveCell.FormulaR1C1 = "=RC[-1]-RC[-2]" ‘將所有月的未沖銷部位與近月相減，算出遠月資料

End Sub
--------------------------------------------------------------------------------------------------
s5 最後把今日整理完畢的excel新增數據結果，把近五日的資料複製，貼上到”sheet分析總表”中的，a3到d7欄

  Range("A1893:D1897").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("分析總表").Select
Range("A3").Select
ActiveSheet.Paste
End Sub
-----------------------------------------------------------------------------------------------------------
問題點：
問題1，關於s2到s4，今天是將網站上抓一個總表，再從總表內找幾個會用到的數據，貼到sheet期貨大額的這個工作表的a1898和b1898和c1898這三個欄位，因為每一天的下一格都會變，今天是a1898，明天會變成a1899。請問一下大家，如果說要做成每天自動更新往下新增資料的話，該怎麼寫。

問題2，關於s5，目的是將”sheet期貨大額”裡的整理完畢的近五日數據，往sheet”分析總表”的a3到d7欄貼，所以a3到d7欄範圍是固定的參數，但sheet期貨大額裡的資料，因為每一天如果一直往下新增，欄位會一直變化，無法順利的將近五日的資料貼到”分析總表”裡頭
------------------------------------------------------------------------------------------------------------
先謝謝各位了。

樓主熱帖

收藏

中學生 Rank: 2

帖子: 96
主題: 12
精華: 0
積分: 116
點名: 266
作業系統: XP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2010-9-29
最後登錄: 2024-11-13

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章

4^#

發表於 2012-3-11 18:19 | 只看該作者

這個方法也是我想學的.可惜權限不夠無法下載原始檔一窺究竟

年齡不小,但我很想學

中學生 Rank: 2

帖子: 88
主題: 13
精華: 0
積分: 104
點名: 0
作業系統: WIN7
軟體版本: OFFICE2010
閱讀權限: 20
性別: 男
註冊時間: 2012-1-3
最後登錄: 2017-12-31

3^#

發表於 2012-2-15 11:22 | 只看該作者

回復 2# GBKEE

回GBKEE大，實在太感謝了，我正在試另一個那個檔案中。

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-2-15 10:17 | 只看該作者

回復 1# yagami12th

Option Explicit
Sub Ex()
Dim Ar(), Ar1()
With Sheets("網站上每日五大交易人期貨")
Ar = Array(.[A1].Text, .[K8], .[K10], .[K10] - .[K8]) '數據置入陣列
End With
With Sheets("期貨大額交易者(特法，非特法)").Cells(Rows.Count, "A").End(xlUp) '最後一個有資料的儲存格
.Offset(1).Resize(1, 4) = Ar '位移下一列
End With
With Sheets("分析總表")
Ar1 = .[A4:D8].Value '取前4天數據置入二維陣列
Ar1(5, 1) = Ar(0) '加入第5天數據
Ar1(5, 2) = Ar(1)
Ar1(5, 3) = Ar(2)
Ar1(5, 4) = Ar(3)
.[A3:D7] = Ar1 '還原5天的數據
End With
End Sub

複製代碼

靜思自在 : 話多不如話少，話少不如話好。

返回列表下一主題上一主題