Подсчет строк на листе с несколькими таблицами

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Подсчет строк на листе с несколькими таблицами (Макросы/Sub)

Druzhishe

Дата: Вторник, 11.04.2017, 10:51 | Сообщение № 1

Группа: Заблокированные

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Нужен макрос считающий строки на листе на котором несколько таблиц.
Пример:

Остановись пока остановка не стала последней...

Сообщение отредактировал Druzhishe - Вторник, 11.04.2017, 11:06

Ответить

_Boroda_

Дата: Вторник, 11.04.2017, 10:59 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Прочитайте Правила форума. Исправляйте название темы (п.2 Правил) и кладите файл-пример (п.3)

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

Ответить

Druzhishe

Дата: Вторник, 11.04.2017, 11:08 | Сообщение № 3

Группа: Заблокированные

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Цитата _Boroda_, 11.04.2017 в 10:59, в сообщении № 2 ()

кладите файл-пример (п.3)

Это вопрос общего характера.
Цитата: Кроме тех случаев, когда вопрос носит общий характер и не касается конкретно Вашего файла.

Остановись пока остановка не стала последней...

Ответить

RAN

Дата: Вторник, 11.04.2017, 11:13 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Цитата Druzhishe, 11.04.2017 в 10:51, в сообщении № 1 ()

Нужен макрос считающий строки на листе

Цитата Druzhishe, 11.04.2017 в 11:08, в сообщении № 3 ()

когда вопрос носит общий характер и не касается конкретно Вашего файла

[vba]

Код

s = Activesheet.Rows.Count

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

_Boroda_

Дата: Вторник, 11.04.2017, 11:13 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата Druzhishe, 11.04.2017 в 11:08, в сообщении № 3 ()

Это вопрос общего характера

Вам виднее. Хотите поспорить - пожалуйста, спорьте, только исчерпывающих ответов без файла Вы не дождетесь. Здесь, кстати, тоже. Тем более, что
Правила форума:

Цитата

Также наказуемо ... игнорирование указаний администрации.

Ответить

Druzhishe

Дата: Вторник, 11.04.2017, 11:16 | Сообщение № 6

Группа: Заблокированные

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

При всем желании отправить файл не могу. Конфиденциальная информация.

Остановись пока остановка не стала последней...

Ответить

_Boroda_

Дата: Вторник, 11.04.2017, 11:20 | Сообщение № 7

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Цитата Druzhishe, 11.04.2017 в 11:16, в сообщении № 6 ()

Конфиденциальная информация

А в "Требования по составлению примера" в п.3 Правил форума что по этому поводу написано?

Ответить

Druzhishe

Дата: Вторник, 11.04.2017, 11:24 | Сообщение № 8

Группа: Заблокированные

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

И всеравно не могу. В офисе доступ к файлам закрыт (не загрузить/не выгрузить). Я думаю можно сделать исключение учитывая, что пример я привел и занести 8 строк в эксель не сложно.

Остановись пока остановка не стала последней...