При печати не отображаются нижние границы таблицы.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

При печати не отображаются нижние границы таблицы. (Макросы/Sub)

tasdel

Дата: Суббота, 04.10.2025, 19:25 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 156

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

Доброе время суток уважаемые колдуны и шаманы MS Excel!!!
При печати не отображаются нижние границы таблицы. Таблица динамическая, диапазон таблицы временами меняется. В приложенном файле имеется код,
который выполняет действие по установлению линии нижней границы таблицы. Проблема заключается в том, что это надо делать в ручную. Хотелось бы, чтобы
процедуру по установлению линии нижней границы таблицы выполнял макрос.
Заранее спасибо!!!

К сообщению приложен файл: tabel_2025.xls (205.5 Kb)

Ответить

ddp1481ne

Дата: Воскресенье, 05.10.2025, 08:43 | Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 3 ±

Замечаний: 0% ±

2013

Можно исправить без макроса. Нарисуйте вручную жирную верхнюю границу 700-й строки. Ваш файл переделать не смогу - очень разные версии Excel.

Ответить

Pelena

Дата: Воскресенье, 05.10.2025, 09:26 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 19571

Репутация: 4646 ±

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Можно такой макрос попробовать
[vba]

Код

Sub PutBorder()
    Dim r0 As Long, ir As Long, lr As Long, i As Long
    With ActiveSheet
        r0 = 7
        lr = .Cells(.Rows.Count, 2).End(xlUp).Row
        For ir = r0 To lr
            If .Cells(ir, 1) <> "" Then
                With .Cells(ir, 1).Resize(2, 42)
                    For i = 7 To 10
                        .Borders(i).LineStyle = xlContinuous
                        .Borders(i).Weight = xlMedium
                    Next i
                End With
            Else
            End If
        Next ir

    End With
End Sub

[/vba]
В файле вызывается сочетанием клавиш Ctrl+q