Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Граница в таблице с разной высотой - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Граница в таблице с разной высотой (Макросы/Sub)
Граница в таблице с разной высотой
AVI Дата: Вторник, 12.02.2019, 06:17 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 475
Репутация: 7 ±
Замечаний: 0% ±

Excel 2016
Добрый день!
Подскажите, как макросом начертить такую границу в таблице? Ширина таблицы всегда одинакова. В примере два варианта.
К сообщению приложен файл: 9935680.xlsm(12.1 Kb)
 
Ответить
СообщениеДобрый день!
Подскажите, как макросом начертить такую границу в таблице? Ширина таблицы всегда одинакова. В примере два варианта.

Автор - AVI
Дата добавления - 12.02.2019 в 06:17
boa Дата: Вторник, 12.02.2019, 09:53 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 331
Репутация: 79 ±
Замечаний: 0% ±

2013, 365
AVI,
можно использовать УФ
К сообщению приложен файл: 9935680-2.xlsx(10.6 Kb)


 
Ответить
СообщениеAVI,
можно использовать УФ

Автор - boa
Дата добавления - 12.02.2019 в 09:53
AVI Дата: Вторник, 12.02.2019, 10:58 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 475
Репутация: 7 ±
Замечаний: 0% ±

Excel 2016
boa, можно, но я хочу понять как это сделать макросами
 
Ответить
Сообщениеboa, можно, но я хочу понять как это сделать макросами

Автор - AVI
Дата добавления - 12.02.2019 в 10:58
boa Дата: Вторник, 12.02.2019, 11:32 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 331
Репутация: 79 ±
Замечаний: 0% ±

2013, 365
AVI,
Прописать теже условия на VBA
[vba]
Код
Sub NewMacros()
Dim r As Range
Dim WSF As WorksheetFunction: Set WSF = Application.WorksheetFunction
    With Sheet1.UsedRange
        For Each r In .Rows
            If WSF.CountA(r) > 0 Then
                r.Borders(xlEdgeLeft).LineStyle = xlContinuous
                r.Borders(xlEdgeRight).LineStyle = xlContinuous
            End If
            If r.Cells(1) <> r.Cells(1).Offset(-1) And Not IsEmpty(r.Cells(1)) Then
                r.Borders(xlEdgeTop).LineStyle = xlContinuous
            End If
            If WSF.CountA(r) > 0 And WSF.CountA(r.Offset(1)) = 0 Then
                r.Borders(xlEdgeBottom).LineStyle = xlContinuous
            End If
        Next
    End With
End Sub
[/vba]
К сообщению приложен файл: 9935680-2.xlsb(17.3 Kb)


 
Ответить
СообщениеAVI,
Прописать теже условия на VBA
[vba]
Код
Sub NewMacros()
Dim r As Range
Dim WSF As WorksheetFunction: Set WSF = Application.WorksheetFunction
    With Sheet1.UsedRange
        For Each r In .Rows
            If WSF.CountA(r) > 0 Then
                r.Borders(xlEdgeLeft).LineStyle = xlContinuous
                r.Borders(xlEdgeRight).LineStyle = xlContinuous
            End If
            If r.Cells(1) <> r.Cells(1).Offset(-1) And Not IsEmpty(r.Cells(1)) Then
                r.Borders(xlEdgeTop).LineStyle = xlContinuous
            End If
            If WSF.CountA(r) > 0 And WSF.CountA(r.Offset(1)) = 0 Then
                r.Borders(xlEdgeBottom).LineStyle = xlContinuous
            End If
        Next
    End With
End Sub
[/vba]

Автор - boa
Дата добавления - 12.02.2019 в 11:32
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Граница в таблице с разной высотой (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!