Здравствуйте, уважаемые помогающие! Пожалуйста, подскажите, как оставить в ячейках для ГВС бОльшее из значений в верхней строчке столбца В, а для ЦО бОльшее из значений в нижней строчке столбца В, учитывая, что некоторые ячейки столбца В содержат всего одну строчку, и в них тоже нужно оставить бОльшее из значений...?
Здравствуйте, уважаемые помогающие! Пожалуйста, подскажите, как оставить в ячейках для ГВС бОльшее из значений в верхней строчке столбца В, а для ЦО бОльшее из значений в нижней строчке столбца В, учитывая, что некоторые ячейки столбца В содержат всего одну строчку, и в них тоже нужно оставить бОльшее из значений...?Aimod
А как понять что конкретное значение больше, посчитать математически? или какой то другой критерий?
Я не знаю, наверное математически.. Макрос бы я точно сохранил
sboy, Спасибо!
PS: Почему я не могу плюсануть репутацию помогающим? Сайт говорит, что форма заполнена неправильно, а как правильно заполнить? PPS: О-о, спс! " Ураа, заработало!" (с)
А как понять что конкретное значение больше, посчитать математически? или какой то другой критерий?
Я не знаю, наверное математически.. Макрос бы я точно сохранил
sboy, Спасибо!
PS: Почему я не могу плюсануть репутацию помогающим? Сайт говорит, что форма заполнена неправильно, а как правильно заполнить? PPS: О-о, спс! " Ураа, заработало!" (с)Aimod
Сообщение отредактировал Aimod - Пятница, 08.06.2018, 13:19
Public Function MaxS(S As String) As Long Tail = Trim(S) If Right(Tail, 1) = Chr(10) Then Tail = Left(Tail, Len(Tail) - 1) Tail = Tail & "/" Do While Tail <> "" NextNum = CLng(Left(Tail, InStr(Tail, "/") - 1)) Tail = Replace(Tail, CStr(NextNum) & "/", "") MaxS = Application.WorksheetFunction.Max(NextNum, MaxS) Loop End Function
Public Function MaxS(S As String) As Long Tail = Trim(S) If Right(Tail, 1) = Chr(10) Then Tail = Left(Tail, Len(Tail) - 1) Tail = Tail & "/" Do While Tail <> "" NextNum = CLng(Left(Tail, InStr(Tail, "/") - 1)) Tail = Replace(Tail, CStr(NextNum) & "/", "") MaxS = Application.WorksheetFunction.Max(NextNum, MaxS) Loop End Function