Нахождение максимального и минимального значений выделенного диапазона рабочей таблицы и замена их нулевыми значениями

@Shamil · Регистрация: 29.06.2011

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

@Igor_Tr · 07.05.2013, 16:54

Почему не подходят функции листа Min и Max для указанного вами диапазона?

@Shamil · 07.05.2013, 20:00 **[ТС]**

если честно то я чайник в этом деле просто на дом задали такое

@Igor_Tr · 07.05.2013, 20:31

Max & Min - понятия растянутые. В таблице может быть их несколько - и тех и других. Про все идет речь, или про первые попавшиеся?

Добавлено через 21 минуту
Ну вот так, очень-очень просто.

Visual Basic

    Dim currcell As Range, mMAX#, mMIN#
    mMAX = Application.WorksheetFunction.Max(Cells(1, 1).CurrentRegion)
    mMIN = Application.WorksheetFunction.Min(Cells(1, 1).CurrentRegion)
    For Each currcell In Cells(1, 1).CurrentRegion
        If currcell.Value = mMAX Or currcell.Value = mMIN Then currcell.Value = 0
    Next

Но поищите еще здесь, на форуме. Будете удивлены.

@Shamil 4 / 4 / 0 Регистрация: 29.06.2011 Сообщений: 122 Записей в блоге: 1
		1
	Нахождение максимального и минимального значений выделенного диапазона рабочей таблицы и замена их нулевыми значениями 07.05.2013, 09:19. Показов 2296. Ответов 3 Метки нет (Все метки) Разработайте подпрограмму или пользовательскую форму для нахождения максимального и минимального значений выделенного диапазона рабочей таблицы и замены их нулевыми значениями. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@Igor_Tr 4377 / 661 / 36 Регистрация: 17.01.2010 Сообщений: 2,134
	07.05.2013, 16:54	2
	Почему не подходят функции листа Min и Max для указанного вами диапазона? 0

@Shamil 4 / 4 / 0 Регистрация: 29.06.2011 Сообщений: 122 Записей в блоге: 1
	07.05.2013, 20:00 [ТС]	3
	если честно то я чайник в этом деле просто на дом задали такое 0

Опции темы