Переменная для всей USERFORM

СердЖиГ Гость	#1 29.05.2008 17:30:35 Уважаемые Эксперты! Подскажите, плиззз, как мне объявить переменную и присвоить ей значение, чтобы она была доступна всему коду этой формы. Заранее благодарен!

СердЖиГ Гость	#2 29.05.2008 17:34:44 Dim i As Integer i = ActiveCell.Row

СердЖиГ Гость	#3 29.05.2008 17:36:45 :-( не работает, ругается

СердЖиГ

Гость

29.05.2008 17:52:05

Короче, есть форма с замутным кодом. И в каждой процедуре используется переменная i = ActiveCell.Row (объявлял её в каждой процедуре).
Сейчас встала задача нажатием кнопки увеличивать i на 1(i=i+1) во всех процедурах userform, для этого, я понимаю, нуно её объявить и обозначить на общем уровне, а как это сделать не могу понять.
Прошу помощи!

Гость

29.05.2008 18:19:27

{quote}{login=СердЖиГ}{date=29.05.2008 05:52}{thema=Народ помогите плизз!}{post}Короче, есть форма с замутным кодом. И в каждой процедуре используется переменная i = ActiveCell.Row (объявлял её в каждой процедуре).
Сейчас встала задача нажатием кнопки увеличивать i на 1(i=i+1) во всех процедурах userform, для этого, я понимаю, нуно её объявить и обозначить на общем уровне, а как это сделать не могу понять.
Прошу помощи!{/post}{/quote}
Написать первой строчкой кода формы:
Dim i
и нигде ниже по коду эту фразу больше не произносить.

Пример кода формы:

Dim i

' Задаем i
Sub МояПроцеДура()
i = ActiveCell.Row
End Sub

' Увеличиваем i на единичку
Private Sub CommandButton1_Click()
i = i + 1
MsgBox i
End Sub

СердЖиГ

Гость

29.05.2008 18:30:00

{quote}{login=:)}{date=29.05.2008 06:19}{thema=Re: Народ помогите плизз!}{post}{quote}{login=СердЖиГ}{date=29.05.2008 05:52}{thema=Народ помогите плизз!}{post}Короче, есть форма с замутным кодом. И в каждой процедуре используется переменная i = ActiveCell.Row (объявлял её в каждой процедуре).
Сейчас встала задача нажатием кнопки увеличивать i на 1(i=i+1) во всех процедурах userform, для этого, я понимаю, нуно её объявить и обозначить на общем уровне, а как это сделать не могу понять.
Прошу помощи!{/post}{/quote}
Написать первой строчкой кода формы:
Dim i
и нигде ниже по коду эту фразу больше не произносить.

Пример кода формы:

Dim i

' Задаем i
Sub МояПроцеДура()
i = ActiveCell.Row
End Sub

' Увеличиваем i на единичку
Private Sub CommandButton1_Click()
i = i + 1
MsgBox i
End Sub{/post}{/quote}

:-) Спасиб огромный!!! Сейчас попробую. Я знал, что истина где-то рядом :-)

СердЖиГ

Гость

29.05.2008 19:06:26

{quote}{login=СердЖиГ}{date=29.05.2008 06:30}{thema=Re: Re: Народ помогите плизз!}{post}{quote}{login=:)}{date=29.05.2008 06:19}{thema=Re: Народ помогите плизз!}{post}{quote}{login=СердЖиГ}{date=29.05.2008 05:52}{thema=Народ помогите плизз!}{post}Короче, есть форма с замутным кодом. И в каждой процедуре используется переменная i = ActiveCell.Row (объявлял её в каждой процедуре).
Сейчас встала задача нажатием кнопки увеличивать i на 1(i=i+1) во всех процедурах userform, для этого, я понимаю, нуно её объявить и обозначить на общем уровне, а как это сделать не могу понять.
Прошу помощи!{/post}{/quote}
Написать первой строчкой кода формы:
Dim i
и нигде ниже по коду эту фразу больше не произносить.

Пример кода формы:

Dim i

' Задаем i
Sub МояПроцеДура()
i = ActiveCell.Row
End Sub

' Увеличиваем i на единичку
Private Sub CommandButton1_Click()
i = i + 1
MsgBox i
End Sub{/post}{/quote}

:-) Спасиб огромный!!! Сейчас попробую. Я знал, что истина где-то рядом :-){/post}{/quote}

Не работает :-(((( ругается на строку, в которой в первые появляется эта переменная....ничё не понял...как же быть :-(

Лузер Гость	#8 29.05.2008 20:27:17 Я так понимаю, что код формы не отличается принципиально от обычного модуля А в модуле объявляем так: Public i Sub a() i = 1 End Sub Sub b() i = i + 1 End Sub

Гость

31.05.2008 04:57:54

{quote}{login=СердЖиГ}{date=29.05.2008 07:06}{thema=Re: Re: Re: Народ помогите плизз!}{post}{quote}{login=СердЖиГ}{date=29.05.2008 06:30}{thema=Re: Re: Народ помогите плизз!}{post}{quote}{login=:)}{date=29.05.2008 06:19}{thema=Re: Народ помогите плизз!}{post}{quote}{login=СердЖиГ}{date=29.05.2008 05:52}{thema=Народ помогите плизз!}{post}...{/post}{/quote}
Написать первой строчкой кода формы:
Dim i
и нигде ниже по коду эту фразу больше не произносить.

Пример кода формы:

Dim i

' Задаем i
Sub МояПроцеДура()
i = ActiveCell.Row
End Sub

' Увеличиваем i на единичку
Private Sub CommandButton1_Click()
i = i + 1
MsgBox i
End Sub{/post}{/quote}

:-) Спасиб огромный!!! Сейчас попробую. Я знал, что истина где-то рядом :-){/post}{/quote}
Не работает :-(((( ругается на строку, в которой в первые появляется эта переменная....ничё не понял...как же быть :-({/post}{/quote}
Как это не работает?
Здесь вот лежит файл и работает - смотрите код в форме.

Прикрепленные файлы

post_18963.xls (23.5 КБ)

СердЖиГ Гость	#10 31.05.2008 17:41:33 Всем спасибо! Всё получилось!

Читают тему