Перенос макроса в модуль

[valerij]

Вот макрос для листа, как его "воткнуть" в модуль?
Что означает "Target" и "Target.Row ", и "Me."????

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
iRow& = Target.Row - 31: iStep& = iRow& \ 48
If Not Intersect(Target, _
Me.Range("I31:I36").Offset(iStep& * 48)) Is Nothing Then
------------------------------------------------------
End If
End Sub

[Pavel55]

Target - ячейка, в которой произошло изменение
Target.Row - номер строки ячейки, в которой произошло изменение
Me - Лист, где отслеживаются изменения ячеек (ссылка на родителя)
- Me у листа - сам лист (чтобы не писать Лист1, Лист2 и т.д.)
- Me у формы - сама форма (чтобы не писать UserForm1, UserForm2 и т.д.)

[valerij]

А в модуль как перенести?
Если вместо
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Пишу
Sub zxc()
Dim Target As Range
Ошибка, а почему?

[IgorGO]

процедуру
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
с листа в модуль перенести нельзя, точнее можно, но она не будет там срабатывать при изменении данных на листе.
Она должна находиться на листе и быть обьявлена именно так.

Если есть желание, чтобы что-то происходило в модуле при каждом изменении на листе необходимо от сюда, из Private Sub Worksheet_Change(ByVal Target As Excel.Range) вызвать любую процедуру обьявленную в модуле

[valerij]

Сообщение от IgorGO

процедуру
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
с листа в модуль перенести нельзя, точнее можно, но она не будет там срабатывать при изменении данных на листе.

IgorGO
А мне как раз и не надо, что бы срабатывала при изменений.
Мне надо, нажать кнопку и только тогда прошли изменения.

[IgorGO]

А мне как раз и не надо, что бы срабатывала при изменений.

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

если "как раз и не надо" - то удалить ее с листа она и не будет работать.

а если надо навесить на лист кнопку, при нажатии на которую запуститься определенная процедура, то:
1. создаем процедуру (как минимум написать sub ИМЯмя и нажать Enter чтобы Эксель дописал end sub)
2. в меню "Вид" / "Панели инструментов" выбрать "Формы", отметить курсором элемент "Кнопка" и задать габариты кнопки на листе. Эксель сделает на ней надпись Кнопка 1 (если это первая кнопка на листе), и сразу же предложит выбрать процедуру, которая будет срабатывать при клике на кнопку.

зачем мы семь ответов маемся с Private Sub Worksheet_Change(ByVal Target As Excel.Range) - не пойму.

[valerij]

Сообщение от IgorGO

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

Спасибо, все понял.