我正在使用Excel 2015.當單元格中的圖形達到或超過極限時,我希望該單元格鎖定/釋放,以便當我回來時對此我仍然可以看到達到了極限。Excel 2015,當條件滿足時凍結單元格的圖形
問題是,它是一個活動圖表,圖形可以回落到極限以下,觸發指示器告訴我已達到極限。我可以設置一個警告/指示器,當達到限制時,但無法確定如何凍結正在達到的限制。如果需要,這種凍結可以在旁邊的單元格中。
我正在使用Excel 2015.當單元格中的圖形達到或超過極限時,我希望該單元格鎖定/釋放,以便當我回來時對此我仍然可以看到達到了極限。Excel 2015,當條件滿足時凍結單元格的圖形
問題是,它是一個活動圖表,圖形可以回落到極限以下,觸發指示器告訴我已達到極限。我可以設置一個警告/指示器,當達到限制時,但無法確定如何凍結正在達到的限制。如果需要,這種凍結可以在旁邊的單元格中。
有沒有簡單的方法來做到這一點使用標準的功能,但你可以使用這個User Defined Function:
在「開發者」選項卡中,選擇「查看代碼」,好了,查看代碼,工作簿 - 這將打開Visual Basic編輯器。
選擇Insert
- >Module
,您應該會看到一個'Modules'分支出現在樹中,展開並雙擊Module1
(您剛剛插入)。
添加以下代碼
Public Curmax(10) As Double
Public Reset As Boolean
Function RunMax(Cell As Range, maxref As Integer) As Double
Application.Volatile (True) 'Ensures UDF is run when the sheet recalculates
If Cell.Value > Curmax(maxref) Then
Curmax(maxref) = Cell.Value
End If
RunMax = Curmax(maxref)
End Function
Sub ClearRunMax()
With ActiveCell
maxref = Mid(.Formula, InStr(.Formula, ",") + 1, 1)
Curmax(maxref) = 0
ActiveSheet.Calculate
End With
End Sub
現在,如果你在一個單元格中輸入=RunMax(A1,1)
,將正在運行的最大的東西是在細胞A1
作爲最大保持參考編號。 1
,添加另一個,那麼就增加了參考 - =RunMax(C3,2), =RunMax(F56,3)
,最多不超過10個(或任何你把Public Curmax(10) As Double
)
如果您在頁面上放置一個按鈕,分配ClearRunMax
宏,它會如果您選擇包含RunMax
語句的呼叫,然後單擊該按鈕,請將最大值重置爲您正在跟蹤的單元格的當前值(假定其大於0)。
這可以改善,我會第一個承認。例如沒有錯誤檢查。所以當你按下按鈕時你選擇了錯誤的單元格,你會得到一個Type Mismatch
。另外,如果您的值爲負數,重置將不起作用。
嗨,我不能等到今天晚上。我只是馬上放棄它,嘿嘿。它工作的一種享受。再次感謝。如果被想要應用這個不同的獨立數字的列表。有沒有辦法將它拖拽到其他單元格中,還是重複每個獨立圖形的代碼? – Eamonn