Выполнение макроса по условию

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

Выполнение макроса по условию (Макросы/Sub)

televnoy

Дата: Четверг, 18.09.2014, 08:56 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 120

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

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

Excel 2010

Имеется форма с кнопкми на одну из них задан макрос -

[vba]

Код

Private Sub CommandButton1_Click()
If TextBox1.Text = "123" Then UserForm1.Hide _
Else MsgBox "Вы ввели неверный пароль! Попробуйте еще раз."
End Sub

[/vba]

Требуется что при правильном вводе и нажатию кнопки продолжить выполнялся макроc "ПРИВЕТ !!!" (это для примера)

Пробывал как то так но ошибка

[vba]

Код

Private Sub CommandButton1_Click()
If TextBox1.Text = "123" Then UserForm1.Hide.Application.Run "Primer.xls!ПРИВЕТ" _
Else MsgBox "Вы ввели неверный пароль! Попробуйте еще раз."
End Sub

[/vba]

К сообщению приложен файл: Primer.xls (37.5 Kb)

О-па! 0_o

Ответить

televnoy

Дата: Четверг, 18.09.2014, 09:04 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 120

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

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

Excel 2010

Простите ради бога лентяя...
Решил пример таким образом...
Удалил UserForm1.Hide.
[vba]

Код

Private Sub CommandButton1_Click()
If TextBox1.Text = "123" Then Application.Run "Primer.xls!ПРИВЕТ" _
Else MsgBox "Вы ввели неверный пароль! Попробуйте еще раз."
End Sub

[/vba]
А в начало выплняемого макроса добавил то что удалил
UserForm1.Hide.
И получил что то вроде этого

[vba]

Код

Sub ПРИВЕТ()
UserForm1.Hide
MsgBox "Привет !!!"
End Sub

[/vba]
И получается что при правильном вводе пароля закрывается форма (ввода пароля) и выполняется все остальное.

О-па! 0_o

Сообщение отредактировал televnoy - Четверг, 18.09.2014, 09:05

Ответить

televnoy

Дата: Четверг, 18.09.2014, 09:06 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 120

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

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

Excel 2010

Если у кого то будут другие решения буду рад попробывать и их...

О-па! 0_o

Ответить

_Boroda_

Дата: Четверг, 18.09.2014, 09:08 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16957

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Private Sub CommandButton1_Click()
If TextBox1.Text = "123" Then UserForm1.Hide: ПРИВЕТ _
Else: MsgBox "Вы ввели неверный пароль! Попробуйте еще раз."
End Sub

[/vba]
Или классический вид
[vba]

Код

Private Sub CommandButton1_Click()
     If TextBox1.Text = "123" Then
         UserForm1.Hide
         ПРИВЕТ
     Else
         MsgBox "Вы ввели неверный пароль! Попробуйте еще раз."
     End If
End Sub

[/vba]

К сообщению приложен файл: Primer4_1.xls (43.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

televnoy

Дата: Четверг, 18.09.2014, 09:32 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 120

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

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

Excel 2010

_Boroda_, Спасибо,за примеры. Только вот вопрос возник, а можно ли , таким образом перечислить выполняемые макросы?

Что то типа этого (не знаю какой знак ставить честно)
[vba]

Код

Private Sub CommandButton1_Click()
If TextBox1.Text = "123" Then UserForm1.Hide: ПРИВЕТ: ПРИВЕТ1: ПРИВЕТ2 _
Else: MsgBox "Вы ввели неверный пароль! Попробуйте еще раз."
End Sub

[/vba]

ну или так

[vba]

Код

Private Sub CommandButton1_Click()
      If TextBox1.Text = "123" Then
          UserForm1.Hide
          ПРИВЕТ
          ПРИВЕТ1
          ПРИВЕТ2
      Else
          MsgBox "Вы ввели неверный пароль! Попробуйте еще раз."
      End If
End Sub

[/vba]

О-па! 0_o

Сообщение отредактировал televnoy - Четверг, 18.09.2014, 09:33

Ответить

televnoy

Дата: Четверг, 18.09.2014, 09:40 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 120

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

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

Excel 2010

Последнее получилось... А как записать в строку? Не "классическим" примером

О-па! 0_o

Ответить

Выполнение макроса по условию (Макросы/Sub)

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