Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
PrintPreview листов книги по условию в одном окне
 
#1
03.03.2014 21:28:07
Здравствуйте!
Есть макрос открывающий окно предварительного просмотра листов в ячейке А1 которых стоит цифра 1.
В окне предварительного просмотра нельзя пролистывать листы ползунком вертикальной прокрутки или колесиком мышки, отельно нужно закрывать каждый лист для того что бы появился следующий лист.
Я слепил этот код из множества кодов которых нашёл на форуме по темам предварительного просмотра и печати, но как сделать возможность прокрутки листов в одном окне я не смог найти.

Пожалуйста подскажите, что дописать/изменить в коде чтобы в окне предварительного просмотра листы в ячейках А1 которых стоит цифра 1можно было пролистывать, а не закрывать отдельно каждый лист для того чтобы появился следующий.

Файл-пример прикладываю.
 
 
 
#2
03.03.2014 22:05:13
Только не спрашивайте, как это работает)


Код
Sub Прямоугольник1_Щелчок()
    Dim sh As Worksheet, I As Long, n As Long
    Application.ScreenUpdating = False
    For Each sh In ThisWorkbook.Worksheets
        sh.[A1].ID = sh.Visible
        If Not sh.[A1].Value = 0 Then
            sh.Visible = xlSheetVisible
            n = n + 1: sh.Select n = 1
        End If
    Next
    ActiveWindow.SelectedSheets.PrintPreview

    For Each sh In ThisWorkbook.Worksheets
        sh.Visible = Val(sh.[A1].ID)
    Next
    Worksheets(1).Select
    Application.ScreenUpdating = True
End Sub
Изменено: Игорь - 03.03.2014 22:06:34
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
03.03.2014 22:14:26
Обалдеть)
Я уже и не надеялся, ведь во всем яндексе люди знают только про предварительный просмотр страниц но о предварительном просмотре листов нет вообще ничего.
Всё работает именно так как я хотел.
Большое вам спасибо)даже настроение поднялось)
 
 
 
#4
03.03.2014 22:24:52
НЕ МНОГО ПОСПЕШИЛ!
Может быть скажите куда в этом коде записать MsgBox если таких листов(листов в ячейке А1 которых цифра 1) нет???
Сейчас если листов для просмотра нет он открывает первый лист  
 
 
 
#5
04.03.2014 00:04:36
Код
if n then ActiveWindow.SelectedSheets.PrintPreview
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
Страницы: 1
Читают тему
Наверх