powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как подсчитать кол-во листов в книге Excel?
11 сообщений из 11, страница 1 из 1
Как подсчитать кол-во листов в книге Excel?
    #32727168
Диметр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Т.е. не кол-во закладочек внизу (листов так наз.) а общее кол-во листов в документе?
...
Рейтинг: 0 / 0
Как подсчитать кол-во листов в книге Excel?
    #32727253
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Excel.Workbook.Worksheets
...
Рейтинг: 0 / 0
Как подсчитать кол-во листов в книге Excel?
    #32727260
Диметр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Т.е. количество страниц на каждом листе (не совсем корректно выразился)...
...
Рейтинг: 0 / 0
Как подсчитать кол-во листов в книге Excel?
    #32727376
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
MsgBox ((ActiveSheet.VPageBreaks.Count + 1) * (ActiveSheet.HPageBreaks.Count + 1))
...
Рейтинг: 0 / 0
Как подсчитать кол-во листов в книге Excel?
    #32729225
Диметр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Отлично! Считает!!! Но пустые тоже :-(
Как определить, пустой лист или нет?
...
Рейтинг: 0 / 0
Как подсчитать кол-во листов в книге Excel?
    #32729246
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
он считает ровно столько страниц, сколько уйдёт на печать.
а для проверки пусая страница или нет - нужно каждый диапазон ячеек, соответствующий странице самостоятельно проверять на наличие значений.
...
Рейтинг: 0 / 0
Как подсчитать кол-во листов в книге Excel?
    #32729289
Диметр
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Я имел ввиду след.
Предположим есть книга с тремя листами
На первом листе размещено 6 страниц, остальные два листа пустые
Я в цикле перебираю все листы, суммирую кол-во страниц на каждом
Получается 8, т.е. первый он считает правильно, а вот два пустых...

Есть ли какой-нить способ определить, что лист абсолютно пустой, что никто даже не думал его заполнять :-) ?

Блин, как же с вордом в этом отношении проще...
...
Рейтинг: 0 / 0
Как подсчитать кол-во листов в книге Excel?
    #32729358
marvan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ДиметрЕсть ли какой-нить способ определить, что лист абсолютно пустой
Код: plaintext
1.
    For i = 1 To Sheets.Count        If Sheets(i).UsedRange.Columns.Count = 1 And _           Sheets(i).UsedRange.Rows.Count = 1 And _           Sheets(i).Range("A1").Value = "" Then            Debug.Print Sheets(i).Name & "- пуст"        End If    Next
Как отформатирован этот код?
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Как подсчитать кол-во листов в книге Excel?
    #39371892
25101992
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Здравствуйте. Расшифруйте пожалуйста как применять этот текст. Через окно basic, как формулу или каким-то другим способом. Можно пожалуйста пошагово...
Заранее спасибо.
...
Рейтинг: 0 / 0
Как подсчитать кол-во листов в книге Excel?
    #39371893
25101992
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
25101992Здравствуйте. Расшифруйте пожалуйста как применять этот текст "MsgBox ((ActiveSheet.VPageBreaks.Count + 1) * (ActiveSheet.HPageBreaks.Count + 1))". Через окно basic, как формулу или каким-то другим способом. Можно пожалуйста пошагово...
Заранее спасибо.
...
Рейтинг: 0 / 0
Как подсчитать кол-во листов в книге Excel?
    #39372060
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ctrl+C
Alt+F11
Ctrl+G
Ctrl+V
Enter
...
Рейтинг: 0 / 0
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как подсчитать кол-во листов в книге Excel?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]