返回列表 上一主題 發帖

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

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 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

        靜思自在 : 修行要繫緣修心，藉事練心，隨處養心。
返回列表 上一主題