| Вопрос: Максимум | Добавлено: 06.12.07 09:50 |
Автор вопроса:  Eden
|
| плз помогите взять максимум из определенного столбца |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Mr.Smile ICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | Цитата | #1 | Добавлено: 06.12.07 14:01 |
| Перебираешь все ячейки в столбце и сравниваешь с числом в переменной, если число в ячейке больше чем число в переменной, то установить число из текущей ячейки в переменную. И не забудь сделать проверку IsNumber. | ||
|
Номер ответа: 2 Автор ответа: Pavel Вопросов: 0 Ответов: 36 |
Профиль | Цитата | #2 | Добавлено: 06.12.07 16:40 |
|
Sub Макрос1()
Dim iMaxCol& iMaxCol = WorksheetFunction.Max(Columns(7)) 'седьмой столбец MsgBox iMaxCol End Sub |
||
|
Номер ответа: 3 Автор ответа: PavelВопросов: 0 Ответов: 36 |
Профиль | Цитата | #3 | Добавлено: 06.12.07 16:41 |
|
Sub Макрос1()
Dim iMaxCol& iMaxCol = WorksheetFunction.Max(Columns("A"  ) 'седьмой столбец
MsgBox iMaxCol End Sub |
||
|
Номер ответа: 4 Автор ответа: PavelВопросов: 0 Ответов: 36 |
Профиль | Цитата | #4 | Добавлено: 06.12.07 16:42 |
| Во втором примере ищем максимум в столбце А | ||
Страница: 1 |