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

[發問] 想製作一個股票價格的最高價紀錄

89691007

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 6
點名: 0
作業系統: win XP
軟體版本: 2003
閱讀權限: 10
註冊時間: 2014-4-3
最後登錄: 2014-6-1

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2014-4-9 12:22 | 顯示全部帖子

[發問] 想製作一個股票價格的最高價紀錄

我想要在股票紀錄表中
設定一個從追蹤日開始
每天更新當日最高價格
如果當日最高價有比歷史最高價還要高的話
將歷史最高價=當日最高價
如果沒有大於則不改變歷史最高價

資料有多筆每一行都需要逐一比價
因為資料是在收盤後才做一次更新
所以希望能做成單鍵按鈕的形式
每天更新完收盤後做一次最高價更新

例如:代號    股名    當日最高歷史最高
      1101 台泥    47.55          47.0
      1102 亞泥    38.3             40.0

則按下按鈕後，台泥的歷史最高會改變成47.55，而亞泥不變

希望有大大們可以協助我謝謝~

89691007

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 6
點名: 0
作業系統: win XP
軟體版本: 2003
閱讀權限: 10
註冊時間: 2014-4-3
最後登錄: 2014-6-1

2^#

發表於 2014-4-9 15:11 | 顯示全部帖子

測試結果OK
感謝大大喔
我會好運用的

TOP

89691007

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 6
點名: 0
作業系統: win XP
軟體版本: 2003
閱讀權限: 10
註冊時間: 2014-4-3
最後登錄: 2014-6-1

3^#

發表於 2014-4-10 09:12 | 顯示全部帖子

可以再請問一下大大
03. Dim i, lastRow As Integer

04.

05. lastRow = [A1].End(xlDown).Row '取得A欄最下一行

06.

07. For i = 2 To lastRow

這邊的意思是甚麼嗎?
我想設計其他按鈕但是不清楚逐行比對的寫法
感恩您~

TOP

89691007