VbA и CommandButton

[baranich]

Такой вопрос, можно ли на посчитать, количество кликов на кнопку и присвоить это значение какой-нибудь переменной. заранее спасибо.

[uhm]

Естественно. Например, так: в событии Click определяешь переменную как Static (Static a As Integer). Такое объявление означает, что значение переменной будет сохраняться даже после выхода из процедуры. После этого пропиши в процедуре a=a+1, и все. Переменная a будет содержать количество кликов.

Можно вместо Static объявить Public переменную.

[baranich]

у меня выдает ошибку,
Expected: identifier.
Почему?

[uhm]

Где?

[baranich]

Код: Выделить всё

Private Sub CommandButton3_Click(static a As Integer)
Holliday(a) = CInt(ComboBox1.Text)
a = a + 1
End Sub

как только я добавела, и сразу выскакивает сообщение

[uhm]

Не в объявлении функции, а в самой функции:

Код: Выделить всё

Код:

Private Sub CommandButton3_Click ()
Static a As Integer
...
End Sub




[baranich]

Спасибо за совет

[baranich]

Другой вопрос: есть

ThisDocument.TextBox1.Text=FirstOfNextMonth

т.е TextBox получает дату в виде 10.01.05, а мне надо чтобы месяц был написан, т.е не 01, а январь

[baranich]

Вопрос

Код: Выделить всё

For i = 70 To 92
    While (Weekday(FirstOfNextMonth) = 1) Or (Weekday(FirstOfNextMonth) = 7)
        For oa = 0 To p
            While (FirstOfNextMonth = WDay(oa))
                a(i) = FirstOfNextMonth
                Exit For
     
            Wend
        Next oa
       FirstOfNextMonth = FirstOfNextMonth + 1
    Wend
............
............
............

FirstOfNextMonth = FirstOfNextMonth + 1


Вопрос вот в чем, можно ли на VBA сделать чтобы в цикле While (FirstOfNextMonth = WDay(oa)) после Exit For вставить какой-нибудь оператор(я не знаю существует он или нет), который позволял бы пройти мимо операции(они показаны точками) и сразу переходил на операцию FirstOfNextMonth = FirstOfNextMonth + 1[/code]

[FLAGER]

А если просто GoTO?

[alibek]

Можно еще If oa <= p
Но данный код неправильный. Правильно было бы использовать не While...Wend, а Do...Loop и предварительно делать Exit Do.

[baranich]

спасибо за советы