VBA代碼找出範圍內的最大值，並將1加到另一個單元格中的值

您可能會發現這個問題有點奇怪，但我真的需要這個用於我的計算工作表。首先，我會發布我的要求，然後基於請求我將分享我的VBA代碼。但是，它的建造非常糟糕。VBA代碼找出範圍內的最大值，並將1加到另一個單元格中的值

我需要一個VBA代碼，它可以找到範圍（I11到I21）中的最大值，並且取這個值，我必須將1（+1）加入另一個「G2」單元。

請幫我爲此獲取一個代碼。您的幫助將不勝感激。

2017-07-25 Sarath kumar

你能發表一個示例表嗎？一個前後將是最好的 – RealCheeseLord

請[編輯]你的問題，以顯示[你到目前爲止的代碼]（http://whathaveyoutried.com）。你至少應該包含一個你遇到問題的代碼大綱（但最好是[mcve]），然後我們可以嘗試幫助解決特定的問題。你還應該閱讀[問]。 –

在這裏你去用一個簡單的1號線的解決方案：這取決於究竟你想做的事

Public Sub TestMe() 
    Range("G2") = WorksheetFunction.Max(Range("I11:I21")) + 1 
End Sub

Public Sub TestMe() 
    Range("G2") = Range("G2") + WorksheetFunction.Max(Range("I11:I21")) + 1 
End Sub

。

來源

2017-07-25 13:52:43 Vityata

嗨Vityata，非常感謝您的快速響應。它工作得很好，符合我的要求。我還需要從此代碼獲得額外的好處以便將來使用它。我想在這個vba代碼中有一個IF語句。就像如果最大值不大於範圍G2，那麼它應該激發上面的宏。這可能嗎？ –

@Sarathkumar - 不客氣。一般來說，如果您總是在問題中分享您的VBA代碼，那會更好。不要緊，你認爲這是不好的。您可以選擇我接受的答案。 – Vityata

我剛剛在同事的幫助下映射了幾乎整整一頁的代碼，還有一些從網上搜索的也使用了我的一些學習內容。它的方式太大，無法粘貼在這裏。但是，通過上面的代碼，我添加了IF功能，現在它的作品絕對完美。謝謝你的協助。（「G2」）> WorksheetFunction.Max（Range（「I11：I21」））範圍（「G2」）= WorksheetFunction.Max ）+ 1 End Sub –

我剛剛在同事的幫助下映射了幾乎整整一頁的代碼，還有一些從網上搜索的也使用了我的一些學習內容。它的方式太大，無法粘貼在這裏。但是，通過上面的代碼，我添加了IF功能，現在它的作品絕對完美。謝謝你的協助。

Public Sub TestMe() 
If Range("G2") > WorksheetFunction.Max(Range("I11:I21")) Then 
Range("G2") = WorksheetFunction.Max(Range("I11:I21")) + 1 
End Sub

來源

2017-07-25 14:31:22

VBA代碼找出範圍內的最大值，並將1加到另一個單元格中的值

回答

相關問題