Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Подсчет строк в таблице - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчет строк в таблице (Макросы/Sub)
Подсчет строк в таблице
Espada Дата: Пятница, 25.03.2022, 13:26 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

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

Автор - Espada
Дата добавления - 25.03.2022 в 13:26
RAN Дата: Пятница, 25.03.2022, 13:28 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
А зачем цикл? № последней строки - 13.


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеА зачем цикл? № последней строки - 13.

Автор - RAN
Дата добавления - 25.03.2022 в 13:28
Espada Дата: Пятница, 25.03.2022, 13:30 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

А зачем цикл? № последней строки - 13.

Почему 13? 13-я первая
 
Ответить
Сообщение
А зачем цикл? № последней строки - 13.

Почему 13? 13-я первая

Автор - Espada
Дата добавления - 25.03.2022 в 13:30
_Boroda_ Дата: Пятница, 25.03.2022, 13:45 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
nr_ = Cells(13, 1).End(4).Row - 13 + 1
[/vba]
для 1 столбца
первая пустая вниз. без проверки на заполненность таблицы
То же самое
[vba]
Код
nr_ = Cells(13, 1).End(xlDown).Row - 13 + 1
[/vba]
Заметьте, это первая пустая, а не последняя заполненная. В общем случае это могут быть разные ячейки


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995


Сообщение отредактировал _Boroda_ - Пятница, 25.03.2022, 13:49
 
Ответить
СообщениеТак нужно?
[vba]
Код
nr_ = Cells(13, 1).End(4).Row - 13 + 1
[/vba]
для 1 столбца
первая пустая вниз. без проверки на заполненность таблицы
То же самое
[vba]
Код
nr_ = Cells(13, 1).End(xlDown).Row - 13 + 1
[/vba]
Заметьте, это первая пустая, а не последняя заполненная. В общем случае это могут быть разные ячейки

Автор - _Boroda_
Дата добавления - 25.03.2022 в 13:45
and_evg Дата: Пятница, 25.03.2022, 13:47 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 452
Репутация: 78 ±
Замечаний: 0% ±

Excel 2007
 
Ответить
СообщениеА зачем цикл?

Последняя ячейка на листе

Автор - and_evg
Дата добавления - 25.03.2022 в 13:47
RAN Дата: Пятница, 25.03.2022, 13:47 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
13-я первая

поэтому и -13


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
13-я первая

поэтому и -13

Автор - RAN
Дата добавления - 25.03.2022 в 13:47
Espada Дата: Пятница, 25.03.2022, 15:12 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

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

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

Спасибо, то что надо)

Автор - Espada
Дата добавления - 25.03.2022 в 15:12
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчет строк в таблице (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!