Объяснить работу макроса для печати выделенных строк

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

Объяснить работу макроса для печати выделенных строк (Макросы/Sub)

doozy

Дата: Среда, 31.05.2017, 19:48 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 3

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

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

Excel 2013

Здравствуйте, есть макрос, для печати выделенных строк (в vba только разбираюсь, как то в нем для меня сложно разобраться) спертый с подобного форума.
Пытаюсь уже несколько дней понять ход его работы и как то не получается найти информацию.

[vba]

Код

Selection.Interior.ColorIndex = xlNone
Application.ScreenUpdating = False 'тут понятно
Dim arr, x 'тут понятно
Set arr = Intersect(Columns("A:M"), Range(Selection, Selection.Areas(Selection.Areas.Count))) 'особенно тут

For Each x In arr.Rows
x.EntireRow.Hidden = Intersect(x, Selection) Is Nothing
Next

arr.PrintOut Preview:=True
arr.EntireRow.Hidden = False
Application.ScreenUpdating = True 'тут понятно

[/vba]

Был бы рад, если кто нибудь написал дотошные комментарии на против каждой строчки, зачем да почему.
И подсказать где можно черпать информацию.

Сообщение отредактировал doozy - Среда, 31.05.2017, 20:21

Ответить

buchlotnik

Дата: Среда, 31.05.2017, 19:51 | Сообщение № 2

Группа: Заблокированные

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

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

И вам здравствуйте.
Как и на других "подобных форумах" здесь есть правила.
Ознакомьтесь, исправьтесь и помощь придёт

Ответить

Pelena

Дата: Среда, 31.05.2017, 19:52 | Сообщение № 3

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

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

Сообщений: 19603

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

Замечаний: ±

Excel 365 & Mac Excel

doozy, дайте теме более конкретное название, отражающее суть задачи, и оформите код тегами с помощью кнопки # в режиме правки поста
Обо всём этом есть в Правилах форума

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816