MsgBox кнопка Ок что бы запускала макрос.

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » MsgBox кнопка Ок что бы запускала макрос. (Excel)

Kinder

Дата: Воскресенье, 21.12.2014, 15:35 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 77

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

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

Добрый день.
Подскажите пожалуйста как привязать кнопку "Ок" к макросу в MsgBox.
В интернете ничего не смог найти.
[vba]

Код

Sub hf()
Set zx = Worksheets("Основа")

   MsgBox "Выполнить очитску?", vbOKCancel, "Основа"
   If vbOK = True Then
   zx.Range("B4").ClearContents
   End If

End Sub

[/vba]
У меня просто выводит сообщение.
Спасибо.

Извиняюсь, не посмотрел где создал тему.

"И все таки она вертится!"

Сообщение отредактировал Kinder - Воскресенье, 21.12.2014, 15:36

Ответить

Gustav

Дата: Воскресенье, 21.12.2014, 15:41 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2757

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

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

начинал с Excel 4.0, видел 2.1

Не в тот форум. Раз. Элементарный хэлп по этой функции читали? Два.

МОИ: Ник, Tip box: 41001663842605

Ответить

Kinder

Дата: Воскресенье, 21.12.2014, 15:51 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 77

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

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

По поводу форума извинился сразу.
По поводу хелпа читал. Толком ничего не понял.
Благодарю за ответ.

"И все таки она вертится!"

Ответить

Gustav

Дата: Воскресенье, 21.12.2014, 16:32 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2757

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

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

начинал с Excel 4.0, видел 2.1

Поиском по нашему сайту поищите MsgBox. И расположите ее справа от знака равенства, как в примерах, которые найдет поиск.

МОИ: Ник, Tip box: 41001663842605

Ответить

Kinder

Дата: Воскресенье, 21.12.2014, 17:21 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 77

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

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

По поиску не смог найти то что мне нужно.
Решил таким образом:
[vba]

Код

Sub gh()
Set zx = Worksheets("Основа")
   If MsgBox("Выполнить очистку?", vbOKCancel, "Очистка") = vbOK Then
   zx.Range("B4:I18").ClearContents
   Else: Exit Sub
   End If
End Sub

[/vba]
Вопрос закрыт.
Спасибо!!!