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

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

Блин, как же с вордом в этом отношении проще...
...
Рейтинг: 0 / 0
08.10.2004, 10:50
    #32729358
marvan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подсчитать кол-во листов в книге Excel?
ДиметрЕсть ли какой-нить способ определить, что лист абсолютно пустой
Код: 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
Период между сообщениями больше года.
21.12.2016, 13:32
    #39371892
25101992
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подсчитать кол-во листов в книге Excel?
Здравствуйте. Расшифруйте пожалуйста как применять этот текст. Через окно basic, как формулу или каким-то другим способом. Можно пожалуйста пошагово...
Заранее спасибо.
...
Рейтинг: 0 / 0
21.12.2016, 13:33
    #39371893
25101992
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подсчитать кол-во листов в книге Excel?
25101992Здравствуйте. Расшифруйте пожалуйста как применять этот текст "MsgBox ((ActiveSheet.VPageBreaks.Count + 1) * (ActiveSheet.HPageBreaks.Count + 1))". Через окно basic, как формулу или каким-то другим способом. Можно пожалуйста пошагово...
Заранее спасибо.
...
Рейтинг: 0 / 0
21.12.2016, 15:36
    #39372060
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как подсчитать кол-во листов в книге Excel?
Ctrl+C
Alt+F11
Ctrl+G
Ctrl+V
Enter
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как подсчитать кол-во листов в книге Excel? / 11 сообщений из 11, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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