Макрос для нахождения максимального и минимального значения

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Макрос для нахождения максимального и минимального значения - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для нахождения максимального и минимального значения (Макросы Sub)

Макрос для нахождения максимального и минимального значения

Анна

Дата: Пятница, 06.12.2013, 21:18 | Сообщение № 1

Группа: Гости

На основе конструкции While Do…Loop нужно разработать процедуру “Макс” для нахождения максимального и “Мин” для нахождения минимального значения в ячейках (E2:E7).

Ответить

doober

Дата: Суббота, 07.12.2013, 00:05 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 947

Репутация: 323 ±

Замечаний: 0% ±

Excel 2010

Докладываю.
Задачу выполнил.
Разработал процедуру.

Ответить

SergeyKorotun

Дата: Суббота, 07.12.2013, 03:03 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 301

Репутация: 15 ±

Замечаний: 0% ±

Excel 2007

[vba]

Код

Sub qwerty()
    Dim val As Single
    Dim min As Single
    Dim max As Single

    val = Range("e2").Value
    min = val
    max = val
    nextrow = 3
    Do While nextrow <= 7
       val = Range("e" & nextrow).Value
       If min > val Then
          min = val
       End If
       If max < val Then
          max = val
       End If
       nextrow = nextrow + 1
    Loop
    MsgBox "max = " & max
    MsgBox "min = " & min
End Sub

[/vba]

Ответить

Страница 1 из 1
1