Найти столбец по значению в ячейки и выделить его.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Найти столбец по значению в ячейки и выделить его. (Макросы/Sub)

S0LDAT

Дата: Пятница, 22.05.2015, 04:51 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

Добрый день, надо найти столбец по значению ячейки (это я сделал). После этого необходимо выделить весь столбец, ну или хотя бы 200 строк.
У меня находит и выделяет ячейку в столбце, а вот как выделить весь столбец я не знаю, т.к. не ясно в каком именно столбце будет значение искомой ячейки.
Помогите плиз.

К сообщению приложен файл: 0000.xlsm (16.4 Kb)

Сообщение отредактировал S0LDAT - Пятница, 22.05.2015, 04:51

Ответить

ShAM

Дата: Пятница, 22.05.2015, 06:15 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1347

Репутация: 249 ±

Замечаний: 0% ±

Excel 2010

Цитата S0LDAT, 22.05.2015 в 04:51, в сообщении № 1

ну или хотя бы 200 строк

ActiveCell.Resize(200).Select

Ответить

S0LDAT

Дата: Пятница, 22.05.2015, 06:43 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 19

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

ShAM, спасибо, а можно получить адрес найденной ячейки?

Ответить

_Boroda_ Дата: Пятница, 22.05.2015, 07:48 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16880

Репутация: 6593 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?

Sub Макрос1() cn_ = WorksheetFunction.Match("дата рождения", Range("1:1"), 0) ad_ = Cells(1, cn_).Address Columns(cn_).Select End Sub

или, если не только для первой строки

Sub Макрос1() ad_ = Cells.Find(What:="дата рождения").Address cn_ = Range(ad_).Column Columns(cn_).Select End Sub

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Найти столбец по значению в ячейки и выделить его. (Макросы/Sub)

Страница 1 из 1
1