想製作一個股票價格的最高價紀錄 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 想製作一個股票價格的最高價紀錄

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

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

高中生 Rank: 3 Rank: 3

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

1^# 跳轉到 »

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

複製代碼

靜思自在 : 天上最美是星星，人生最美是溫情。

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