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

Короче, народ — нас явно троллят  :)

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

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
Источник

Свойства Row и Rows объекта Range в VBA Excel. Возвращение номера первой строки и обращение к строкам смежных и несмежных диапазонов.

Range.Row — свойство, которое возвращает номер первой строки в указанном диапазоне.

Свойство Row объекта Range предназначено только для чтения, тип данных — Long.

Если диапазон состоит из нескольких областей (несмежный диапазон), свойство Range.Row возвращает номер первой строки в первой области указанного диапазона:

Range(«B3:F10»).Select

MsgBox Selection.Row ‘Результат: 3

Range(«E8:F9,D4:G13,B2:F10»).Select

MsgBox Selection.Row ‘Результат: 8

Для возвращения номеров первых строк отдельных областей несмежного диапазона используется свойство Areas объекта Range:

Range(«E8:F9,D4:G13,B2:F10»).Select

MsgBox Selection.Areas(1).Row ‘Результат: 8

MsgBox Selection.Areas(2).Row ‘Результат: 4

MsgBox Selection.Areas(3).Row ‘Результат: 2

Свойство Range.Rows

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

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

Dim myRange As Range

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

Set myRange = Range(«B4:D6»).Rows(2)  ‘Возвращается диапазон: $B$5:$D$5

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

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

MsgBox Range(«B4:D6»).Rows(12).Address  ‘Результат: $B$15:$D$15

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

Range(«E8:F9,D4:G13,B2:F10»).Select

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

MsgBox Selection.Areas(2).Rows(2).Address ‘Результат: $D$5:$G$5

MsgBox Selection.Areas(3).Rows(2).Address ‘Результат: $B$3:$F$3

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

Dim r As Long

r = Range(«D4:K11»).Rows.Count

MsgBox r  ‘Результат: 8
Источник

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)

Источник

I have the following problem and it’s driving me NUTS! I work on a large database program in Excel, and I’m trying to retrieve the row and column numbers of specific named ranges. The following code used to work (temp_entryvalue is the name of the range):

temp_datafile_row = Workbooks(datafile_filepath).Worksheets(temp_datafile_worksheet).Range(temp_entryvalue).Row
temp_datafile_col = Workbooks(datafile_filepath).Worksheets(temp_datafile_worksheet).Range(temp_entryvalue).Column

I get the ole’ Error 1004. Troubleshooting a bit, the problem here seems to be that the range associated with temp_entryvalue is hidden in the excel sheet, however the name is defined and there is a row and column number assigned to.

This however, all used to work. Until I changed one thing: instead of writing directly to the database excel worksheet, I first put everything in an array, so that only at the very end I open the database worksheet and copy all the data. Before I did this, everything used to work fine.

So how do I fix this? How do I retrieve the row and column number of a Named Range that is hidden, but DOES have a row and column number associated to it?

Thanks.

Источник

boomrest

10 / 10 / 3

Регистрация: 01.09.2011

Сообщений: 92

1

Как из адреса ячейки получить просто номер строки?

25.04.2017, 12:25. Показов 9265. Ответов 3

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Visual Basic 
1
2
3
4
5
6
7
8
9
10

Sub key()
Dim rows As String
Dim arr() As String
 
rows = Range(Selection.Address).Address(0, 0)
arr = Split(rows, ",")
 
MsgBox arr(0)
 
End Sub

В результате выводит адрес ячейки, например J43, а мне нужно просто номер строки 43, чтобы потом использовать в цикле.

Спасибо!



0

132 / 108 / 22

Регистрация: 23.06.2015

Сообщений: 339

25.04.2017, 16:49

2

boomrest, нужен файл пример,что дано и что нужно получить,а не вариант кода,попробуйте протестируйте макрос test и приспособьте под Ваш вариант кода.

Код

Sub test()
   MsgBox Split(Range("B10").Address, "$")(2)
End Sub



0

pashulka

4131 / 2235 / 940

Регистрация: 01.12.2010

Сообщений: 4,624

25.04.2017, 17:36

3

Для тех, кто не страдает извращениями

Visual Basic 
1

MsgBox Selection.Row



0

132 / 108 / 22

Регистрация: 23.06.2015

Сообщений: 339

25.04.2017, 23:02

4

boomrest, протестируйте также макрос test1(для случая диапазона)

Код

Sub test1()
  Dim t1$: t1 = Range("B10:D2017").Address(0, 0)
 With CreateObject("VBScript.RegExp"): .Pattern = "d+": .Global = True
    MsgBox .Execute(t1)(.Execute(t1).Count - 1)
 End With
End Sub



0
Источник

Like this post? Please share to your friends:
  • Vba excel номер страницы
  • Vba excel номер столбца активной ячейки
  • Vba excel номер последней ячейки
  • Vba excel номер последнего столбца
  • Vba excel номер недели по дате