Как выделить область листа линиями границ?

Старая форма входа

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

Как выделить область листа линиями границ? (Макросы/Sub)

Юрий_Нд

Дата: Понедельник, 20.05.2019, 23:49 | Сообщение № 1

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

Ранг: Обитатель

Сообщений: 441

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

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

Excel 2013

Доброй ночи всем.
Скажите пожалуйста, как выделить область листа C4, N10 линиями границ, внутренними и внешними.
Типа нарисовать табличку.
Спасибо ___________ Юрий.

Сообщение отредактировал Юрий_Нд - Вторник, 21.05.2019, 00:10

Ответить

китин

Дата: Вторник, 21.05.2019, 07:17 | Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 7029

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

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

Excel 2007;2010;2016

Немного непонятно.... может так?
[vba]

Код

Sub ttt()
Range("C4:N10").Borders.LineStyle = xlContinuous
End Sub

[/vba]

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Юрий_Нд

Дата: Вторник, 21.05.2019, 11:30 | Сообщение № 3

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

Ранг: Обитатель

Сообщений: 441

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

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

Excel 2013

Игорь, большое спасибо.
Вы меня очень правильно поняли и это то, что мне нужно.
Ещё подскажите пожалуйста, как ввести координаты таблички не по именам диагональных ячеек "С4", а по номеру строчки "4" и номеру колонки "3".
И ещё подскажите, как задаются другие толщины линий.

Ответить

_Boroda_

Дата: Вторник, 21.05.2019, 11:40 | Сообщение № 4

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

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

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

[vba]

Код

range(cells(4,3),cells(10,14))
cells(4,3).resize(7,12)

[/vba]

Цитата Юрий_Нд, 21.05.2019 в 11:30, в сообщении № 3 ()

как задаются другие толщины линий

Включите запись макросов и сделайте у ячеек нужные Вам линии. Потом посмотрите записанное макрорекодером

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Юрий_Нд

Дата: Вторник, 21.05.2019, 12:11 | Сообщение № 5

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

Ранг: Обитатель

Сообщений: 441

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

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

Excel 2013

Спасибо Борода, "плюсик" пока не вводится, потому что "Вы сами виноваты, часто мне помогаете", но за мной "должок".

Ответить

Юрий_Нд

Дата: Пятница, 24.05.2019, 17:40 | Сообщение № 6

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

Ранг: Обитатель

Сообщений: 441

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

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

Excel 2013

Подскажите пожалуйста, как ещё удалить уже нарисованную табличку.
Пока знаю, что можно удалить только таким способом:
[vba]

Код

Range("C4:N10").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

[/vba]
Может быть есть что-то попроще?