MsgBox кнопка Ок что бы запускала макрос.
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] У меня просто выводит сообщение. Спасибо. Извиняюсь, не посмотрел где создал тему.
Добрый день. Подскажите пожалуйста как привязать кнопку "Ок" к макросу в MsgBox. В интернете ничего не смог найти. [vba]Код
Sub hf() Set zx = Worksheets("Основа") MsgBox "Выполнить очитску?", vbOKCancel, "Основа" If vbOK = True Then zx.Range("B4").ClearContents End If End Sub
[/vba] У меня просто выводит сообщение. Спасибо. Извиняюсь, не посмотрел где создал тему. Kinder
"И все таки она вертится!"
Сообщение отредактировал Kinder - Воскресенье, 21.12.2014, 15:36
Ответить
Сообщение Добрый день. Подскажите пожалуйста как привязать кнопку "Ок" к макросу в 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:35
Gustav
Дата: Воскресенье, 21.12.2014, 15:41 |
Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2761
Репутация:
1140
±
Замечаний:
0% ±
начинал с Excel 4.0, видел 2.1
Не в тот форум. Раз. Элементарный хэлп по этой функции читали? Два.
Не в тот форум. Раз. Элементарный хэлп по этой функции читали? Два. Gustav
МОИ: Ник , Tip box: 41001663842605
Ответить
Сообщение Не в тот форум. Раз. Элементарный хэлп по этой функции читали? Два. Автор - Gustav Дата добавления - 21.12.2014 в 15:41
Kinder
Дата: Воскресенье, 21.12.2014, 15:51 |
Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 77
Репутация:
0
±
Замечаний:
0% ±
По поводу форума извинился сразу. По поводу хелпа читал. Толком ничего не понял. Благодарю за ответ.
По поводу форума извинился сразу. По поводу хелпа читал. Толком ничего не понял. Благодарю за ответ. Kinder
"И все таки она вертится!"
Ответить
Сообщение По поводу форума извинился сразу. По поводу хелпа читал. Толком ничего не понял. Благодарю за ответ. Автор - Kinder Дата добавления - 21.12.2014 в 15:51
Gustav
Дата: Воскресенье, 21.12.2014, 16:32 |
Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2761
Репутация:
1140
±
Замечаний:
0% ±
начинал с Excel 4.0, видел 2.1
Поиском по нашему сайту поищите MsgBox. И расположите ее справа от знака равенства, как в примерах, которые найдет поиск.
Поиском по нашему сайту поищите MsgBox. И расположите ее справа от знака равенства, как в примерах, которые найдет поиск. Gustav
МОИ: Ник , Tip box: 41001663842605
Ответить
Сообщение Поиском по нашему сайту поищите MsgBox. И расположите ее справа от знака равенства, как в примерах, которые найдет поиск. Автор - Gustav Дата добавления - 21.12.2014 в 16:32
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] Вопрос закрыт. Спасибо!!!
По поиску не смог найти то что мне нужно. Решил таким образом: [vba]Код
Sub gh() Set zx = Worksheets("Основа") If MsgBox("Выполнить очистку?", vbOKCancel, "Очистка") = vbOK Then zx.Range("B4:I18").ClearContents Else: Exit Sub End If End Sub
[/vba] Вопрос закрыт. Спасибо!!! Kinder
"И все таки она вертится!"
Сообщение отредактировал Kinder - Воскресенье, 21.12.2014, 17:21
Ответить
Сообщение По поиску не смог найти то что мне нужно. Решил таким образом: [vba]Код
Sub gh() Set zx = Worksheets("Основа") If MsgBox("Выполнить очистку?", vbOKCancel, "Очистка") = vbOK Then zx.Range("B4:I18").ClearContents Else: Exit Sub End If End Sub
[/vba] Вопрос закрыт. Спасибо!!! Автор - Kinder Дата добавления - 21.12.2014 в 17:21
Gustav
Дата: Воскресенье, 21.12.2014, 18:40 |
Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2761
Репутация:
1140
±
Замечаний:
0% ±
начинал с Excel 4.0, видел 2.1
Ну дык, совершенно же правильным образом. И главное - практически самостоятельно, что всегда особо ценно
Ну дык, совершенно же правильным образом. И главное - практически самостоятельно, что всегда особо ценно Gustav
МОИ: Ник , Tip box: 41001663842605
Ответить
Сообщение Ну дык, совершенно же правильным образом. И главное - практически самостоятельно, что всегда особо ценно Автор - Gustav Дата добавления - 21.12.2014 в 18:40
Kinder
Дата: Воскресенье, 21.12.2014, 19:20 |
Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 77
Репутация:
0
±
Замечаний:
0% ±
Спасибо. Обычно время не позволяет долго искать решение самому.(((
Спасибо. Обычно время не позволяет долго искать решение самому.((( Kinder
"И все таки она вертится!"
Ответить
Сообщение Спасибо. Обычно время не позволяет долго искать решение самому.((( Автор - Kinder Дата добавления - 21.12.2014 в 19:20