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

[IgorGO]

в
Private Sub Workbook_Open()
объявить
Dim L as long, F as long

[nikolai_P]

ДМИДМИ, буду признателен если подскажите, что делать с этим

Sheets(L).Cells("E10:E12,F10:F12,G1 0:G12,I10:I12,M10:M12,P10:P12,D4:D5 ").NumberFormat = "#,##0.00"

[дмидми]

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

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

ЧТО НЕ ТАК?

(Занудствует.)
Если бы в начале модуля стояла инструкция Option Explicit, то уже транслятор сказал бы, что не так: параметр процедуры - C, а вместо него используется никому (кроме процедуры Workbook_Open) не известная переменная F. (Области видимости имён - или как там это в VB называется? - изучить нужно не хуже, чем таблицу умножения.)

Чего транслятор не сказал бы, но что есть в хэлпе: Size Property [это] Read/write Variant (а не Long). Чтобы узнать это, достаточно было поставить курсор на слово Size и нажать нежно (надеюсь) любимую Вами клавишу F1.

[nikolai_P]

Спасибо, ДМИДМИ!
Ваша помошь была для меня просто неоценима, ПОТОМУ что я ее просто не смог оценить!

А историю темы тоже можно иногда пролистывать

(Занудствует.)

Я уже писал

Если можно, то опишите ответ попроше. Я новичок в программировании.

[дмидми]

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

что делать с этим

Для начала я бы выяснил, как туда затесалось D4:D5.
А вообще с часто правильной идеей - задать список ячеек с одинаковым форматом - можно делать что угодно. Например,

    Dim v
    For Each v In Split("E10:E12,F10:F12,G10:G12,I10:I12,M10:M12,P10:P12,D4:D5", ",")
        Worksheets(L).Range(v).NumberFormat = "#,##0.00"
    Next

А можно и ещё что-нибудь
Вот только способы адресации ячеек/диапазонов листа предварительно придётся изучить.

[дмидми]

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

Я уже писал: "Если можно, то опишите ответ попроше".

Так что мешает спросить, если и в ответе (моём ли, или чьём ещё) что-то непонятно?

Только не слишком увлекайтесь, а то ведь могут послать не только книжку читать... Прежде чем спрашивать других, приличным новичкам полагается подумать собственноручно.
Переписывать сюда какой-нибудь "VBA для начинающих" никто не станет - во всяком случае, в полном объёме

[nikolai_P]

Хорошо пойду поищу соратников по своему уровню, а то ведь этот форум для професионала ДМИДМИ!

[дмидми]

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

пойду поищу соратников по своему уровню

Обмениваться ошибочными и корявыми решениями? Ну-ну... Бог помощь.

[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

ЧТО НЕ ТАК?

вам бы почитать основы..


передаваемые в процедуру параметры, имеют там свои имена. Соответствие устанавливается позиционно.

Т.е L=L, но F=C..

внутри процедуры надо оперировать внутренними именами.

таким образом правильным будет: sheets(L).Cells(1, 1).Font.Size = С

[slan]

Сообщение от дмидми

Так что мешает спросить, если и в ответе (моём ли, или чьём ещё) что-то непонятно?

Только не слишком увлекайтесь, а то ведь могут послать не только книжку читать... Прежде чем спрашивать других, приличным новичкам полагается подумать собственноручно.
Переписывать сюда какой-нибудь "VBA для начинающих" никто не станет - во всяком случае, в полном объёме

подумать собственноручно - понравилось