Vba excel как определить номер строки

tod2020 Пользователь Сообщений: 261 Регистрация: 10.05.2017	#1 17.07.2017 13:03:28 Как правильно выглядит код для такой конструкции? Код Worksheets(1).Range("Table1").[ХХХ].Find("свекла").Row то есть Row определяется не для Worksheets(1) а для Range(«Table1») Прикрепленные файлы 2017.07.17-Получение Row из Range через FIND.xlsm (20.48 КБ) Изменено: tod2020 — 17.07.2017 13:14:02

Garni Пользователь Сообщений: 333 Регистрация: 06.03.2013	#2 17.07.2017 13:14:13 Код MsgBox Worksheets(1).Range("D5:G9").Find("свекла").Row

tod2020 Пользователь Сообщений: 261 Регистрация: 10.05.2017	Garni, Не то. Нужно по имени диапазона

Garni Пользователь Сообщений: 333 Регистрация: 06.03.2013	#4 17.07.2017 13:46:03 Тогда попробуйте так Код MsgBox Range("table1").Find(What:="свекла").Row Если надо найти порядковый номер строки таблицы из Столбца3, тогда Код MsgBox Range("table1").Find(What:="свекла").Offset(, -1) Изменено: Garni — 17.07.2017 13:57:50

Илья Демид Пользователь Сообщений: 320 Регистрация: 25.11.2013	#5 17.07.2017 13:46:16 У меня работает, если вы имеете ввиду чтобы указывалась строка из таблицы то отнимите количество строк с шапкой (в примере это 4) т.е. вместо кода Код MsgBox (Worksheets(1).Range("table1").Find("Свекла").Row) Будет код Код MsgBox (Worksheets(1).Range("table1").Find("Свекла").Row-4)

ZVI Пользователь Сообщений: 4328 Регистрация: 23.12.2012

#6 17.07.2017 13:52:40 Вариант: Код Sub Test()      Const FieldName = "Имя"   ' Имя поля таблицы для поиска   Const What = "свекла"     ' Что искать      Dim x As Range      With Лист1.ListObjects(1).ListColumns(FieldName).DataBodyRange     Set x = .Find(What, LookIn:=xlValues, LookAt:=xlWhole)     If Not x Is Nothing Then MsgBox x.Row - .Row + 1   End With End Sub Изменено: ZVI — 17.07.2017 13:55:33

tod2020 Пользователь Сообщений: 261 Регистрация: 10.05.2017	Всё что выше это всё многострочное сложное. Нужно чтобы было просто в одну лакончиную строчку, без вычетаний лишних Для этого нужно понимать классификацию, структуру объектов в строчке-конструкцию которую я изначально предложил Изменено: tod2020 — 17.07.2017 13:57:45

tod2020 Пользователь Сообщений: 261 Регистрация: 10.05.2017	#8 17.07.2017 14:01:28 Цитата Garni написал: MsgBox Range(«table1″).Find(What:=»свекла»).Offset(, -1) это тоже не пойдет поскольку собьется нумерация со временем, только Row нужно заполучить

Garni Пользователь Сообщений: 333 Регистрация: 06.03.2013	У Вас таблица из 4 строчек и вопрос о номере строки, в которой находится свекла. Вам предложили как минимум 4 варианта. Какую еще классификацию нам надо понять? Куда пойти записаться чтоб изучить структуру объекта из 4 строчек?

tod2020 Пользователь Сообщений: 261 Регистрация: 10.05.2017	#10 17.07.2017 14:03:58 Цитата Garni написал: У Вас таблица из 4 строчек это не рабочий файл. в рабочих файлах десятки-сотни таблиц с сотнями-тысячами строк Изменено: tod2020 — 17.07.2017 14:04:35

	Вы просто объяснить можете что Вы хотите на выходе получить? или результат сказать какой должен получится

Garni Пользователь Сообщений: 333 Регистрация: 06.03.2013	Если у вас столько строчек, и не одна свекла обыкновенная там храниться, а еще свекла сахарная, свекла пареная, свекла испорченная и т.д. Тогда Find завершит поиск на первой найденной. Так какую строчку найти надо?

tod2020 Пользователь Сообщений: 261 Регистрация: 10.05.2017	Как правильно выглядит код для такой конструкции? Worksheets(1).Range(«Table1»).[ХХХХХХХХХХХХ].Find(«свекла»).Row то есть Row определяется не для Worksheets(1) а для Range(«Table1») PS Был бы listObject вместо XXX стояло бы DataBodyRange Изменено: tod2020 — 17.07.2017 14:15:36

ZVI Пользователь Сообщений: 4328 Регистрация: 23.12.2012

#14 17.07.2017 14:18:38 Цитата tod2020 написал: Нужно чтобы было просто в одну лакончиную строчку, без вычетаний лишних С точки зрения правил программирования Ваше «нужно» некорректное. Код пишется один раз так, чтобы он был понятен, работал в штатных и аварийных ситуациях. И совершено не важно сколько в нем строчек. Это же не формула ячеек. Хотя рекомендуется не более одной экранной странички для функции и процедуры для удобства визуального охвата и неперегрузки интеллекта и памяти программиста. Если очень уж хочется в одну строчку, но с вычитанием, то можно, например. так: Код MsgBox Лист1.ListObjects("table1").ListColumns("Имя").DataBodyRange.Find("свекла").Row - Лист1.[table1].Row + 1 Изменено: ZVI — 17.07.2017 14:43:32

Garni Пользователь Сообщений: 333 Регистрация: 06.03.2013	Вам ответ дал Илья Демид, в сообщении #6. Значение Row будет для являться для листа, если Вы хотите вычислить номер строки для таблицы по средствам VBA, то в лаконичную одну строку это не уберется

tod2020 Пользователь Сообщений: 261 Регистрация: 10.05.2017

#16 17.07.2017 14:22:13 Есть и такой вариант Код Range("Table1").Find("свекла").Row - Range("Table1").Row – 1 Но по задаче поставленной в теме говориться о такой конструкции: Worksheets(1).Range(«Table1»).[ХХХХХХХХХХХХ].Find(«свекла»).Row Как правильно выглядит код для такой конструкции? то есть Row определяется не для Worksheets(1) а для Range(«Table1») PS Был бы listObject вместо XXX стояло бы DataBodyRange Подмена Range на ListObject не нужна Изменено: tod2020 — 17.07.2017 14:29:59

	Слово задача убило наповал… Уважаемый tod2020 для задач есть платный раздел

tod2020 Пользователь Сообщений: 261 Регистрация: 10.05.2017

#18 17.07.2017 14:33:49 Цитата Илья Демид написал: Слово задача убило наповал Я не требую. У Вас такая реакция(набор мыслеформ и картинка и интонация) на слово «задача» наверно с работы, но не всё так однобоко Каждый кто отвечает на этих формах в этих темах решает задачи поставленные в теме. Я не требую большего чем тут принято. Как вещи называются так и называю И каждый кто отвечает для когото другого  — какуюто свою задачу выполняет для себя таким образом. и я не спрашиваю зачем ктото мне отвечает. И наверно потому заставляю себя говорить спасибо потому что человек отвечающий решает свои задачи для себя, он уже получает себе чтото там Как детскому саду всё разжевываю Изменено: tod2020 — 17.07.2017 14:44:29

ZVI Пользователь Сообщений: 4328 Регистрация: 23.12.2012	В примере была таблица, поэтому в ответе и ListObject. А что у Вас подразумевается под [XXX] ? Так как пояснений никаких не было, я посчитал, что Вы хотели указать конкретное поле в таблице для поиска, значение же может оказаться и в других полях. Уточните про XXX. Изменено: ZVI — 17.07.2017 14:41:46

Илья Демид Пользователь Сообщений: 320 Регистрация: 25.11.2013	#20 17.07.2017 14:40:39 Вы ошибаетесь, но да ладно. Если я правильно понял то необходим вариант который бы сам вычислял в какой строке находится шапка и отнимал ее сам, Как насчет такого, но не 1 строкой: Код Dim a As Integer a = Worksheets(1).Range("table1").Find("свекла").End(xlUp).Row b = Worksheets(1).Range("table1").Find("свекла").Row MsgBox b - a Изменено: Илья Демид — 17.07.2017 14:41:38

AndreTM Пользователь Сообщений: 454 Регистрация: 02.05.2013	тод2020, я уже упоминал вроде, что вы — не читатель? В том сообщении вам был дан тот ответ, что вы требуете здесь (в одну строчку тот код переписывается просто на раз-два). Неспособность заменить имя переменной её значением — на вашей совести…

tod2020 Пользователь Сообщений: 261 Регистрация: 10.05.2017	#22 17.07.2017 14:45:54 Цитата AndreTM написал: тод2020 , я уже упоминал вроде, что вы — не читатель? Что это значит?

tod2020 Пользователь Сообщений: 261 Регистрация: 10.05.2017

Чтож за такое то происходит? перевожу что твориться -мне надо красное яблоко -ну на целый ящик груш зеленых! тоже круглые же -да не надо мне!, мне надо и ОДНО и КРАСНОЕ и ЯБЛОКО! -ну на возьми ну хочешь три желтых груши? -да не надо мне ни желтую ни зеленую грушу ни целы ящик их, мне надо одно красное яблоко -да не бывает красных яблок я не видел и вот двое тоже не видели никогда в жизни твое красное яблоко дают груши лишь потомуто не знают что существует красное яблоко или потомучто просто напросто нету его в наличии Изменено: tod2020 — 17.07.2017 14:53:08

tod2020 Пользователь Сообщений: 261 Регистрация: 10.05.2017	#25 17.07.2017 14:54:55 Цитата vikttur написал: Дубль темы: Что Вы хотели этим сказать? Я же написал последней фразой что лучше создать новую тему Зачем лишние движения происходят то? Изменено: tod2020 — 17.07.2017 14:55:47

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	Пусть определят участники тем — дубль или нет. Я вижу, что разница в названии — «диапазон» и «умная таблица». Вы считаете, что диапазон умной таблицы — не диапазон?

tod2020 Пользователь Сообщений: 261 Регистрация: 10.05.2017	#27 17.07.2017 14:56:53 Цитата AndreTM написал: В  том сообщении  вам был дан тот ответ, что вы требуете здесь Меня ваще не слышат — не понимают что я уже 3 раза продублировал самого начала запроса темы Я понял люди знают как мне лучше. точно Надоело объясняться. Буду ждать когда появится человек который понимает и меня и VBA Изменено: tod2020 — 17.07.2017 15:00:24

AndreTM Пользователь Сообщений: 454 Регистрация: 02.05.2013	Короче, народ — нас явно троллят   Предлагаю закончить все разборы и уточнения, ибо то, что ТС — китаец из индии, было понятно ещё в старой теме примерно с третьего его поста

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#29 17.07.2017 15:02:46 Цитата Буду ждать когда появится человек который понимает и меня и VBA В VBA здесь разбираются многие. А вот Вас не понимают. Цитата tod2020 написал: Меня ваще не слышат Не стоит ли задуматься? Если Вас не слышат многие — проблема в Вас, В том, как Вы доносите информацию. Или неправы все, кроме одного?

tod2020 Пользователь Сообщений: 261 Регистрация: 10.05.2017	#30 17.07.2017 15:06:39 Цитата vikttur написал: Если Вас не слышат многие — проблема в Вас Я думаю очень разный уровень понимания. Например это может проявляться в контактах с регионами. Ваще тяжко бывает. В москве легко улавливают меня с полу слова Изменено: tod2020 — 17.07.2017 15:07:06

First Cell in Column Function

It is assumed that you’re looking for a VBA function to use in Excel to calculate the first non-empty row of a column (specified by a range).

Features

• The Volatile method marks a user-defined function as volatile. A
  volatile function must be recalculated whenever calculation occurs in
  any cells on the worksheet. A nonvolatile function is recalculated
  only when the input variables change (VBA Help).
• At least for the sake of correctness, you have to use IsEmpty
  instead of «» for the reason e.g. if the cell in the resulting row
  contains a formula that evaluates to «», it will be ignored.
• The Find Method Version uses the Find method to calculate the First Row, which is safer than
  the End Version e.g. if you input a value into the first cell of the
  column i.e. the result is 1 and you hide the first row, the result of
  the End Version will not be 1.
• The formula can be inserted in the same column as SelectRange
  Column. In some cases the End Version would not show the correct
  result or create a circular reference. Therefore ThisCell is used
  in the End version and 0 is returned if no value was found in SelectRange column.

Find Method Version

Function FirstRowFind(SelectRange As Range) As Long

    Application.Volatile

    Dim FirstCell As Range

    With Columns(SelectRange.Column)
        Set FirstCell = .Find("*", .Cells(.Cells.Count), -4123, 1, 2, 1)
    End With

    If Not FirstCell Is Nothing Then
        FirstRowFind = FirstCell.Row
    End If

End Function

Find Method

Instead of

Set FirstCell = .Find("*", .Cells(.Cells.Count), -4123, 1, 2, 1)

you can use

Set FirstCell = .Find("*", .Cells(.Cells.Count), _
        xlFormulas, xlWhole, xlByColumns, xlNext)

or

Set FirstCell = .Find(What:="*", After:=.Cells(.Cells.Count), _
        LookIn:=xlFormulas, LookAt:=xlWhole, _
        SearchOrder:=xlByColumns, SearchDirection:=xlNext)

The parameters for the arguments LookAt(unimportant in this case) and SearchDirection(Default is Next) can be omitted, but since I couldn’t find any difference in efficiency, I didn’t.

Usage in Excel

For Column AB:

=FirstRowFind(AB1)
=FirstRowFind(AB20)
=FirstRowFind(AB17:AH234)

End Version (Not recommended)

Function FirstRowEnd(SelectRange As Range) As Long

    Application.Volatile

    Dim FirstCell As Range

    If Application.ThisCell.Column = SelectRange.Column Then Exit Function

    If Not IsEmpty(SelectRange.Cells(1)) Then
        FirstRowEnd = 1
      Else
        Set FirstCell = Cells(1, SelectRange.Column).End(xlDown)
        FirstRowEnd = FirstCell.Row
        If FirstRowEnd = Rows.Count And IsEmpty(FirstCell) Then
            FirstRowEnd = 0
        End If
    End If

End Function

Usage in Excel

For Column AB:

=FirstRowEnd(AB1)
=FirstRowEnd(AB20)
=FirstRowEnd(AB17:AH234)

Определение адреса выделенного диапазона ячеек на листе Excel с помощью кода VBA. Определение номера первой и последней строки. Программное выделение диапазона.

Адрес выделенного диапазона

Для определения адреса выделенного диапазона ячеек в VBA Excel используется свойство Address объекта Selection.

Объект Selection — это совокупность всех выделенных ячеек на листе Excel. Это может быть одна ячейка, смежный или несмежный диапазон ячеек, представляющий коллекцию смежных диапазонов. Если выделение состоит из несмежного диапазона, адреса смежных диапазонов, из которых он состоит, будут перечислены через запятую.

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

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

Стоит отметить: несмотря на то, что в выделенном диапазоне может содержаться много ячеек, активной может быть только одна. Она представлена объектом ActiveCell. Для определения ее адреса в коде VBA Excel также используется свойство Address.

Sub Primer1() MsgBox «Адрес выделенного диапазона: « & Selection.Address & _ vbNewLine & «Адрес активной ячейки: « & ActiveCell.Address & _ vbNewLine & «Номер строки активной ячейки: « & ActiveCell.Row & _ vbNewLine & «Номер столбца активной ячейки: « & ActiveCell.Column End Sub

Скопируйте и запустите код на выполнение. В результате получите что-то вроде этого, зависящее от того, какие диапазоны вы выберите:

Определение адресов выделенного диапазона и активной ячейки

Выделение ячеек и диапазонов

Выделить несмежный диапазон ячеек можно следующим образом:

Sub Primer2() Range(«B4:C7,E5:F7,D8»).Select End Sub

Как видно из примера, в адресной строке объекта Range перечисляются адреса смежных диапазонов, составляющих общий несмежный диапазон, через запятую. Выделение осуществляется методом Select объекта Range.

Определение номеров первой и последней строки

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

Sub Primer3() Dim i1 As Long, i2 As Long i1 = Selection.Cells(1).Row i2 = Selection.Cells(Selection.Cells.Count).Row MsgBox «Первая строка: « & i1 & _ vbNewLine & «Последняя строка: « & i2 End Sub

Результат будет таким, зависит от выделенного диапазона:

Номера первой и последней строки выделенного смежного диапазона

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

Обратите внимание, что для несмежных диапазонов этот пример не работает.

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

---

Определение активных составляющих книги

Мне кажется, многие загонялись таким вопросом, как определить активную ячейку (на которой находится курсор), строку или столбец. Или же хотелось получить адрес в формате А1, В4 и т.д. Вот сегодня я и покажу, как это сделать, потому, что очень удобно, когда ты знаешь активные элементы книги.

Номер активной строки

Практически все активные элементы определяются при помощи такого слова — Active, кторое записывается перед определением активного элемента. Таким образом, номер активной строки можно вычислить следующим образом:

       Sub Stroka()

           s = ActiveCell.Row

           MsgBox «Активная строка под номером » & s, vbInformation, «Активная строка»

       End Sub

Номер активного столбца и стороки

Аналогично определению строки столбец определяется по такому же принципу, только в конце добавляется не строка, а столбец:

       Sub Stroka()

           s = ActiveCell.Row

           b = ActiveCell.Column

           MsgBox «Активная строка под номером » & s & » » & _

vbNewLine & «Активный столбец под номером » & b, vbInformation, «адрес»

       End Sub

Определяем номер последней заполненной строки и столбца

Sub Last_Stroka_and_Stolbec()

‘ищем последнюю заполненную строку и столбец и выводим сообщение о номере

    Stroka = ActiveSheet.Cells.Find(What:=»*», SearchDirection:=xlPrevious, _

          SearchOrder:=xlByRows).Row

    Stolbec = ActiveSheet.Cells.Find(What:=»*», SearchDirection:=xlPrevious,         _SearchOrder:=xlByRows).Column

MsgBox «Последняя строка под номером » & Stroka & » » & _

           vbNewLine & «Последний столбец под номером » _

           & Stolbec, vbInformation, «Адрес»

End Sub

Определяем активную ячейку

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

      Sub yacheika()

          sk = ActiveCell.Row

          st = ActiveCell.Column

          MsgBox «Активная ячейка имеет координаты Cells(» & sk & «,» & st & «)», _

                  vbInformation, «Активная ячейка»

      End Sub

Адрес активной ячейки

Многие думали, а как получить адрес активной ячейки? Очень просто, делается это так:

      Sub adres()

          A = ActiveCell.Address

          MsgBox «Абсолютный адрес активной ячейки — » & A, vbInformation, «Адрес»

      End Sub

Но такая запись может не устроить некоторых, потому что вней присутствуют $, т.е. абсолютное значение, а не относительное. Но и это можно поправить. Доллары уберутся, если записать код так:

      Sub adress()

          A = ActiveCell.Address(0, 0)

          MsgBox «Относительный адрес активной ячейки — » & A, vbInformation, «Адрес»

      End Sub

В скобках оператора Address указано какое именно значение должно быть относительным, а какое абсолютным. Если Address(0,0), то и строка и столбец записаны относительными (первый ноль отвечает за строку, второй ноль — это столбец). Если в строке поставить вместо ноля еденицу, то строка будет абсолютным значением, а столбец относительным. Причём значения следующих записей равнозначны:

Address(1, 0) = Address(True, False)

Адрес выделенного диапазона ячеек

Адрес выделенного диапазона можно получить следующим образом

      Sub diapazon()

‘используйте любую переменную для определения адреса

          A = Selection.Rows.Address(0, 0)    ‘Через строку

          b = Selection.Columns.Address(0, 0) ‘Через столбец

          c = Selection.Address(0, 0)

          MsgBox «Выделенный диапазон — » & A, vbInformation, «Адрес»

      End Sub

Координаты выделенного диапазона

Не знаю почему, но у многих возникает какая-то сложность определения координат выделенного диапазона, хотя существует очень много способов. Я приведу пример одного, но который будет понятен сейчас.

      Sub Kdiapazon()

          a = Selection.Row

          b = Selection.Column

          K1 = Cells(a, b).Address(0, 0)

          aa = a + Selection.Rows.Count — 1

          bb = b + Selection.Columns.Count — 1

          K2 = Cells(aa, bb).Address(0, 0)

          MsgBox «Первая координата выделенного диапазона — » & K1 & vbNewLine & _

          «Вторая координата выделенного диапазона — » & K2, vbInformation, «Координаты»

      End Sub

a — Определяет номер первой строки выделенного диапазона;
b — Определяет номер первого столбца выделенного диапазона;
K1 — Определяем первую координату выделенного диапазона;
aa — Определяем номер последней строки выделенного диапазона;
bb — Определяем номер пследнего столбца выделенного диапазона;
K2 — Определяем вторую координату выделенного диапазона;

Selection.Rows.Count — определяет количество строк в выделенном диапазоне;
Selection.Columns.Count — определяет количество столбцов в выделенном диапазоне;

У многих возник вопрос: А почему вычитаем единицу? Всё потому, что первая координата входит в выделенный диапазон и нам её надо не потерять.

Имя активной книги

Имя активной книги возможно вычислить такой записью:

      Sub WorkbookName()

          Name = ActiveWorkbook.Name

          MsgBox «Имя активной книги — » & Name, vbInformation, «Имя активной книги»

      End Sub

Имя активного листа

Имя активного листа можно определить так:

      Sub SheetsName()

          Name = ActiveSheet.Name

          MsgBox «Имя активного листа — » & Name, vbInformation, «Имя активного листа»

      End Sub