Vba excel столбец по имени

Zhennya2030

Пользователь

Сообщений: 21
Регистрация: 29.08.2013

11.08.2014 16:13:34

Есть таблица в эксель например «Таблица1»
B2 C2 D2 E2 F2
Имя; Фамилия; Телефон; размер груди; наличие мозга

как в VBA узнать номер столбца по его названию (телефон) ?
что-то типа этого есть?

Код
Range("Таблица1") .Columns("Телефон") .column

Kuzmich

Пользователь

Сообщений: 7998
Регистрация: 21.12.2012

11.08.2014 16:36:26

Код
Sub Telephon() Dim Stolb As Integer Stolb = Rows(2).Find("Телефон", , xlValues, xlWhole).Column End Sub

	Кузьмич Спасибо! а еще вариант естьтипа такого? а= Range(«Таблица1″ ) .Cells(1,»Телефон» )

Ёк-Мок

Пользователь

Сообщений: 1775
Регистрация: 16.01.2013

11.08.2014 17:03:32

Код
Sub Макрос() For i = 2 To 6 If Cells(2, i).Value = "Телефон" Then a = Cells(2, i).Column Next End Sub

Удивление есть начало познания © Surprise me!
И да пребудет с нами сила ВПР.

Kuzmich Пользователь Сообщений: 7998 Регистрация: 21.12.2012	Cells(1,»Телефон» ) Что это за ячейка?

Zhennya2030

Пользователь

Сообщений: 21
Регистрация: 29.08.2013

12.08.2014 08:27:33

скорее всего я очень плохо объясняю.
Полная задача в том, чтобы из экселя именованной таблицы, передать данные на SQL.
ну тупо пошли перебор таблицы по строкам.

Код
For i = 2 To Sheet1.Range("TAble_Table").Rows.Count objRecordset.Fields("Phone") = Sheet1.Range("TAble_Table").Cells(i, "Telephone").Value

поэтому хотел просто в номер столбца заталкать что-то, что автоматом определяет его номер.
потому что, пользователь может поменять местами столбцы.

Думаю просто на отдельном «скрытом» листе определю их и оттуда буду брать номера.

Изменено: Zhennya2030 — 12.08.2014 10:51:42

	забыл сказать! Спасибо большое за помощь Kuzmich, Ёк-Мок !!!!

Андрей VG

Пользователь

Сообщений: 11878
Регистрация: 22.12.2012

Excel 2016, 365

12.08.2014 08:50:55

Доброе время суток
Если вы используете «умную» таблицу, то можно и таким образом

Код
Dim pLO As ListObject, iRow As Long Set pLO = ActiveSheet.ListObjects(1) For iRow = 1 To pLO.ListRows.Count objRecordset("Phone").Value = pLO.ListColumns("Telephone").DataBodyRange(iRow).Value Next

Успехов.

Zhennya2030 Пользователь Сообщений: 21 Регистрация: 29.08.2013	#9 12.08.2014 09:41:57 Андрей VG, Спасибо большое!

Источник

While you were looking for a VBA solution, this was my top result on google when looking for a formula solution, so I’ll add this for anyone who came here for that like I did:

Excel formula to return the number from a column letter (From @A. Klomp’s comment above), where cell A1 holds your column letter(s):

=column(indirect(A1&»1″))

As the indirect function is volatile, it recalculates whenever any cell is changed, so if you have a lot of these it could slow down your workbook. Consider another solution, such as the ‘code’ function, which gives you the number for an ASCII character, starting with ‘A’ at 65. Note that to do this you would need to check how many digits are in the column name, and alter the result depending on ‘A’, ‘BB’, or ‘CCC’.

Excel formula to return the column letter from a number (From this previous question How to convert a column number (eg. 127) into an excel column (eg. AA), answered by @Ian), where A1 holds your column number:

=substitute(address(1,A1,4),»1″,»»)

Note that both of these methods work regardless of how many letters are in the column name.

Hope this helps someone else.

Источник

Содержание

Vba excel столбец по имени
Номер столбца Excel из имени столбца
VBA Колонны — Как использовать свойство столбцов в Excel VBA? (Примеры)
Свойство столбцов Excel VBA
Как использовать свойство столбцов в Excel VBA?
Пример # 1 — Выбор столбца с использованием свойства столбцов VBA
Пример № 2 — столбцы VBA как функция рабочего листа
Пример # 3 — свойство столбцов VBA для выбора диапазона ячеек
То, что нужно запомнить
Рекомендуемые статьи

Добрый день уважаемые форумчане!

Опыт написания каких либо макросов на VBA у меня очень маленький (редко возникает необходимость) по этому сильно не пинайте.

Вопрос вот в чем. Надо перенести в пределах одной книги с одного листа (таблицы) на другой некие данные.
Понятное дело пользователь может наплодить в таблице своих столбцов и тогда жесткая привязка к определенным ячейкам сломает всю таблицу.
Выход из положения вижу один. Присвоил диапазонам ячеек в столбце определенные имена. Но вот как воспользоваться никак не могу понять.
Сейчас делаю вот так:

На листе «График» есть столбец, в нем части ячеек из таблицы присвоено имя (Например «Расход» =График!$Y$9:$Y$1895).
Как вытащить из этого имени номер/имя столбца?
[moder]Прочитайте Правила форума
Приложите пример в Excel

Добрый день уважаемые форумчане!

Сообщение Добрый день уважаемые форумчане!

Источник

Номер столбца Excel из имени столбца

Как получить номер столбца из имени столбца в Excel с помощью макроса Excel?

Думаю, ты хочешь этого?

Имя столбца для столбца

Изменить. Также включите обратное, что вы хотите

Номер столбца для имени столбца

FOLLOW UP

Как если бы у меня было поле зарплаты на самом верху, скажем, в ячейке C (1,1) теперь, если я изменю файл и сдвиг столбца зарплаты в какое-то другое место скажу F (1,1), тогда мне придется изменить код, поэтому я хочу, чтобы код проверялся на зарплату и находил номер столбца, а затем выполнял остальные операции в соответствии с этим номером столбца.

В таком случае я бы рекомендовал использовать .FIND См. этот пример ниже

Пока вы искали решение VBA, это был мой лучший результат в google при поиске решения формулы, поэтому я добавлю это для всех, кто пришел сюда для этого, как я:

Формула Excel возвращает номер из столбца (из комментария @A. Klomp выше), где ячейка A1 содержит ваши столбцовые письма:

Поскольку косвенная функция является изменчивой, она пересчитывается всякий раз, когда изменяется какая-либо ячейка, поэтому, если у вас их много, это может замедлить работу вашей книги. Рассмотрим другое решение, такое как функция “code”, которая дает вам номер для символа ASCII, начиная с “A” в 65. Обратите внимание, что для этого вам нужно будет проверить, сколько цифр указано в имени столбца, и изменить результат в зависимости от “A”, “BB” или “CCC”.

Формула Excel, чтобы вернуть букву столбца из числа (из этого предыдущего вопроса Как преобразовать номер столбца (например, 127) в столбец Excel (например, AA), на который отвечает @Ian), где A1 содержит номер столбца:

Обратите внимание, что оба этих метода работают независимо от количества букв в имени столбца.

Надеюсь, это поможет кому-то еще.

Запишите и запустите следующий код в окне Immediate Window

Например, ?cells(,»BYL»).column вернется в 2014 году. Код нечувствителен к регистру, поэтому вы можете написать ?cells(,»BYL»).column , а вывод все равно будет таким же.

Вы можете пропустить все это и просто поместить свои данные в таблицу. Затем обратитесь к таблице и заголовку, и она будет полностью динамичной. Я знаю, что это с 3 лет назад, но кто-то все еще может найти это полезным.

Вы также можете использовать:

Вы даже можете использовать эту систему ссылок в формулах рабочих таблиц. Это очень динамично.

Надеюсь, это поможет!

На основании ответа Анастасии. Я думаю, что это самая короткая команда VBA:

Предостережение: единственное условие для работы этого кода – активная рабочая таблица, поскольку Columns эквивалентны ActiveSheet.Columns . 😉

Здесь чисто решение VBA, потому что Excel может содержать соединенные ячейки:

По сути, эта функция работает так же, как любая функция Hex to Dec, за исключением того, что она принимает только алфавитные символы (A = 1, B = 2,…).
Самый правый символ считается одинарным, каждый символ слева в 26 раз больше символа справа от него (что составляет AA = 27 [1 + 26], AAA = 703 [1 + 26 + 676]).
Использование UCase() делает эту функцию без учета регистра.

Источник

VBA Колонны — Как использовать свойство столбцов в Excel VBA? (Примеры)

Свойство столбцов Excel VBA

Нам всем хорошо известен тот факт, что рабочая таблица Excel организована в столбцы и строки, и каждое пересечение строк и столбцов рассматривается как ячейка. Всякий раз, когда мы хотим сослаться на ячейку в Excel через VBA, мы можем использовать свойства Range или Cells. Что если мы хотим сослаться на столбцы из таблицы Excel? Есть ли какая-либо функция, которую мы можем использовать для ссылки на то же самое? Ответ большой ДА!

Да, в VBA есть свойство под названием «Столбцы», которое помогает вам ссылаться, а также возвращать столбец из данной таблицы Excel. Мы можем ссылаться на любой столбец на листе, используя это свойство, и можем манипулировать им.

Синтаксис столбцов VBA:

Синтаксис для свойства столбцов VBA показан ниже:

RowIndex — представляет номер строки, из которой должны быть получены ячейки.
ColumnIndex — представляет номер столбца, который находится на пересечении с соответствующими строками и ячейками.

Очевидно, какой столбец необходимо включить / использовать для дальнейшего разбирательства, используется этими двумя аргументами. Оба являются необязательными и, если они не предоставлены по умолчанию, будут рассматриваться как первая строка и первый столбец.

Как использовать свойство столбцов в Excel VBA?

Ниже приведены различные примеры использования свойства столбцов в Excel с использованием кода VBA.

Вы можете скачать этот шаблон Excel столбцов VBA здесь — Шаблон Excel столбцов VBA

Пример # 1 — Выбор столбца с использованием свойства столбцов VBA

Мы увидим, как можно выбрать столбец на листе, используя свойство VBA Columns. Для этого выполните следующие шаги:

Шаг 1: Вставьте новый модуль в Visual Basic Editor (VBE), где вы можете написать блок кодов. Нажмите на вкладку « Вставка » и выберите « Модуль» на панели VBA.

Шаг 2: Определите новую подпроцедуру, которая может содержать макрос, который вы собираетесь написать.

Код:

Шаг 3: Используйте свойство Columns.Select из VBA, чтобы выбрать первый столбец на рабочем листе. Это на самом деле по-разному, вы можете использовать Columns (1). Выберите изначально. Смотрите скриншот ниже:

Код:

Свойство Columns в этом небольшом фрагменте кода указывает номер столбца, а свойство Select позволяет VBA выбирать столбец. Поэтому в этом коде столбец 1 выбран на основе заданных входных данных.

Шаг 4: Нажмите F5 или нажмите кнопку «Выполнить», чтобы запустить этот код и увидеть результат. Вы можете видеть, что столбец 1 будет выбран в вашем листе Excel.

Это один из способов использования свойства столбцов для выбора столбца на листе. Мы также можем использовать имена столбцов вместо номеров столбцов в коде. Ниже код также дает тот же результат.

Код:

Пример № 2 — столбцы VBA как функция рабочего листа

Если мы используем свойство Columns без какого-либо спецификатора, оно будет работать только на всех активных рабочих листах, присутствующих в рабочей книге. Однако, чтобы сделать код более безопасным, мы можем использовать спецификатор рабочего листа со столбцами и сделать наш код более безопасным. Следуйте инструкциям ниже:

Шаг 1: Определите новую подпроцедуру, которая может содержать макрос под модулем.

Код:

Теперь мы будем использовать свойство Worksheets.Columns для выбора столбца из указанного листа.

Шаг 2: Начните вводить квалификатор Worksheets под данным макросом. Этому классификатору нужно имя листа, укажите имя листа как « Пример 2 » (не забудьте добавить скобки). Это позволит системе получить доступ к рабочему листу с именем Пример 2 из текущей рабочей книги.

Код:

Шаг 3: Теперь используйте свойство Columns, которое позволит вам выполнять различные операции над столбцами на выбранном листе. Я выберу 4- й столбец. Я могу выбрать его, написав индекс как 4 или указав алфавит столбца «D».

Код:

На данный момент мы выбрали рабочий лист с именем Пример 2 и получили доступ к столбцу D из него. Теперь нам нужно выполнить некоторые операции со столбцом, к которому осуществляется доступ.

Шаг 4. Используйте свойство Выбрать после столбцов, чтобы выбрать столбец, указанный в текущем рабочем листе.

Код:

Шаг 5: Запустите код, нажав клавишу F5 или нажав кнопку воспроизведения.

Пример # 3 — свойство столбцов VBA для выбора диапазона ячеек

Предположим, мы хотим выбрать диапазон ячеек в разных столбцах. Мы можем комбинировать свойство Range и Columns для этого. Следуйте инструкциям ниже:

Предположим, что у нас есть данные, распределенные между B1 и D4 на листе, как показано ниже:

Шаг 1: Определите новую подпроцедуру для хранения макроса.

Код:

Шаг 2: Используйте квалификатор « Рабочие листы», чтобы получить доступ к рабочему листу с именем « Пример 3 », где у нас есть данные, показанные на снимке экрана выше.

Код:

Шаг 3: Используйте свойство Range, чтобы установить диапазон для этого кода от B1 до D4. Используйте следующий диапазон кодов («B1: D4») для того же.

Код:

Шаг 4: Используйте свойство Columns для доступа ко второму столбцу из выбора. Используйте код как Столбцы (2) для доступа ко второму столбцу из доступного диапазона.

Код:

Шаг 5: Теперь самая важная часть. Мы получили доступ к рабочему листу, диапазону и столбцу. Однако, чтобы выбрать доступный контент, нам нужно использовать свойство Select в VBA. Смотрите скриншот ниже для макета кода.

Код:

Шаг 6: Запустите этот код, нажав F5 или кнопку Run, и посмотрите результат.

Вы можете видеть, что код выбрал Столбец C на листе Excel, хотя вы установили значение столбца как 2 (что означает второй столбец). Причина этого в том, что мы выбрали диапазон B1: D4 в этом коде. Который состоит из трех столбцов B, C, D. Во время выполнения столбец B считается первым столбцом, C — вторым, а D — третьим столбцом вместо их фактических положений. Функция диапазона уменьшила область действия этой функции только для B1: D4.

То, что нужно запомнить

Мы не видим список свойств IntelliSense, когда работаем над столбцами VBA.
Это свойство относится к категории свойства листа в VBA.

Свойство Range.Columns

Range.Columns — свойство, которое возвращает объект Range, представляющий коллекцию столбцов в указанном диапазоне.

Чтобы возвратить один столбец заданного диапазона, необходимо указать его порядковый номер (индекс) в скобках:

Set myRange = Range(«B4:D6»).Columns(1) ‘Возвращается диапазон: $B$4:$B$6

Set myRange = Range(«B4:D6»).Columns(2) ‘Возвращается диапазон: $C$4:$C$6

Set myRange = Range(«B4:D6»).Columns(3) ‘Возвращается диапазон: $D$4:$D$6

Самое удивительное заключается в том, что выход индекса столбца за пределы указанного диапазона не приводит к ошибке, а возвращается диапазон, расположенный за пределами исходного диапазона (отсчет начинается с первого столбца заданного диапазона):

MsgBox Range(«B4:D6»).Columns(7).Address ‘Результат: $H$4:$H$6

Если указанный объект Range является несмежным, состоящим из нескольких смежных диапазонов (областей), свойство Columns возвращает коллекцию столбцов первой области заданного диапазона. Для обращения к столбцам других областей указанного диапазона используется свойство Areas объекта Range:

Range(«E1:F8,D4:G13,B2:F10»).Select

MsgBox Selection.Areas(1).Columns(2).Address ‘Результат: $F$1:$F$8

MsgBox Selection.Areas(2).Columns(2).Address ‘Результат: $E$4:$E$13

MsgBox Selection.Areas(3).Columns(2).Address ‘Результат: $C$2:$C$10

Определение количества столбцов в диапазоне:

Dim c As Long

c = Range(«D5:J11»).Columns.Count

MsgBox c ‘Результат: 7

Буква вместо номера

Если в качестве индекса столбца используется буква, она соответствует порядковому номеру этой буквы на рабочем листе:

"A" = 1;
"B" = 2;
"C" = 3;

и так далее.

Пример использования буквенного индекса вместо номера столбца в качестве аргумента свойства Columns объекта Range:

Range(«G2:K10»).Select

MsgBox Selection.Columns(2).Address ‘Результат: $H$2:$H$10

MsgBox Selection.Columns(«B»).Address ‘Результат: $H$2:$H$10

Обратите внимание, что свойство Range("G2:K10").Columns("B") возвращает диапазон $H$2:$H$10, а не $B$2:$B$10.

Источник