返回列表 上一主題 發帖

[發問] Excel一個變動儲存格保留最大值及最小值

joss

帖子
8 
主題
2 
精華
0 
積分
15 
點名
0  
作業系統
xp 
軟體版本
off xp 
閱讀權限
10 
性別
男 
註冊時間
2011-11-22 
最後登錄
2014-2-27 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-11-22 01:06 | 只看該作者

[發問] Excel一個變動儲存格保留最大值及最小值

本帖最後由 joss 於 2011-11-22 01:11 編輯

請各位高手幫幫忙
=======
A1=儲存格是股票指標計算
隨時變動
如何顯示a1歷史中的最大值及最小值?
===========
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
K = WorksheetFunction.Max([A1:A10])
If K > [B1] Then [B1] = K
End Sub=================
Private Sub Worksheet_Calculate()

If Sheets("sheet1").Range("a1").Value > Sheets("sheet1").Range("a2").Value Then Sheets("sheet1").Range("a2").Value = Sheets("sheet1").Range("a1").Value

End Sub =======
是不是像上面
但我試不出成效
該怎麼做???
感謝各位大大
收藏 分享

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2011-11-22 10:29 | 只看該作者
本帖最後由 GBKEE 於 2011-11-22 10:31 編輯

回復 1# joss
  1. Option Explicit
  2. Dim AR()        '動態的陣列變數
  3. Private Sub Worksheet_Calculate()
  4.     Dim A As Integer
  5.     If Not IsNumeric([A1]) Then Exit Sub   'A1不是數值 離開程式
  6.     On Error Resume Next                   '處裡錯誤->有錯誤時不理會錯誤繼續下一程式碼
  7.     A = UBound(AR)                         '取得AR陣列最大維度
  8.     If Err.Number <> 0 Then                '有錯誤: AR陣列變數尚未設定維數
  9.         ReDim AR(0)                        '設定AR為一維陣列 維數為0
  10.         AR(0) = [A1]
  11.     Else
  12.         If Not IsError(Application.Match(AR, [A1], 0)) Then  '判斷[A1]的值,如不存在AR中.
  13.             ReDim Preserve AR(UBound(AR) + 1)                'AR 陣列內容不變再加上一維元素
  14.             AR(UBound(AR)) = [A1]                            '再加上一維元素= A1
  15.         End If
  16.     End If
  17.     MsgBox "最大值 : " & Application.Max(AR) & "最小 : " & Application.Min(AR)
  18. End Sub
複製代碼

TOP

        靜思自在 : 有時當思無時苦，好天要積雨來糧。
返回列表 上一主題