Рисование границ таблицы макросом

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

Рисование границ таблицы макросом (Макросы/Sub)

Starbirst

Дата: Понедельник, 21.07.2014, 09:00 | Сообщение № 1

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

Ранг: Участник

Сообщений: 83

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

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

Excel 2003

Ребята! Требуется ваша помощь. Солидарен тому, кто откликнется и поможет. В данном файле имеется лист "Дефекты", в котором по дабл-клику в столбце "B" проставляются галочки. Данные, помеченные галочкой передаются в лист "Ведомость". Имеется лист "Ведомость итоговый вид" - это как пример того, как должен выглядеть лист "Ведомость", но с нарисованными границами таблицы. Помогите, пожалуйста, нарисовать границы в листе "Ведомость" при помощи макроса. VBA не владею. Спасибо!

К сообщению приложен файл: ___.xlsm (73.3 Kb)

Ответить

_Boroda_

Дата: Понедельник, 21.07.2014, 09:45 | Сообщение № 2

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

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

Сообщений: 16957

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Добавьте перед последним With
[vba]

Код

        With .Range("A10:D9999")
               .Borders.LineStyle = xlNone
           End With

           With .Range("A10:D" & .Range("B" & Rows.Count).End(xlUp).Row)
               .Borders.LineStyle = xlContinuous
           End With

[/vba]
Добавлено
не, вот так
[vba]

Код

        .Range("A10:D9999").Borders.LineStyle = xlNone
          .Range("A10:D" & .Range("B" & Rows.Count).End(xlUp).Row).Borders.LineStyle = xlContinuous
          .Range("B10:C" & .Range("B" & Rows.Count).End(xlUp).Row).Borders(xlInsideVertical).LineStyle = xlNone

[/vba]см. файл _2

К сообщению приложен файл: _1.xlsb (96.2 Kb) · _2.xlsb (69.0 Kb)

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

Ответить

Hugo

Дата: Понедельник, 21.07.2014, 09:50 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3859

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

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

365

Без проверки:
[vba]

Код

With Sheets("Ведомость")
.Range("A10:D" & FreeRow).Borders.Weight = xlThin
End With

[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

Starbirst

Дата: Понедельник, 21.07.2014, 11:13 | Сообщение № 4

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

Ранг: Участник

Сообщений: 83

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

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

Excel 2003

Boroda, можете убрать линию между столбцами "B" и "D"?

Ответить

Starbirst

Дата: Понедельник, 21.07.2014, 11:32 | Сообщение № 5

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

Ранг: Участник

Сообщений: 83

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

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

Excel 2003

Каким образом это все объединить в один код?

Ответить

Starbirst

Дата: Понедельник, 21.07.2014, 11:35 | Сообщение № 6

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

Ранг: Участник

Сообщений: 83

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

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

Excel 2003

Огромное спасибо!

Ответить

Starbirst

Дата: Понедельник, 21.07.2014, 11:37 | Сообщение № 7

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

Ранг: Участник

Сообщений: 83

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

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

Excel 2003

В этом файле предполагается работа с большим количеством листов (в соответствии с количеством единиц в сплывающем списке). Я сейчас работаю над этим файлом, позже отпишусь как будет работать макрос.

Ответить

Starbirst

Дата: Среда, 23.07.2014, 17:10 | Сообщение № 8

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

Ранг: Участник

Сообщений: 83

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

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

Excel 2003

Boroda, все работает, все ok! Спасибо! В листе ведомость имеется кнопка сохранения в pdf, эта функция исполнялась для Excel 2007. При открытии в Excel 2003 данная функция не работает. Можно ли сделать так, чтобы при печати через виртуальный принтер присваивалось уникальное имя файлу, которое прописано в макросе для Excel 2007?

Сообщение отредактировал Starbirst - Среда, 23.07.2014, 17:10