VPF::Excel.Найти МАКС из ABS. Рез-т число с исх. знаком

Маринка

Дата 24.8.2010, 04:49 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 5.12.2003
Где: Иркутск

Репутация: нет
Всего: нет

Здравствуйте!
Подскажите, пожалуйста, есть столбец из чисел как отриц-х так и положит-х..надо из них найти максимум по модулю...и в итоге нужно число максимальное, но со своим исходным знаком. Как это с помощью формул можно организовать или макроса? Если одинаковое число стоит и с плюсом и с минусом, то берем с минусом.

Это сообщение отредактировал(а) Маринка - 24.8.2010, 05:21

dorogoyIV

Дата 24.8.2010, 11:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1503
Регистрация: 26.3.2007

Репутация: 4
Всего: 46

Код


Sub SearchNumber()
 Dim i As Integer
 i = 1
 Dim result, k
 result = 0
 
 While Cells(i, 1) <> ""
  If (result < Math.Abs(Cells(i, 1))) Then
   result = Math.Abs(Cells(i, 1))
   k = Cells(i, 1) / Math.Abs(Cells(i, 1))
   
   If (result = Math.Abs(Cells(i, 1)) And k < 0) Then
    k = -1
   End If
  End If
  
  i = i + 1
 Wend
 
 MsgBox result * k
End Sub

Маринка

Дата 25.8.2010, 08:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 49
Регистрация: 5.12.2003
Где: Иркутск

Репутация: нет
Всего: нет

спасибо большое!!! А если по двум, трем столбцам искать, как изменить текст?

аа, ну понятно надо ввести вместо 1 -> j и For j = 1 To 3

А если надо сначала по первому столбцу, а потом по двум другим вместе...тогда как сделать

Это сообщение отредактировал(а) Маринка - 25.8.2010, 09:07

Akina

Дата 25.8.2010, 09:07 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454

=ЕСЛИ(МАКС(диапазон)>-МИН(диапазон);МАКС(диапазон);МИН(диапазон))

Добавлено через 44 секунды
Диапазоном может быть что угодно - в т.ч. мультиобласть, даже ссылающаяся на несколько файлов.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »