Excel VBA найти максимальное значение в диапазоне на конкретном листе

Question

я обнаружил, что следующий код получает максимальное значение в диапазоне:

Cells(Count, 4)=Application.WorksheetFunction.Max(Range(Cells(m, 1),Cells(n, 1))) 

Как искать в конкретном листе? Data листа в этом случае

Как:

Worksheets(d).Cells(x, 4).Value = Worksheets("Data")... ????? FIND MAX ???? 

Answer 1

Это часто работает, но отсутствует ссылка:

worksheets("Data").Cells(Count, 4)= Application.WorksheetFunction.Max _ 
    (worksheets("Data").range(cells(m,1) ,cells(n,1)) 

В тексте «ячеек» должно предшествовать ссылка на листок, на котором находятся ячейки, я бы написал следующее:

worksheets("Data").Cells(Count, 4) = Application.WorksheetFunction.Max _ 
    (worksheets("Data").range(worksheets("Data").cells(m,1) ,worksheets("Data").cells(n,1)) 

Это также может быть написано, как это что понятнее:

with worksheets("Data") 
    .Cells(Count, 4) = Application.WorksheetFunction.Max _ 
          (.range(.cells(m,1) ,.cells(n,1)) 
End With 

Я надеюсь, что это помогает.

Харви

Answer 2

Вы можете передать любую действительную ссылку на ячейку первенствовать к методу диапазона в виде строки.

Application.WorksheetFunction.Max(range("Data!A1:A7")) 

В вашем случае, хотя, использовать его как это, определяя две ячейки по краям вашего диапазона:

Application.WorksheetFunction.Max _ 
    (range(worksheets("Data").cells(m,1),worksheets("Data").cells(n,1)))