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

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

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

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

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

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

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

2^#

發表於 2014-4-9 13:57 | 只看該作者

試試看：

Option Explicit
Private Sub CommandButton1_Click()
Dim i, lastRow As Integer
lastRow = [A1].End(xlDown).Row '取得A欄最下一行
For i = 2 To lastRow
'如果當日最高價>歷史最高價, 則
If Cells(i, 3) > Cells(i, 4) Then
Cells(i, 4) = Cells(i, 3) '歷史最高價=當日最高價
End If
Next
End Sub

複製代碼

TOP

89691007

小學生 Rank: 1

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

3^#

發表於 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

4^#

發表於 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

owen06

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 0
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2024-8-23

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

5^#

發表於 2014-4-10 09:56 | 只看該作者

回復 4# 89691007

Dim i, lastRow As Integer
==> 定義『i』、『lastrow』為整數

lastRow = [A1].End(xlDown).Row    '取得A欄最下一行
==> lastrow=取得A欄的最後一個有數值的列號
   你在工作表裡，按ctrl+上、下、左、右鍵去動看看，就很清楚明暸了
   end(xldown)=ctrl+下
   end(xlup))=ctrl+上
   end(xltoright))=ctrl+右
   end(xltoleft))=ctrl+左
但是如果你的a欄的數值有不連續的空白格的話，建議你改用
[a65536].end(xlup).row，比較不會發生判斷錯誤。

For i = 2 To lastRow
==> for 要搭配next， for i= 2 to lastrow(剛才上面有計算出lastrow的數值)，
   i就會從2一直執行到lastrow的數值為止，假設lastrow是50好了，
   那麼他就會幫你去測 If Cells(2, 3) > Cells(2, 4)
                                 Cells(3, 3) > Cells(3, 4)
                                 Cells(4, 3) > Cells(4, 4)
                                             ：
                                             ：
                                             ：
                                 Cells(50, 3) > Cells(50, 4)

TOP

89691007