返回列表 上一主題 發帖

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

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
1# 跳轉到 »
發表於 2014-4-9 13:57 | 顯示全部帖子
試試看：
  1. Option Explicit
  2. Private Sub CommandButton1_Click()
  3.     Dim i, lastRow As Integer
  4.    
  5.     lastRow = [A1].End(xlDown).Row       '取得A欄最下一行
  6.    
  7.     For i = 2 To lastRow
  8.    
  9.        '如果 當日最高價>歷史最高價, 則
  10.        If Cells(i, 3) > Cells(i, 4) Then
  11.            Cells(i, 4) = Cells(i, 3)    '歷史最高價=當日最高價
  12.        End If
  13.     Next
  14. End Sub
複製代碼

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題