Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Поиск в диапазоне макс. значения с записью в переменную - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск в диапазоне макс. значения с записью в переменную (Макросы/Sub)
Поиск в диапазоне макс. значения с записью в переменную
mss Дата: Суббота, 20.07.2019, 18:11 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 81
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Прошу помощи, надо макросом найти максимальное значение в диапазоне и записать в переменную номер строки этого значения, спасибо
К сообщению приложен файл: 2385420.xlsm(8.4 Kb)
 
Ответить
СообщениеПрошу помощи, надо макросом найти максимальное значение в диапазоне и записать в переменную номер строки этого значения, спасибо

Автор - mss
Дата добавления - 20.07.2019 в 18:11
Pelena Дата: Суббота, 20.07.2019, 18:25 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 14872
Репутация: 3248 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Дайте теме более конкретное название, отражающее суть задачи, в соответствии с Правилами форума


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеДайте теме более конкретное название, отражающее суть задачи, в соответствии с Правилами форума

Автор - Pelena
Дата добавления - 20.07.2019 в 18:25
_Igor_61 Дата: Суббота, 20.07.2019, 18:26 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 337
Репутация: 69 ±
Замечаний: 0% ±

Excel 2007
Нужно подождать :)


Сообщение отредактировал _Igor_61 - Суббота, 20.07.2019, 18:27
 
Ответить
СообщениеНужно подождать :)

Автор - _Igor_61
Дата добавления - 20.07.2019 в 18:26
mss Дата: Суббота, 20.07.2019, 18:28 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 81
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо большое
 
Ответить
СообщениеСпасибо большое

Автор - mss
Дата добавления - 20.07.2019 в 18:28
Pelena Дата: Суббота, 20.07.2019, 18:55 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 14872
Репутация: 3248 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
mss, даже если решение получено, название темы всё же надо исправить


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщениеmss, даже если решение получено, название темы всё же надо исправить

Автор - Pelena
Дата добавления - 20.07.2019 в 18:55
mss Дата: Вторник, 23.07.2019, 07:02 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 81
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Прошу изменить тему вопроса на "Поиск в диапазоне максимального значения с записью в переменную", спасибо
[moder]Название поменял[/moder]


Сообщение отредактировал китин - Вторник, 23.07.2019, 07:05
 
Ответить
СообщениеПрошу изменить тему вопроса на "Поиск в диапазоне максимального значения с записью в переменную", спасибо
[moder]Название поменял[/moder]

Автор - mss
Дата добавления - 23.07.2019 в 07:02
китин Дата: Вторник, 23.07.2019, 07:10 | Сообщение № 7
Группа: Модераторы
Ранг: Экселист
Сообщений: 5969
Репутация: 927 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
mss, да что ж такое. Оформите пост в соответствии с Правилами форума в части тэгов


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениеmss, да что ж такое. Оформите пост в соответствии с Правилами форума в части тэгов

Автор - китин
Дата добавления - 23.07.2019 в 07:10
китин Дата: Вторник, 23.07.2019, 07:13 | Сообщение № 8
Группа: Модераторы
Ранг: Экселист
Сообщений: 5969
Репутация: 927 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
исправьте в сообщении № 8.


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениеисправьте в сообщении № 8.

Автор - китин
Дата добавления - 23.07.2019 в 07:13
mss Дата: Вторник, 23.07.2019, 07:19 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 81
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
[vba]
Код
Sub ðàñ÷åò_òðåíäà()
Dim a1, a2 As Long
Dim a, b
On Error Resume Next
For a = 1 To 14
    a1 = Application.Max(Range(Cells(7, a + 227), Cells(20, a + 227)))
    a1 = Range(Cells(7, a + 227), Cells(20, a + 227)).Find(What:=a1).Row
    Cells(a + 5, 260).Value = WorksheetFunction.Index(Application.LinEst(Range(Cells(7, a + 243), Cells(a1, a + 243)), Range(Cells(7, a + 227), Cells(a1, a + 227))), 1)
    Cells(a + 5, 261).Value = WorksheetFunction.Index(Application.LinEst(Range(Cells(7, a + 243), Cells(a1, a + 243)), Range(Cells(7, a + 227), Cells(a1, a + 227))), 1, 2)
    Cells(a + 5, 262).Value = WorksheetFunction.Index(Application.LinEst(Range(Cells(7, a + 243), Cells(a1, a + 243)), Range(Cells(7, a + 227), Cells(a1, a + 227)), , 1), 3, 1)
Next a
For b = 1 To 4
    a2 = Application.Max(Range(Cells(7, b + 227), Cells(20, b + 227)))
    a2 = Range(Cells(7, b + 227), Cells(20, b + 227)).Find(What:=a2).Row
    Cells(b + 5, 264).Value = WorksheetFunction.Index(Application.LinEst(Range(Cells(7, b + 243), Cells(a2, b + 243)), Application.Ln(Range(Cells(7, b + 227), Cells(a2, b + 227)))), 1)
    Cells(b + 5, 265).Value = WorksheetFunction.Index(Application.LinEst(Range(Cells(7, b + 243), Cells(a2, b + 243)), Application.Ln(Range(Cells(7, b + 227), Cells(a2, b + 227)))), 1, 2)
    Cells(b + 5, 266).Value = WorksheetFunction.Index(Application.LinEst(Range(Cells(7, b + 243), Cells(a2, b + 243)), Application.Ln(Range(Cells(7, b + 227), Cells(a2, b + 227))), , 1), 3, 1)
Next b
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub ðàñ÷åò_òðåíäà()
Dim a1, a2 As Long
Dim a, b
On Error Resume Next
For a = 1 To 14
    a1 = Application.Max(Range(Cells(7, a + 227), Cells(20, a + 227)))
    a1 = Range(Cells(7, a + 227), Cells(20, a + 227)).Find(What:=a1).Row
    Cells(a + 5, 260).Value = WorksheetFunction.Index(Application.LinEst(Range(Cells(7, a + 243), Cells(a1, a + 243)), Range(Cells(7, a + 227), Cells(a1, a + 227))), 1)
    Cells(a + 5, 261).Value = WorksheetFunction.Index(Application.LinEst(Range(Cells(7, a + 243), Cells(a1, a + 243)), Range(Cells(7, a + 227), Cells(a1, a + 227))), 1, 2)
    Cells(a + 5, 262).Value = WorksheetFunction.Index(Application.LinEst(Range(Cells(7, a + 243), Cells(a1, a + 243)), Range(Cells(7, a + 227), Cells(a1, a + 227)), , 1), 3, 1)
Next a
For b = 1 To 4
    a2 = Application.Max(Range(Cells(7, b + 227), Cells(20, b + 227)))
    a2 = Range(Cells(7, b + 227), Cells(20, b + 227)).Find(What:=a2).Row
    Cells(b + 5, 264).Value = WorksheetFunction.Index(Application.LinEst(Range(Cells(7, b + 243), Cells(a2, b + 243)), Application.Ln(Range(Cells(7, b + 227), Cells(a2, b + 227)))), 1)
    Cells(b + 5, 265).Value = WorksheetFunction.Index(Application.LinEst(Range(Cells(7, b + 243), Cells(a2, b + 243)), Application.Ln(Range(Cells(7, b + 227), Cells(a2, b + 227)))), 1, 2)
    Cells(b + 5, 266).Value = WorksheetFunction.Index(Application.LinEst(Range(Cells(7, b + 243), Cells(a2, b + 243)), Application.Ln(Range(Cells(7, b + 227), Cells(a2, b + 227))), , 1), 3, 1)
Next b
End Sub
[/vba]

Автор - mss
Дата добавления - 23.07.2019 в 07:19
mss Дата: Вторник, 23.07.2019, 07:22 | Сообщение № 10
Группа: Пользователи
Ранг: Участник
Сообщений: 81
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
А как удалить сообщение 8 и 10?
[moder]удалил[/moder]


Сообщение отредактировал китин - Вторник, 23.07.2019, 07:27
 
Ответить
СообщениеА как удалить сообщение 8 и 10?
[moder]удалил[/moder]

Автор - mss
Дата добавления - 23.07.2019 в 07:22
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск в диапазоне макс. значения с записью в переменную (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!