Почему не получается регулировать отсчитываемое количество строк перед подведением итого?

Question

Сергей @SuNbka

Почему не получается регулировать отсчитываемое количество строк перед подведением итого?

Добрый день, помогите найти ошибку, не могу понять почему только 1 раз отсчитывается 14 строк, а потом строго по 18 каждый раз до конца данных в таблице.
Скрипт подставляет в конце каждой страницы пустую строку где высчитывает итого по 13 и 15 столбцам таблицы.

Скрипт

Sub Print_Title()
    Dim a%, b&, d&, e, n&
    e = ActiveSheet.PageSetup.PrintTitleRows    'Select '.Count '= "$1:$7"
    e = Range(e).Rows.Count
    ActiveSheet.Copy Before:=Sheets(2)
    ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
    ActiveSheet.DrawingObjects(1).Text = "Print"
    ActiveSheet.DrawingObjects(1).OnAction = "KuklP"
    a = ActiveSheet.HPageBreaks(1).Location.Row
    b = Cells(Rows.Count, 1).End(xlUp).Row
    d = a: n = 14 ' первый раз отсчитвваем 14 строк и подбиваем итого (дальше почему то подбивается только после 18 строки)
    While d < b
        Rows(d - 2).Insert ' пустая строка
        Rows(d - 2).Insert ' пустая строка в которую происходит запись
        Cells(d - 1, 12).Value = "ИТОГО" ' пишем в 12 колонку слово Итого
        Cells(d - 1, 13).Formula = "=SUM(" & Range(Cells(n, 13), Cells(d - 3, 13)).Address(0, 0) & ")" ' подсчет суммы в 13 колонке
        Cells(d - 1, 15).Formula = "=SUM(" & Range(Cells(n, 15), Cells(d - 3, 15)).Address(0, 0) & ")" ' подсчет суммы в 15 колонке
        Cells(d - 1, 13).AutoFill Range(Cells(d - 1, 13), Cells(d - 1, 16)), 0 ' записываем подсчитаное в стоке
        n = d
        d = a + d - e + 4
        b = Cells(Rows.Count, 1).End(xlUp).Row + 2
    Wend
        Rows(d - 2).Insert ' пустая строка
        Rows(d - 2).Insert ' пустая строка в которую происходит запись
        Cells(d - 1, 12).Value = "ИТОГО" ' пишем в 12 колонку слово Итого
        Cells(d - 1, 13).Formula = "=SUM(" & Range(Cells(n, 13), Cells(d - 3, 13)).Address(0, 0) & ")" ' подсчет суммы в 13 колонке
        Cells(d - 1, 15).Formula = "=SUM(" & Range(Cells(n, 15), Cells(d - 3, 15)).Address(0, 0) & ")" ' подсчет суммы в 15 колонке
        Cells(d - 1, 13).AutoFill Range(Cells(d - 1, 13), Cells(d - 1, 16)), 0 ' записываем подсчитаное в стоке
        'Cells(b, 12).Value = "ИТОГО"
        'Cells(b, 13).Formula = "=SUM(" & Range(Cells(n, 13), Cells(b - 2, 13)).Address(0, 0) & ")"
        'Cells(b, 15).Formula = "=SUM(" & Range(Cells(n, 15), Cells(b - 2, 15)).Address(0, 0) & ")"
        'Cells(b, 13).AutoFill Range(Cells(b, 13), Cells(b, 16)), 0
End Sub

Вопрос задан более трёх лет назад
139 просмотров

13 комментариев

Подписаться 1 Простой 13 комментариев

DS28 @DS28

Сходу код не запустился

Очевидно, если расчёт завязан на n = 14, то не нужно делать n = d

Поставьте msgbox n
после разных действий, посмотрите где подмена...

Написано более трёх лет назад
Сергей @SuNbka Автор вопроса

DS28,
Msgbox показывается n = 14 (заданному) на всех этапах цикла, но на кол-во строк после 1 раза это никак не влияет.

Написано более трёх лет назад
h8nor @honor8

Сходу и не запустится: лист привязан к сквозным строкам PrintTitleRows, есть картинки DrawingObjects(1), зачем-то сделали привязку к разделителям HPageBreaks(1) (не известно на каких строках они висят), последняя строка b ищется в лоб, хотя для этого есть метод SpecialCells(xlLastCell), дальше в цикле формула Formula = "=SUM(" непонятное дублирование и методы (без комментариев), в цикле запутывание значений переменных.
Выкиньте переменную n из кода и смотрите в цикле переменную d.

Написано более трёх лет назад
DS28 @DS28

Сергей, а d какие значения принимает?

Написано более трёх лет назад
Сергей @SuNbka Автор вопроса

DS28, d = 49 и не важно убрал ли я из формулы переменную n или нет.

Написано более трёх лет назад
Сергей @SuNbka Автор вопроса
Дѣаволъ,
lLastRow = Cells.SpecialCells(xlLastCell).Row 'находим самую нижнюю заполненную строку MsgBox (lLastRow) 'отображает самую нижнюю заполненную строчку

Как найти последнюю строку на странице? (таблица к примеру печатается на 5 страницах)
Написано более трёх лет назад
h8nor @honor8

Сергей, это плохая практика привязываться к печатным страницам. Размер области печати может меняться не только из-за Параметров страницы, но и настроек/модели принтера.

Написано более трёх лет назад
DS28 @DS28

Сергей, может книгу выложите?

Написано более трёх лет назад
Сергей @SuNbka Автор вопроса

DS28, ссылка на книгу

Написано более трёх лет назад
Сергей @SuNbka Автор вопроса

Дѣаволъ, есть ли способ реализации разделения на страницы при плавающей ширине строки?

Написано более трёх лет назад
h8nor @honor8

Сергей, я занимался этим вопросом некоторое время и пересмотрел различные настройки Параметров страниц. Тривиального решения за выделенное себе время я не нашёл (из-за десятка вариаций, влияющих на область печати и зависимости относительных значений одних параметров от других).
Давайте лучше вернёмся к вашему вопросу по коду.

Написано более трёх лет назад
DS28 @DS28

Сергей, увы, дома у меня libre и я до понедельника ушёл в отпуск...

Написано более трёх лет назад

Сергей @SuNbka Автор вопроса

Шапка документа 16 столбцов 2 строки + 1 строка с нумерацией 1..16 столбцов.

Код

Sub vbc()

    ActiveSheet.Copy After:=Sheets(1)  'Копируем всё на новый лист, следующий после 1го листа.
    ActiveSheet.PageSetup.Orientation = xlLandscape  'Изменяем формат на альбомный
   
    With ActiveSheet.PageSetup 'Поместить все строки и столбцы на 1 страницу, но когда много строк то 
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 100
    End With
    ActiveWindow.View = xlPageLayoutView
    ActiveWindow.View = xlPageBreakPreview
   
End Sub

Как получить номер последней строки с текстом на странице?

lLastRow = Cells.SpecialCells(xlLastCell).Row 'Получаем номер последней строки с текстом на листе

Номер страницы с выделенным полем (клеткой)

Public Sub PageNumner()
    Dim VPB As Excel.VPageBreak
    Dim HPB As Excel.HPageBreak
    Dim intVPBC As Integer
    Dim intHPPC As Integer
    Dim lngPage As Long
    
    lngPage = 1
    
    If ActiveSheet.PageSetup.Order = xlDownThenOver Then
        intHPPC = ActiveSheet.HPageBreaks.Count + 1
        intVPBC = 1
    Else
        intVPBC = ActiveSheet.VPageBreaks.Count + 1
        intHPPC = 1
    End If

    For Each VPB In ActiveSheet.VPageBreaks
        If VPB.Location.Column > ActiveCell.Column Then
            Exit For
        End If
        
        lngPage = lngPage + intHPPC
    Next VPB
    
    For Each HPB In ActiveSheet.HPageBreaks
        If HPB.Location.Row > ActiveCell.Row Then
            Exit For
        End If
            
        lngPage = lngPage + intVPBC
    Next HPB
    
    MsgBox "Íîìåð ñòðàíèöû àêòèâíîé ÿ÷åéêè = " & lngPage
End Sub

Написано более трёх лет назад

Пригласить эксперта

Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации

Похожие вопросы

Excel

Простой
Как создать шаблон для печати в excel?
- 1 подписчик
- 13 часов назад
- 25 просмотров
1

ответ
Excel

Средний
Как проверить содержимое ячейки на наличие слова из диапазона?
- 1 подписчик
- 22 апр.
- 39 просмотров
1

ответ
Excel

+1 ещё

Простой
Как с помощью VBA найти изображение в ячейке Excel?
- 1 подписчик
- 17 апр.
- 62 просмотра
1

ответ
Excel

Средний
Как реализовать поиcк значений для множества ячеек excel?
- 2 подписчика
- 16 апр.
- 68 просмотров
0

ответов
Excel

Средний
Как из ячейки извлечь структурированные данные?
- 2 подписчика
- 14 апр.
- 285 просмотров
1

ответ
Excel

Средний
Как разделить содержимое ячейки?
- 2 подписчика
- 14 апр.
- 305 просмотров
1

ответ
Excel

Простой
Есть ли в excel формула вставки строк?
- 1 подписчик
- 12 апр.
- 80 просмотров
2

ответа
C#

+2 ещё

Простой
Как настроить переход по ссылкам?
- 1 подписчик
- 11 апр.
- 73 просмотра
1

ответ
Windows

+3 ещё

Средний
Как очистить кэш MS TeamsNew на компьютерах домена?
- 1 подписчик
- 10 апр.
- 65 просмотров
1

ответ
Windows

+1 ещё

Простой
Как поменять excel по умолчанию с одной версии приложения на другую?
- 1 подписчик
- 07 апр.
- 98 просмотров
2

ответа
Показать ещё Загружается…

Аналитик 1С

Автомакон

До 21 750 ₽

Специалист в Финансовый Отдел

Rails

от 50 000 до 90 000 ₽

Аналитик данных

Bogoda Digital Pro • Сан-Хосе

от 999 до 999 ₸

Найти ошибку flutter_map

26 апр. 2024, в 05:31

1000 руб./за проект

Разработать электронику для весов с Wi-Fi

26 апр. 2024, в 01:22

1000 руб./в час

Очень срочно нужно помочь запустить программу с UI

26 апр. 2024, в 00:13

1000 руб./за проект

Сходу код не запустился

Очевидно, если расчёт завязан на n = 14, то не нужно делать n = d

Поставьте msgbox n
после разных действий, посмотрите где подмена...
DS28,
Msgbox показывается n = 14 (заданному) на всех этапах цикла, но на кол-во строк после 1 раза это никак не влияет.
Сходу и не запустится: лист привязан к сквозным строкам PrintTitleRows, есть картинки DrawingObjects(1), зачем-то сделали привязку к разделителям HPageBreaks(1) (не известно на каких строках они висят), последняя строка b ищется в лоб, хотя для этого есть метод SpecialCells(xlLastCell), дальше в цикле формула Formula = "=SUM(" непонятное дублирование и методы (без комментариев), в цикле запутывание значений переменных.
Выкиньте переменную n из кода и смотрите в цикле переменную d.
Сергей, а d какие значения принимает?
DS28, d = 49 и не важно убрал ли я из формулы переменную n или нет.
Дѣаволъ,
lLastRow = Cells.SpecialCells(xlLastCell).Row 'находим самую нижнюю заполненную строку MsgBox (lLastRow) 'отображает самую нижнюю заполненную строчку

Как найти последнюю строку на странице? (таблица к примеру печатается на 5 страницах)
Сергей, это плохая практика привязываться к печатным страницам. Размер области печати может меняться не только из-за Параметров страницы, но и настроек/модели принтера.
Дѣаволъ, есть ли способ реализации разделения на страницы при плавающей ширине строки?
Сергей, я занимался этим вопросом некоторое время и пересмотрел различные настройки Параметров страниц. Тривиального решения за выделенное себе время я не нашёл (из-за десятка вариаций, влияющих на область печати и зависимости относительных значений одних параметров от других).
Давайте лучше вернёмся к вашему вопросу по коду.
Сергей, увы, дома у меня libre и я до понедельника ушёл в отпуск...
Шапка документа 16 столбцов 2 строки + 1 строка с нумерацией 1..16 столбцов.
Код
Sub vbc() ActiveSheet.Copy After:=Sheets(1) 'Копируем всё на новый лист, следующий после 1го листа. ActiveSheet.PageSetup.Orientation = xlLandscape 'Изменяем формат на альбомный With ActiveSheet.PageSetup 'Поместить все строки и столбцы на 1 страницу, но когда много строк то .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 100 End With ActiveWindow.View = xlPageLayoutView ActiveWindow.View = xlPageBreakPreview End Sub

Как получить номер последней строки с текстом на странице?
lLastRow = Cells.SpecialCells(xlLastCell).Row 'Получаем номер последней строки с текстом на листе

Номер страницы с выделенным полем (клеткой)
Public Sub PageNumner() Dim VPB As Excel.VPageBreak Dim HPB As Excel.HPageBreak Dim intVPBC As Integer Dim intHPPC As Integer Dim lngPage As Long lngPage = 1 If ActiveSheet.PageSetup.Order = xlDownThenOver Then intHPPC = ActiveSheet.HPageBreaks.Count + 1 intVPBC = 1 Else intVPBC = ActiveSheet.VPageBreaks.Count + 1 intHPPC = 1 End If For Each VPB In ActiveSheet.VPageBreaks If VPB.Location.Column > ActiveCell.Column Then Exit For End If lngPage = lngPage + intHPPC Next VPB For Each HPB In ActiveSheet.HPageBreaks If HPB.Location.Row > ActiveCell.Row Then Exit For End If lngPage = lngPage + intVPBC Next HPB MsgBox "Íîìåð ñòðàíèöû àêòèâíîé ÿ÷åéêè = " & lngPage End Sub

Почему не получается регулировать отсчитываемое количество строк перед подведением итого?

Войдите, чтобы написать ответ

Минуточку внимания

Войдите на сайт