Передача листа параметром в процедуру

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

Передача листа параметром в процедуру (Макросы Sub)

Alex

Дата: Понедельник, 20.01.2014, 11:12 | Сообщение № 1

Группа: Гости

Подскажите пожалуйста как передать лист в качестве параметра

Так что-то не работает:

[vba]

Код

Sub SaveRep(Sh As Worksheet)
MsgBox Sh.Name
''<Code>
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
For N = 3 To ThisWorkbook.Sheets.Count
SaveRep (ThisWorkbook.Sheets(N))
Next N
End Sub

[/vba]

Ответить

SkyPro

Дата: Понедельник, 20.01.2014, 11:18 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 1206

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

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

2010

[vba]

Код

SaveRep ThisWorkbook.Sheets(N)

[/vba]
Скобки не нужны.

skypro1111@gmail.com

Ответить

Alex

Дата: Понедельник, 20.01.2014, 11:22 | Сообщение № 3

Группа: Гости

Ё-моё, Спасибо. Точно. Никак не привыкну к такому способу передачи параметров

Ответить

SkyPro

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

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

Ранг: Старожил

Сообщений: 1206

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

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

2010

В процедуры без скобок, в функции с скобками.
Разве у вас компилятор не ругался на них?

skypro1111@gmail.com

Ответить

Alex

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

Группа: Гости

Вот что он мне выдавал:
---------------------------
Microsoft Visual Basic for Applications
---------------------------
Run-time error '438':

Object doesn't support this property or method
---------------------------
ОК Справка
---------------------------

Ответить

Саня

Дата: Понедельник, 20.01.2014, 14:04 | Сообщение № 6

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

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

Сообщений: 1068

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

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

XL 2016

Цитата Alex, 20.01.2014 в 11:22, в сообщении № 3

Никак не привыкну к такому способу передачи параметров

можешь и не привыкать:
[vba]

Код

Call SaveRep(ThisWorkbook.Sheets(N))

[/vba]

Ответить

Передача листа параметром в процедуру (Макросы Sub)

Страница 1 из 1
1