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

Вход

Регистрация

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

 

= Мир MS Excel/Определить число строк в таблице (после "шапки")... - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Определить число строк в таблице (после "шапки")... (Определить число строк в таблице (после "шапки")...)
Определить число строк в таблице (после "шапки")...
Матрёна Дата: Четверг, 28.02.2013, 17:29 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 398
Репутация: 40 ±
Замечаний: 0% ±

"Заизюмило"...
К сообщению приложен файл: EXAMPLE.xls (27.0 Kb)
 
Ответить
Сообщение"Заизюмило"...
Автор - Матрёна
Дата добавления - 28.02.2013 в 17:29
Hugo Дата: Четверг, 28.02.2013, 17:45 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3691
Репутация: 790 ±
Замечаний: 0% ±

365
Не понял... это типа кто сложнее напишет простой код?
Почему не достаточно 2-х строк для 2-х вариантов (смотря по задаче)?

[vba]
Код
Sub tt()

MsgBox Cells(3, 1).End(xlDown).Row
MsgBox Range("A" & Rows.Count).End(xlUp).Row

End Sub
[/vba]
Ну и можно -2 ещё учесть, если нужно.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеНе понял... это типа кто сложнее напишет простой код?
Почему не достаточно 2-х строк для 2-х вариантов (смотря по задаче)?

[vba]
Код
Sub tt()

MsgBox Cells(3, 1).End(xlDown).Row
MsgBox Range("A" & Rows.Count).End(xlUp).Row

End Sub
[/vba]
Ну и можно -2 ещё учесть, если нужно.
Автор - Hugo
Дата добавления - 28.02.2013 в 17:45
Матрёна Дата: Четверг, 28.02.2013, 17:55 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 398
Репутация: 40 ±
Замечаний: 0% ±

Цитата (Hugo)
Не понял... это типа кто сложнее напишет простой код?


Тема не о коде, а о проблеме объединенных ячеек в "шапке" и их негативном воздействии на результат, но без которых клиенту - "ни жить, ни быть"!
 
Ответить
Сообщение
Цитата (Hugo)
Не понял... это типа кто сложнее напишет простой код?


Тема не о коде, а о проблеме объединенных ячеек в "шапке" и их негативном воздействии на результат, но без которых клиенту - "ни жить, ни быть"!
Автор - Матрёна
Дата добавления - 28.02.2013 в 17:55
Hugo Дата: Четверг, 28.02.2013, 18:22 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3691
Репутация: 790 ±
Замечаний: 0% ±

365
Вообще объединение ячеек - это всегда проблема при обработке данных. Но тут не очень большая - если нужно определить кодом, то вполне работает так:
[vba]
Код
MsgBox [a1].MergeArea.Rows.Count
[/vba]
И отнимаем от полученного значения последней строки.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеВообще объединение ячеек - это всегда проблема при обработке данных. Но тут не очень большая - если нужно определить кодом, то вполне работает так:
[vba]
Код
MsgBox [a1].MergeArea.Rows.Count
[/vba]
И отнимаем от полученного значения последней строки.
Автор - Hugo
Дата добавления - 28.02.2013 в 18:22
Матрёна Дата: Суббота, 02.03.2013, 00:52 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 398
Репутация: 40 ±
Замечаний: 0% ±

Цитата (Hugo)
Вообще объединение ячеек - это всегда проблема при обработке данных.

HUGO!
Спасибо за участие.
Думаю, что мой тупой кустарный метод подсчета строк в таблице под "шапкой", содержащей объединенные ячейки, самый надежный.
Вариант:
= Cells(1, y).End(xlDown).Row - n
"врет" также, как и вариант:
=Cells(x, y).End(xlDown).Row.
 
Ответить
Сообщение
Цитата (Hugo)
Вообще объединение ячеек - это всегда проблема при обработке данных.

HUGO!
Спасибо за участие.
Думаю, что мой тупой кустарный метод подсчета строк в таблице под "шапкой", содержащей объединенные ячейки, самый надежный.
Вариант:
= Cells(1, y).End(xlDown).Row - n
"врет" также, как и вариант:
=Cells(x, y).End(xlDown).Row.
Автор - Матрёна
Дата добавления - 02.03.2013 в 00:52
Hugo Дата: Суббота, 02.03.2013, 01:39 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3691
Репутация: 790 ±
Замечаний: 0% ±

365
Ну всё зависит от задачи, и y smile
Я бы определял последнюю строку
[vba]
Код
Range("A" & Rows.Count).End(xlUp).Row
[/vba]
и затем отнимал строки шапки
[vba]
Код
[a1].MergeArea.Rows.Count
[/vba]
Хотя обычно шапка постоянна, её на практике никто не меняет.

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеНу всё зависит от задачи, и y smile
Я бы определял последнюю строку
[vba]
Код
Range("A" & Rows.Count).End(xlUp).Row
[/vba]
и затем отнимал строки шапки
[vba]
Код
[a1].MergeArea.Rows.Count
[/vba]
Хотя обычно шапка постоянна, её на практике никто не меняет.
Автор - Hugo
Дата добавления - 02.03.2013 в 01:39
Матрёна Дата: Суббота, 02.03.2013, 01:50 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 398
Репутация: 40 ±
Замечаний: 0% ±

В ситуации с "шапкой" с объединенными ячейками все "однострочечные" команды счета строк в таблице врут безнадежно.
 
Ответить
СообщениеВ ситуации с "шапкой" с объединенными ячейками все "однострочечные" команды счета строк в таблице врут безнадежно.
Автор - Матрёна
Дата добавления - 02.03.2013 в 01:50
Hugo Дата: Суббота, 02.03.2013, 02:37 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3691
Репутация: 790 ±
Замечаний: 0% ±

365
Ещё раз - считайте снизу!

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеЕщё раз - считайте снизу!
Автор - Hugo
Дата добавления - 02.03.2013 в 02:37
Матрёна Дата: Суббота, 02.03.2013, 11:14 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 398
Репутация: 40 ±
Замечаний: 0% ±

Цитата (Hugo)
Ну всё зависит от задачи, и y

Тонкий намек на... biggrin
Цитата (Hugo)
Хотя обычно шапка постоянна, её на практике никто не меняет.

Все зависит от сферы деятельности и от Генератора Отчетов в ПО. smile
Я использую обычно простейшие конструкции, чтобы клиент "не загружался" программными конструкциями VBA при чтении алгоритма и имел возможность в случае необходимости внести изменения "без затей".

За конструкцию
=Range("A" & Rows.Count).End(xlUp).Row - [a1].MergeArea.Rows.Count
спасибо.
 
Ответить
Сообщение
Цитата (Hugo)
Ну всё зависит от задачи, и y

Тонкий намек на... biggrin
Цитата (Hugo)
Хотя обычно шапка постоянна, её на практике никто не меняет.

Все зависит от сферы деятельности и от Генератора Отчетов в ПО. smile
Я использую обычно простейшие конструкции, чтобы клиент "не загружался" программными конструкциями VBA при чтении алгоритма и имел возможность в случае необходимости внести изменения "без затей".

За конструкцию
=Range("A" & Rows.Count).End(xlUp).Row - [a1].MergeArea.Rows.Count
спасибо.
Автор - Матрёна
Дата добавления - 02.03.2013 в 11:14
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Определить число строк в таблице (после "шапки")... (Определить число строк в таблице (после "шапки")...)
  • Страница 1 из 1
  • 1
Поиск:

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