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

Вход

Регистрация

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

 

= Мир MS Excel/Рисование границ таблицы - Мир MS Excel

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

Excel 2013
Здравствуйте.

Есть макрос создающий таблицу.
Таблицу он строит, но я пытаюсь сделать так, чтобы он еще отображал границы для этих ячеек.
Но что-то не получается - выходит искажение таблицы.

Видимо вот этот кусок кода - написан неправильно.
[vba]
Код

    With Range(a(0)).Resize(c + 1, r + 1)
        .Borders(xlEdgeLeft).Weight = xlThin
        .Borders(xlEdgeBottom).Weight = xlThin
        .Borders(xlEdgeRight).Weight = xlThin
        .Borders(xlEdgeTop).Weight = xlThin
        .Borders(xlInsideHorizontal).Weight = xlThin
        .Borders(xlInsideVertical).Weight = xlThin
    End With
[/vba]

Как изменить код, чтобы он рисовал границы созданной таблицы.
К сообщению приложен файл: 4696417.xls(45.0 Kb)
 
Ответить
СообщениеЗдравствуйте.

Есть макрос создающий таблицу.
Таблицу он строит, но я пытаюсь сделать так, чтобы он еще отображал границы для этих ячеек.
Но что-то не получается - выходит искажение таблицы.

Видимо вот этот кусок кода - написан неправильно.
[vba]
Код

    With Range(a(0)).Resize(c + 1, r + 1)
        .Borders(xlEdgeLeft).Weight = xlThin
        .Borders(xlEdgeBottom).Weight = xlThin
        .Borders(xlEdgeRight).Weight = xlThin
        .Borders(xlEdgeTop).Weight = xlThin
        .Borders(xlInsideHorizontal).Weight = xlThin
        .Borders(xlInsideVertical).Weight = xlThin
    End With
[/vba]

Как изменить код, чтобы он рисовал границы созданной таблицы.

Автор - DimOzerov
Дата добавления - 30.10.2018 в 19:07
Паштет Дата: Вторник, 30.10.2018, 21:40 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 79
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
.Borders.LineStyle = True
 
Ответить
Сообщение.Borders.LineStyle = True

Автор - Паштет
Дата добавления - 30.10.2018 в 21:40
DimOzerov Дата: Вторник, 30.10.2018, 23:04 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Паштет, понял-понял.
Спасибо за совет.
 
Ответить
СообщениеПаштет, понял-понял.
Спасибо за совет.

Автор - DimOzerov
Дата добавления - 30.10.2018 в 23:04
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Рисование границ таблицы (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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