Нижняя граница на 10 ячеек вниз

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

Нижняя граница на 10 ячеек вниз (Формулы/Formulas)

Roman777

Дата: Понедельник, 25.08.2014, 16:37 | Сообщение № 1

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

Ранг: Ветеран

Сообщений: 980

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

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

Excel 2007, Excel 2013

Добрый день!
Подскажите кто знает VBA.
Как будет выглядеть скрипт для ситуации:
Если выделяем ячейку A1 и выполняем макрос, то в ячейках с A1 по А10 применяется утолщенная нижняя граница.
Если выделяем ячейку B1, то данное условие должно примениться к ячейкам B1-B10.
Если выделяем А2 - то условие применяется к A2-A11.
[moder]Перенес тему в VBA и переименовал ее.
В следующий раз получите замечание за нарушение Правил форума.
Очень советую их прочитать.

Много чего не знаю!!!!

Ответить

_Boroda_

Дата: Понедельник, 25.08.2014, 16:54 | Сообщение № 2

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

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

Сообщений: 16957

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Sub tt()
Range(Selection, Selection.Offset(10)).Borders(xlInsideHorizontal).Weight = xlMedium
End Sub

[/vba]

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

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

Ответить

Pelena

Дата: Понедельник, 25.08.2014, 16:56 | Сообщение № 3

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

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

Сообщений: 19572

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

Замечаний: ±

Excel 365 & Mac Excel

А так не подойдёт? Ну, так, мне для общего развития

[vba]

Код

Sub Macro1()
ActiveCell.Resize(10).Borders(xlEdgeBottom).Weight = xlMedium
ActiveCell.Resize(10).Borders(xlInsideHorizontal).Weight = xlMedium
End Sub

[/vba]