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

Вход

Регистрация

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

 

= Мир MS Excel/Найти столбец по значению в ячейки и выделить его. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Найти столбец по значению в ячейки и выделить его.
S0LDAT Дата: Пятница, 22.05.2015, 04:51 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Добрый день, надо найти столбец по значению ячейки (это я сделал). После этого необходимо выделить весь столбец, ну или хотя бы 200 строк.
У меня находит и выделяет ячейку в столбце, а вот как выделить весь столбец я не знаю, т.к. не ясно в каком именно столбце будет значение искомой ячейки.
Помогите плиз.
К сообщению приложен файл: 0000.xlsm (16.4 Kb)


Сообщение отредактировал S0LDAT - Пятница, 22.05.2015, 04:51
 
Ответить
СообщениеДобрый день, надо найти столбец по значению ячейки (это я сделал). После этого необходимо выделить весь столбец, ну или хотя бы 200 строк.
У меня находит и выделяет ячейку в столбце, а вот как выделить весь столбец я не знаю, т.к. не ясно в каком именно столбце будет значение искомой ячейки.
Помогите плиз.

Автор - S0LDAT
Дата добавления - 22.05.2015 в 04:51
ShAM Дата: Пятница, 22.05.2015, 06:15 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
ну или хотя бы 200 строк
ActiveCell.Resize(200).Select
 
Ответить
Сообщение
ну или хотя бы 200 строк
ActiveCell.Resize(200).Select

Автор - ShAM
Дата добавления - 22.05.2015 в 06:15
S0LDAT Дата: Пятница, 22.05.2015, 06:43 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
ShAM, спасибо, а можно получить адрес найденной ячейки?
 
Ответить
СообщениеShAM, спасибо, а можно получить адрес найденной ячейки?

Автор - S0LDAT
Дата добавления - 22.05.2015 в 06:43
_Boroda_ Дата: Пятница, 22.05.2015, 07:48 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16709
Репутация: 6501 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Sub Макрос1()
      cn_ = WorksheetFunction.Match("дата рождения", Range("1:1"), 0)
      ad_ = Cells(1, cn_).Address
      Columns(cn_).Select
End Sub
[/vba]
или, если не только для первой строки
[vba]
Код
Sub Макрос1()
     ad_ = Cells.Find(What:="дата рождения").Address
     cn_ = Range(ad_).Column
     Columns(cn_).Select
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Sub Макрос1()
      cn_ = WorksheetFunction.Match("дата рождения", Range("1:1"), 0)
      ad_ = Cells(1, cn_).Address
      Columns(cn_).Select
End Sub
[/vba]
или, если не только для первой строки
[vba]
Код
Sub Макрос1()
     ad_ = Cells.Find(What:="дата рождения").Address
     cn_ = Range(ad_).Column
     Columns(cn_).Select
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 22.05.2015 в 07:48
  • Страница 1 из 1
  • 1
Поиск:

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