[發問] Excel一個變動儲存格保留最大值及最小值
- 帖子
- 8
- 主題
- 2
- 精華
- 0
- 積分
- 15
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- off xp
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2011-11-22
- 最後登錄
- 2014-2-27
|
[發問] 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 =======
是不是像上面
但我試不出成效
該怎麼做???
感謝各位大大 |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2011-11-22 10:29
| 只看該作者
本帖最後由 GBKEE 於 2011-11-22 10:31 編輯
回復 1# joss - Option Explicit
- Dim AR() '動態的陣列變數
- Private Sub Worksheet_Calculate()
- Dim A As Integer
- If Not IsNumeric([A1]) Then Exit Sub 'A1不是數值 離開程式
- On Error Resume Next '處裡錯誤->有錯誤時不理會錯誤繼續下一程式碼
- A = UBound(AR) '取得AR陣列最大維度
- If Err.Number <> 0 Then '有錯誤: AR陣列變數尚未設定維數
- ReDim AR(0) '設定AR為一維陣列 維數為0
- AR(0) = [A1]
- Else
- If Not IsError(Application.Match(AR, [A1], 0)) Then '判斷[A1]的值,如不存在AR中.
- ReDim Preserve AR(UBound(AR) + 1) 'AR 陣列內容不變再加上一維元素
- AR(UBound(AR)) = [A1] '再加上一維元素= A1
- End If
- End If
- MsgBox "最大值 : " & Application.Max(AR) & "最小 : " & Application.Min(AR)
- End Sub
|
|
|
|
|
|
|
|
發表於 2011-11-22 01:06
| 
