Подскажите как написать функцию поиска номера столбца по названию заголовка? Мои попытки... не уверен что правильно))
Код
Function НомерСтолбца(Столбец)
НомерСтрокиЗаголовка = Sheets("БазаАктов").ListObjects("Таблица1").HeaderRowRange.row
КоличествоСтолбцов = Sheets("БазаАктов").ListObjects("Таблица1").Columns.Count
For i = 1 To КоличествоСтолбцов
If Cells(НомерСтрокиЗаголовка, i).Value = Столбец Then a = Cells(НомерСтрокиЗаголовка, i).Column
Next
End Function
Мне нужна эта функция чтобы потом в коде обращаться к номеру столбца по имени, типа так..
Msi2102, смысл такой, у меня есть код в котором я ссылаюсь на столбцы по номеру. Но после тог как добавляя в таблице где-нибудь столбец мне приходится править код... Вот и хочу функцию, чтобы в коде с ее помощью находить номер столбца по названию...
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Вы предлагаете нам рисовать таблицы, это кому больше надо?
Код
' количество столбцов
Количество_столбцов = Sheets("Лист1").ListObjects("Таблица1").HeaderRowRange.Count
' или так
Количество_столбцов1 = Sheets("Лист1").ListObjects("Таблица1").DataBodyRange.Columns.Count
' или так
Количество_столбцов2 = Sheets("Лист1").ListObjects("Таблица1").Range.Columns.Count
' так можете выделить нужный столбец по имени
Sheets("Лист1").ListObjects("Таблица1").ListColumns("ИМЯ").Range.Select
' так можете обратиться к ячейке в столбце с нужным именем
Ячейка = Sheets("Лист1").ListObjects("Таблица1").ListColumns("ИМЯ").Range(3) '.Count '.Select