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

Вход

Регистрация

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

 

= Мир MS Excel/Определить индекс ячейки по условию в цикле - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определить индекс ячейки по условию в цикле (Макросы/Sub)
Определить индекс ячейки по условию в цикле
Elhust Дата: Понедельник, 15.05.2017, 15:53 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 184
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
Добрый день уважаемые специалисты и просто гуру Excel
есть некий цикл по ячейкам так как MyRange3 это диапазон столбца условно $I$44:$I$47
Дело в том что в этих ячейках находятся Даты , необходимо найти наименьшую дату и определить её Address
но в диапазон могут попасть так же и "Н/Д"
У меня Минимальное значение не рассчитывается :'(
И не понимаю как сделать так, чтобы у меня было значение Range наименьшей даты то есть её Address
[vba]
Код

Dim Minn2 as date
Dim vItem3 , MyRange3 as range
Dim iSearchText15$
iSearchText15$="*Дата*рег-ции*"
Set iCell = UsedRange.Find(iSearchText15$, , xlFormulas, xlPart).Offset(1, 0)
Set MyRange3 = Range(iCell, iCell.End(xlDown))
Minn2 = Application.WorksheetFunction.Min(Range("MyRange3"))
For Each vItem3 In MyRange3

vItem3

Next
[/vba]
Спасибо за внимание


Каждый сам выбирает правила игры

Сообщение отредактировал Elhust - Понедельник, 15.05.2017, 16:04
 
Ответить
СообщениеДобрый день уважаемые специалисты и просто гуру Excel
есть некий цикл по ячейкам так как MyRange3 это диапазон столбца условно $I$44:$I$47
Дело в том что в этих ячейках находятся Даты , необходимо найти наименьшую дату и определить её Address
но в диапазон могут попасть так же и "Н/Д"
У меня Минимальное значение не рассчитывается :'(
И не понимаю как сделать так, чтобы у меня было значение Range наименьшей даты то есть её Address
[vba]
Код

Dim Minn2 as date
Dim vItem3 , MyRange3 as range
Dim iSearchText15$
iSearchText15$="*Дата*рег-ции*"
Set iCell = UsedRange.Find(iSearchText15$, , xlFormulas, xlPart).Offset(1, 0)
Set MyRange3 = Range(iCell, iCell.End(xlDown))
Minn2 = Application.WorksheetFunction.Min(Range("MyRange3"))
For Each vItem3 In MyRange3

vItem3

Next
[/vba]
Спасибо за внимание

Автор - Elhust
Дата добавления - 15.05.2017 в 15:53
sboy Дата: Понедельник, 15.05.2017, 16:31 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
необходимо найти наименьшую дату и определить её Address

функцией МИН вы только находите значение, а получить Range, можно с помощью ИНДЕКС
или вариант циклом, создаете массив значений Вашего MyRange3, и находите индекс минимального неошибочного значения


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
необходимо найти наименьшую дату и определить её Address

функцией МИН вы только находите значение, а получить Range, можно с помощью ИНДЕКС
или вариант циклом, создаете массив значений Вашего MyRange3, и находите индекс минимального неошибочного значения

Автор - sboy
Дата добавления - 15.05.2017 в 16:31
KuklP Дата: Понедельник, 15.05.2017, 17:03 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Как знаете..


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Понедельник, 15.05.2017, 20:32
 
Ответить
СообщениеКак знаете..

Автор - KuklP
Дата добавления - 15.05.2017 в 17:03
Elhust Дата: Понедельник, 15.05.2017, 19:59 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 184
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
KuklP, спасибо что подсказали, буду знать правила форума и извините за халатное отношение


Каждый сам выбирает правила игры
 
Ответить
СообщениеKuklP, спасибо что подсказали, буду знать правила форума и извините за халатное отношение

Автор - Elhust
Дата добавления - 15.05.2017 в 19:59
Elhust Дата: Понедельник, 15.05.2017, 20:02 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 184
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
(


Каждый сам выбирает правила игры

Сообщение отредактировал Elhust - Понедельник, 15.05.2017, 20:04
 
Ответить
Сообщение(

Автор - Elhust
Дата добавления - 15.05.2017 в 20:02
Elhust Дата: Вторник, 16.05.2017, 10:05 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 184
Репутация: -1 ±
Замечаний: 0% ±

Excel 2010
Вот файл там два макроса один работает(Sheets2_min_max) другой не работает(OpenFiles) с циклом по книгам не работает
Примечание: при выборе папки выбирать ту же лист куда данные тянуться не включён в цикл
К сообщению приложен файл: 8579767.rar (23.2 Kb)


Каждый сам выбирает правила игры

Сообщение отредактировал Elhust - Вторник, 16.05.2017, 10:06
 
Ответить
СообщениеВот файл там два макроса один работает(Sheets2_min_max) другой не работает(OpenFiles) с циклом по книгам не работает
Примечание: при выборе папки выбирать ту же лист куда данные тянуться не включён в цикл

Автор - Elhust
Дата добавления - 16.05.2017 в 10:05
KuklP Дата: Вторник, 16.05.2017, 12:34 | Сообщение № 7
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Вторник, 16.05.2017, 12:35
 
Ответить
Сообщение

Автор - KuklP
Дата добавления - 16.05.2017 в 12:34
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определить индекс ячейки по условию в цикле (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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