Найти столбец по значению в ячейки и выделить его.
S0LDAT
Дата: Пятница, 22.05.2015, 04:51 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация:
0
±
Замечаний:
20% ±
Excel 2007
Добрый день, надо найти столбец по значению ячейки (это я сделал). После этого необходимо выделить весь столбец, ну или хотя бы 200 строк. У меня находит и выделяет ячейку в столбце, а вот как выделить весь столбец я не знаю, т.к. не ясно в каком именно столбце будет значение искомой ячейки. Помогите плиз.
Добрый день, надо найти столбец по значению ячейки (это я сделал). После этого необходимо выделить весь столбец, ну или хотя бы 200 строк. У меня находит и выделяет ячейку в столбце, а вот как выделить весь столбец я не знаю, т.к. не ясно в каком именно столбце будет значение искомой ячейки. Помогите плиз. S0LDAT
К сообщению приложен файл:
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
ActiveCell.Resize(200).Select
ActiveCell.Resize(200).Select ShAM
Ответить
Сообщение 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
Ответить
Сообщение 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]
Так нужно? [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_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: 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