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

Вход

Регистрация

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

 

= Мир MS Excel/Найти первое значение в столбце на определенном месте - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Найти первое значение в столбце на определенном месте (Макросы/Sub)
Найти первое значение в столбце на определенном месте
lapin9126 Дата: Воскресенье, 07.05.2017, 12:57 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте, как средствами VBA на активном листе, в колонке F, найти первое значение 07: в ячейке стоящее на определенном месте. То есть, в ячейках есть данные следующего вида 06:07:11:00, 06:23:10:07, 06:12:07:00, 07:07:42:04, как найти "07:" которое будет расположено впереди значения (07:07:42:04) и перейти на ячейку со смещением в первый столбец? Если найдена ячейка F46, то нужно перейти в A46.
К сообщению приложен файл: _-4.xlsx (24.3 Kb)
 
Ответить
СообщениеЗдравствуйте, как средствами VBA на активном листе, в колонке F, найти первое значение 07: в ячейке стоящее на определенном месте. То есть, в ячейках есть данные следующего вида 06:07:11:00, 06:23:10:07, 06:12:07:00, 07:07:42:04, как найти "07:" которое будет расположено впереди значения (07:07:42:04) и перейти на ячейку со смещением в первый столбец? Если найдена ячейка F46, то нужно перейти в A46.

Автор - lapin9126
Дата добавления - 07.05.2017 в 12:57
Manyasha Дата: Воскресенье, 07.05.2017, 13:06 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
lapin9126, здравствуйте, так пойдет?
[vba]
Код
Sub tt()
    Dim x As Range
    Set x = Columns("F:F").Find(What:="07:*", After:=[f1], LookAt:=xlWhole)
    If Not x Is Nothing Then Cells(x.Row, 1).Select
End Sub
[/vba]
К сообщению приложен файл: -4-1.xlsm (30.6 Kb)


ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеlapin9126, здравствуйте, так пойдет?
[vba]
Код
Sub tt()
    Dim x As Range
    Set x = Columns("F:F").Find(What:="07:*", After:=[f1], LookAt:=xlWhole)
    If Not x Is Nothing Then Cells(x.Row, 1).Select
End Sub
[/vba]

Автор - Manyasha
Дата добавления - 07.05.2017 в 13:06
lapin9126 Дата: Воскресенье, 07.05.2017, 13:12 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Manyasha, Огромное спасибо respect
 
Ответить
СообщениеManyasha, Огромное спасибо respect

Автор - lapin9126
Дата добавления - 07.05.2017 в 13:12
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Найти первое значение в столбце на определенном месте (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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