Как правильно использовать переменные в процедурах

[nikolai_P]

У меня есть макрос на открытие файла

Private Sub Workbook_Open()
...
tablica (L, F)
...
End Sub

Я хочу чтобы в моей программе каждое действие было отдельной процедурой, мне так проще. Н-р, создание таблицы (1), заполнение таблицы (2), проверка на повторения (3). Подскажите пожалуйста как правильно писать процедуры? Мой Вариант выдает ошибки.

Private Sub tablica (L,F)
End Sub

Смысл в том, что вторая процедура должна использовать значения (L, F) из первой!

Всем успехов!

[slan]

1 переменные объявить в вызывающей процедуре и передавать как параметр.

2 объявить в модуле...

3 сохранить на диске, потом считывать

а) в реестре (savesettings/getsettings)

b) в файле
1) текстовом
2) бинарном
3) эксель-книге
........
4 хранить в именах книги
.....
n поставить в зависимость от условий вызова(время, дата, окружающие переменные, курс доллара...)

[nikolai_P]

Суть в том, что если я использую одну переменную, то у меня все работает, а с двумя не получается! Если я пишу так:

Private Sub Workbook_Open()   
...   
tablica (L)   
...   
End Sub   

Private Sub tablica (L)   
...
End Sub

то все работает, а если как приведено выше (tablica(L,F)) - то нет! Почему? Если можно, то опишите ответ попроше. Я новичок в программировании.

[slan]

тогда посмотрим, телепатия - энергоемкий процесс

[nikolai_P]

Вот примерПроцеДУРА.rar

[IgorGO]

Может так попробовать?
процедура tablica ждет один параметр, один надо и передавать...

Private Sub Workbook_Open()      
...
L = 1   
tablica (L)   
L = 2   
tablica (L)
tablica (3)
...      
End Sub      
  
Private Sub tablica (L)      
...   
End Sub

есть подозрение, что вариант tablica (3) тоже пройдет.
удачи

[дмидми]

А где же неработающий пример? Что прикажете править?

[slan]

как-то так

[nikolai_P]

Private Sub Workbook_Open()
'Рисуем таличку
L = 1   'Номер листа
F = 1   'Размер шрифта шапки
tablica(L, F)
    
End Sub

Private Sub tablica(L As Long, C As Long)
sheets(L).Cells(1, 1).Font.Size = F
End Sub

ЧТО НЕ ТАК?

[дмидми]

"Муха - источник заразы" (с)

...от ПроцеДУРА.xls

'C = 1
Sheets(L).Columns(C).ColumnWidth = 4
Sheets(L).Cells(8, C).Value = "№"
Sheets(L).Cells(8, C).Font.Size = Font_size
Sheets(L).Cells(8, C).Font.Bold = True
Sheets(L).Range("A8:A9").Merge

Что бросается в глаза:
- Модуль не начат инструкцией Option Explicit - значит, появление ошибок неизбежно, как крах империализма.
- Sheets вместо Worksheets. Для листов диаграмм всё это работать не будет.
- Мешанина в способах адресации - и Cells(8, C), и Range("A8:A9") - тоже всегда ведёт к ошибкам. Правильно сформировать адрес "B8:B9" для C=2 можно, но это никому не нужный "геморрой". Вместо Range("A8:A9") здесь можно, например, Cells(8, C).Resize(2,1)
- Для каждой Cells(8, C) должны передаваться свои ширина и значение - следовательно, процедуре не хватает еще пары параметров, например сWidth as Variant, сHdr As String.