Vba excel показать окно

«Немедленное окно» может быть полезным инструментом при работе с VBA в Excel.

Окно «Немедленное» позволяет быстро выполнять такие действия, как:

• Получить информацию о файлах Excel (например, количество листов в книге или название книги)
• Получите отладку и быстро распечатайте информацию
• Выполнить строку кода за секунды
• Запустить макрос (или вызвать функцию)
• Получить информацию о переменных (или установить значение или переменные)

Хотя вам не нужно использовать немедленное окно для работы с VBA в Excel, умение правильно его использовать может сделать вас намного эффективнее.

В этом уроке я расскажу все, что вам нужно знать о немедленном окне и о том, как его лучше всего использовать (объяснено с примерами).

Давайте начнем!

Immediate Window — это часть редактора VB, которую вы можете использовать для быстрых действий.

В качестве примера: если у вас есть книга с некоторыми скрытыми листами, и вы хотите быстро узнать общее количество листов, вы можете сделать это за несколько секунд с помощью окна «Немедленное».

Immediate Window делает гораздо больше (как вы увидите позже в этом руководстве). Но для начала давайте представим себе немедленное окно как инструмент, который поможет вам ускорить работу в Excel VBA.

Где найти непосредственное окно?

Когда вы открываете Excel VB-Editor, вы уже можете видеть непосредственное окно как часть VB Editor. И если вы его еще не видите, вы можете легко заставить его появиться.

Ниже приведены шаги, чтобы открыть редактор VB и сделать видимым окно Immediate Window:

1. Перейдите на вкладку «Разработчик» на ленте Excel (если вы не видите вкладку «Разработчик», нажмите здесь, чтобы узнать, как ее получить)
2. В группе кода нажмите «Visual Basic». Это откроет редактор VB
3. В редакторе VB нажмите на опцию «Просмотр» в меню.
4. Щелкните Немедленное окно. Это приведет к немедленному отображению окна в редакторе VB.

Если вам удобнее работать с ярлыками, ниже приведены некоторые из них, чтобы ускорить выполнение вышеуказанных шагов:

• Чтобы открыть редактор VB — ALT + F11 (это работает, даже если у вас нет вкладки Разработчик на ленте)
• Чтобы показать ближайшее окно — Ctrl + G (используйте это, редактор VB открыт)

Примеры использования немедленного окна в Excel VBA

Теперь, когда вы знаете, где найти непосредственное окно, давайте рассмотрим несколько замечательных примеров, где вы можете использовать его при работе с Excel VBA.

Получите информацию о файлах / книгах

«Немедленное окно» — это место, где вы можете задать вопросы о рабочих тетрадях, и оно сразу же даст вам ответ.

Например, предположим, что у вас есть рабочая книга, и вы хотите узнать, сколько листов в ней, вы можете ввести приведенный ниже код в непосредственном окне и нажать клавишу ввода.

? ActiveWorkbook.Sheets.Count

Это мгновенно сообщит вам общее количество листов в активной книге.

Это может быть полезно, когда у вас есть книга, в которой много листов, и вы не можете подсчитать ее вручную (или не хотите), или когда у вас есть книга, в которой есть скрытые листы, и вы хотите узнать общую сумму. считать.

? (знак вопроса) предполагается использовать перед запросом, чтобы VBA мог понять, что вы задаете вопрос. Если вы не используете этот вопросительный знак, немедленное окно не даст вам подробностей / ответа.

Это действительно простой пример, в котором Immediate Window дает вам некоторую информацию и экономит время.

Ниже приведены еще несколько примеров:

Чтобы получить имя активной книги

? ActiveWorkbook.Name

Чтобы получить имя активного листа

? Activesheet.Name

Чтобы получить путь к Рабочей книге (адрес, где она сохранена)

? ActiveWorkbook.Path

Поэтому, если вам что-то нужно об объекте (например, рабочая книга, листы, диаграммы, фигуры, диапазон и т. Д.), Вы можете использовать немедленное окно, чтобы быстро получить эту информацию.

Получить информацию об отладке.

В Excel VBA Debug.Print используется для мгновенного отображения значения переменной в непосредственном окне.

Например, приведенный ниже код мгновенно отобразит сообщение «Доброе утро» в ближайшем окне.

Sub DisplayMessage () Debug.Print "Доброе утро" End Sub

Вы можете использовать строку Debug.Print в своем коде, чтобы быстро получить некоторые данные в непосредственном окне или для отладки кода.

Например, если вы хотите получить имена всех листов в книге, вы можете использовать следующий код:

Sub GetSheetNames () Для каждого sh в ActiveWorkbook.Sheets Debug.Print sh.Name Next sh End Sub

Приведенный выше код просматривает каждый лист в активной книге и дает имя в ближайшем окне.

Debug.Print — полезный метод отладки кода. Например, если вы запускаете цикл и хотите узнать, сколько раз он был запущен, вы можете просто разместить строку Debug.Print, которая просто показывает увеличивающиеся числа при выполнении каждого цикла.

Если вы используете Отладка.Печать чтобы отладить код, не забудьте удалить его, когда закончите.

Запустить макрос (или функцию)

Хотя есть разные способы запустить макрос в Excel, один из быстрых способов — использовать немедленное окно.

Чтобы запустить макрос, все, что вам нужно сделать, это ввести имя макроса в непосредственном окне и нажать клавишу ввода (чтобы это работало, в конце имени макроса должен быть курсор).

Ниже приведен пример, в котором, как только вы вводите имя макроса в непосредственном окне, он запускает код (где код отображает сообщение «Доброе утро» в непосредственном окне).

Это может быть полезно, если у вас есть код и вы хотите проверить, работает ли он должным образом или нет. У вас может быть одна или несколько строк Debug.Print в коде и запускать макрос прямо из окна.

Он мгновенно покажет вам значения в ближайшем окне, и вы можете проверить, все ли работает нормально или нет.

Вы также можете использовать непосредственное окно для выполнения пользовательских функций.

Например, в приведенном ниже примере создается функция для проверки, четное или нечетное число. Вы можете запустить эту функцию из непосредственного окна, набрав функцию с аргументом, который она принимает. В этом случае вам нужно использовать вопросительный знак, поскольку вы просите его вернуть значение, хранящееся в функции.

Выполнить строку кода (или несколько строк кода)

В немедленном окне вы также можете запустить строку кода (или несколько строк кода).

Самое приятное в этом то, что вы можете просто открыть непосредственное окно, запустить код и закрыть (в отличие от макроса, который вы должны поместить в окно модуля, а затем выполнить).

Сценарий использования, в котором это может быть полезно, — это когда нужно быстро показать все листы в книге.

Ниже приведен код, который можно разместить в непосредственном окне, чтобы отобразить все листы в книге. Поместите курсор в конец строки и как только вы нажмете клавишу ввода, он покажет все листы.

Для каждого листа в Thisworkbook.Sheets: Sheet.Visible = True: Next Sheet

Обратите внимание: хотя это выглядит как одна строка кода, она состоит из трех частей.

Каждая часть отделяется: (двоеточием), который действует как разрыв строки. Это позволяет вам использовать цикл For Next в непосредственном окне для просмотра каждого листа и изменения свойства visible на TRUE (которое показывает любой скрытый лист).

Получить значения переменных

Когда вы начнете создавать сложные коды VBA, вам придется полагаться на переменные для выполнения этой работы.

Переменная — это то, что содержит значение, и это значение может изменяться во время выполнения кода. Вы можете использовать немедленное окно для проверки значений этих переменных.

Ниже приведен простой код, который дает сумму первых 10 положительных целых чисел и показывает результат в ближайшем окне.

Sub AddFirstTenNumbers () Dim Var As Integer Dim i As Integer Dim k As Integer For i = 1 To 10 k = k + i Next i Debug.Print i, k End Sub

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

Если это не дает ожидаемых результатов, вы можете отладить код.

Многие люди используют окно сообщения при отладке кода. Хотя он работает нормально, я нахожу его немного навязчивым, поскольку он переносит меня в книгу Excel и показывает окно сообщения. С другой стороны, использование немедленного окна для отладки намного удобнее и позволяет мне оставаться в самом редакторе Visual Basic.

Примечание. Если вы работаете со сложным кодом и у вас есть несколько переменных, которые нужно отслеживать, лучше использовать окно просмотра. Окно просмотра позволяет вам добавить переменную, а затем вы можете увидеть, как эта переменная изменяется в реальном времени (или по мере выполнения кода).

Установить значение переменной при отладке

Это немного продвинутое использование окна Immediate, но если вы его используете, оно может значительно сэкономить время при отладке кода.

Вы можете использовать непосредственное окно, чтобы установить значение переменной во время выполнения кода в режиме отладки (где вы устанавливаете точку останова, чтобы код не выполнялся полностью — но до определенной строки).

Например, если у вас есть цикл, который выполняется 10 раз, и вы хотите проверить, что происходит, когда цикл выполняется в 8-й раз, вам не нужно выполнять цикл семь раз, чтобы перейти к восьмым итерациям. Вы можете просто добавить точку останова перед циклом и изменить переменную цикла на 8. Теперь, когда вы запустите код, он покажет вам, что происходит, когда цикл запускается в 8-й раз.

Это становится намного более полезным, когда вы пишете сложные коды и хотите отлаживать определенные циклы.

Предположим, у вас есть код, показанный ниже:

Sub Показать таблицы () For i = 1 To Worksheets.Count Debug.Print Sheets (i). Name Next i End Sub

Приведенный выше код просто перечисляет имена всех листов в книге в непосредственном окне.

Если вы не хотите перечислять имена всех листов, а только листы после 10-го листа, вы можете разместить точку останова во второй строке цикла (чтобы ничего не выполнялось после этой строки), а затем изменить переменная ‘i’ равняется 11.

Чтобы изменить имя переменной в непосредственном окне, введите следующую строку:

я = 11

Это гарантирует, что первые 10 раз цикла будут проигнорированы, а значение вашей переменной будет установлено на 11.

Закрепление / открепление немедленного окна

Вы можете сразу же прикрепить окно к редактору VB — это означает, что оно остается в одном месте в редакторе VB и перемещается и изменяется вместе с ним.

И вы также можете отключить его, что означает, что он не зависит от редактора VB и может быть перемещен как отдельное окно.

Ниже описано, как изменить настройки стыковки для непосредственного окна:

1. Выберите пункт «Инструменты» в меню редактора VB.
2. Нажмите «Параметры».
3. В диалоговом окне «Параметры» щелкните последнюю вкладку — «Стыковка».
4. Установите флажок «Немедленное окно», чтобы сделать его закрепляемым, и снимите флажок, чтобы его нельзя было закрепить.
5. Нажмите ОК.

В качестве альтернативы, если непосредственное окно видно, вы также можете щелкнуть правой кнопкой мыши и изменить его закрепляемое свойство.

Закрепляемое означает, что непосредственное окно станет частью существующего окна, разместив себя в определенных местах, например, в левой части окна или внизу. Это позволяет закрепленным окнам перемещаться и изменяться вместе.

Немедленное окно не отображается — вот несколько способов его получить

Это могло произойти по нескольким причинам.

Самая распространенная причина, по которой вы не видите окно сразу, — это то, что оно не стало видимым. Он может быть не виден по умолчанию, и чтобы он появился, вам нужно перейти к опции «Просмотр» в меню и выбрать опцию «Немедленное окно». Это сделает его видимым в редакторе VB.

Вы также можете использовать клавиатуру Control + G, чтобы немедленно отобразить окно. Используйте это сочетание клавиш, пока вы находитесь в редакторе VB.

Другая причина, по которой вы можете не видеть это окно, заключается в том, что оно было свернуто и теперь настолько закрыто, что вы не можете его видеть (как указано здесь). Просто сделайте быстрое сканирование и проверьте, не видите ли вы где-то маленький синий / красный квадрат. Вы можете навести на него курсор, и вы увидите возможность изменить его размер.

Если вы вообще не видите непосредственное окно, вот кое-что, что сработало для многих людей (это часто случается из-за изменения разрешения экрана):

1. Откройте редактор VB
2. Нажмите Ctrl-G, чтобы переключить фокус на немедленное окно (или выберите опцию View в меню, а затем щелкните на немедленном окне)
3. Удерживая клавишу ALT, нажмите клавишу пробела. Это покажет раскрывающиеся варианты для немедленного окна.
4. Нажмите M (для перемещения)
5. Используйте клавиши со стрелками для перемещения окна
6. Как только вы выясните, где он находится, увеличьте его

Я получил это на форуме здесь, а также заметил, что то же самое, что предлагается в качестве решения для немедленного окна VBA, не отображается.

Еще одна вещь, которую вы можете попробовать, — это сделать немедленное окно отключаемым (перейдите в Инструменты -> Параметры -> Закрепление и снимите флажок с опции немедленного окна). У некоторых это сработало.

Вам также могут понравиться следующие статьи:

• Персональная книга макросов Excel | Сохранение и использование макросов во всех книгах
• Циклы Excel VBA: для «Далее», «Сделать пока», «Сделать до», «Для каждого» (с примерами)
• Работа с листами с использованием Excel VBA
• Создание пользовательской функции (UDF) в Excel VBA

VBA Immediate Window является удивительным инструментом, который позволяет получить моментальные ответы о ваших файлах Excel, и быстро выполнить код. Он встроен в редактор Visual Basic и имеет множество различных применений, которые могут быть очень полезны при написании макросов, отладке кода и отображении результатов кода.

Каждый пользователь Excel может получить выгоду от Immediate Window, даже если вы не пишете макросы. Эта статья расскажет про 5 различных применений Immediate Window. Как только вы поймете возможности этого инструмента, вы будете использовать его постоянно.

Immediate Window
находится в окне редактора Visual Basic.

Самый быстрый способ добраться до Immediate Window — это:

1. Нажмите Alt + F11 (удерживая клавишу Alt, затем нажмите клавишу F11) из любой места Excel. Откроется окно редактора Visual Basic. (Mac версия Fn + Alt + F11)
2. Нажатие Ctrl + G открывает окно Immediate и помещает текстовый курсор в него. Начните вводить свой код. (Версия для Mac — Ctrl + Cmd + G)

Когда вы откроете VB Editor (Alt + F11 ), вы можете увидеть, что Immediate Window автоматически появляется в правом нижнем углу. Это его местоположение по умолчанию. Если его там нет, вы можете нажать Ctrl + G или
меню View> Immediate Window.

Эта пустая коробка волшебна!

Когда вы щелкнете внутри Immediate Window, вы увидите пустое
поле с мигающим текстовым курсором. На первый взгляд это не слишком увлекательно,
но Immediate Window может быть очень мощным и полезным инструментом.

Думайте об этом, как о пустой ячейке на листе. Довольно скучно, пока вы не добавите формулу, верно?

Итак, давайте рассмотрим 5 примеров, которые помогут вам извлечь максимальную пользу из этой волшебной коробки.

# 1 — Получить информацию об активной книге

Простейшее использование Immediate Window — это быстрое получение информации о Excel-файле, который в данный момент открыт и активен в фоновом режиме. Вы можете проверить любую строку кода VBA в Immediate Window, и она сразу же даст вам результат.

Например, чтобы узнать, сколько листов в активной книге, введите следующую строку кода в Immediate Window и нажмите клавишу «Enter».

?Activeworkbook.Worksheets.Count

Ответ будет отображен в следующей строке Immediate Window,
прямо под кодом.

Задайте вопрос, любой вопрос …

Помещение знака вопроса (?) в начале оператора говорит Immediate Window, что мы задаем ему вопрос и ожидаем результата.

В следующем скриншоте показано несколько примеров того, как мы можем использовать Immediate Window для получения значения, формата чисел и цвета заливки активной ячейки.

Обратите внимание, что Immediate Window отображает интеллектуальные подсказки в тот момент, когда я печатаю. Intellisense — это раскрывающееся меню, в котором отображаются свойства и методы объекта, на который я ссылаюсь. Это позволяет очень быстро и легко вводить код в Immediate Window.

# 2 — Выполнить строку кода VBA

Вам не нужно писать целый макрос, если вам достаточно выполнить одну строку кода в вашей книге.

Удалите знак вопроса в начале оператора, и Immediate Window выполнит эту строку кода.

 Selection.HorizontalAlignment = xlCenterAcrossSelection 

На изображении выше показано, как отформатировать выделенные ячейки с помощью выравнивания по центру выделения.

Вы также можете использовать следующую строку кода, чтобы сделать лист «очень скрытым».

Worksheets("Лист1").Visible = xlVeryHidden 

Другой пример — скрыть содержимое ячейки, сделав цвет шрифта
таким же, как цвет заливки (фона).

 Range("A1").Font.Color = Range("A1").Interior.Color

Я использую эту строку кода в инструменте оглавления Tab Hound, чтобы скрыть некоторые настройки, хранящиеся в ячейке A1. Даже если пользователь изменит цвет заливки листа, содержимое в ячейке A1 все равно будет скрыто после выполнения кода.

# 3 — Запустить макрос

Вы можете запустить макрос из Immediate Window, введя имя
макроса (процедура) и нажав Enter.

Конечно, вы также можете сделать это, нажав клавишу F5 или
кнопку «Выполнить макрос» в VB Editor, но что если ваш макрос содержит
аргументы?

Макрос не может быть запущен изнутри процедуры, если он содержит аргументы. Тем не менее, вы можете вызвать макрос из непосредственного окна.

Пример ниже представляет собой простой макрос, который вводит текущую дату (сейчас) в ячейку и меняет цвет шрифта на синий (Color = vbBlue). Этот макрос требует, чтобы для запуска ему было передано два аргумента: имя листа и адрес ячейки, где будет введена отметка даты.

Для такого макроса вы обычно будете вызывать его из другого
макроса и указывать аргументы в макросе, который его вызывает. Но если вы
просто хотите протестировать макрос, содержащий аргументы, вы можете
использовать Immediate Window для его вызова.

Это отлично подходит для написания и отладки кода. Возможно,
вы не захотите запускать весь стек процедур (макросов) в коде, но вы можете
использовать Immediate Window, чтобы вызывать только тот конкретный макрос, над
которым вы работаете.

В приведенном выше примере показано, как можно указать
аргументы после имени макроса. Для аргументов, которые являются строковыми
переменными (текст), вам необходимо заключить переменную в кавычки.

Как вы можете видеть на изображении, интеллектуальный помощник доступен в Immediate Window, что позволяет легко указать аргументы для макроса.

# 4 — Просмотр информации об отладке

Вы когда-нибудь видели в Интернете код VBA, в котором есть строка, подобная следующей?

Debug.Print xxxxx

«xxxxx» являются некоторой переменной, которую код вычисляет или производит.

Debug.Print говорит VBA напечатать эту информацию в Immediate Window. Это может быть полезно, когда вы хотите увидеть значение переменной в определенной строке вашего кода, без необходимости хранить переменную где-то в рабочей книге или показывать ее в окне сообщения. Это особенно полезно, когда вы пишете или отлаживаете код.

Пример ниже представляет собой макрос, который проходит по всем листам в книге и проверяет, является ли каждый лист пустым (не используется). Если лист пустой, он отображается в окне Immediate Window с помощью Debug.Print.

Конечная цель этого макроса может состоять в том, чтобы удалить все пустые листы в книге, но мы могли бы сначала протестировать код перед тем, как фактически удалить какие-либо листы.

Строка Debug.Print создает список пустых листов в Immediate Window, и затем мы можем вручную проверить каждый из этих листов, чтобы убедиться, что они действительно пустые.

# 5 — Получить или установить значение переменной

Immediate
Window также можно использовать для получения ответов о выполняемой в данный
момент процедуре (макросе). Если вы просматриваете свой код (F8) или добавляете
точку останова (F9) или добавляете строку STOP в свой код, тогда код будет
приостановлен. Когда код приостановлен, вы можете использовать Immediate
Window, чтобы получить информацию о любых переменных или объектах, на которые
есть ссылки в коде.

В следующем примере показан макрос, который создает список
всех листов в активной книге. Существует множество различных способов написания
этого кода, но в этом примере я использую переменную «lSht» в цикле «For Next»
для циклического перемещения по рабочим листам, а затем добавляю имя листа на
активный лист.

Я добавил точку останова (F9) в коде, чтобы приостановить
код при выполнении этой строки. Когда код приостановлен, Immediate Window можно
использовать для оценки или изменения переменных. На изображении выше я
использовал знак вопроса, чтобы проверить значение переменной lSht. Затем я
использовал переменную, чтобы получить имя листа, который в данный момент
обрабатывается в цикле.

Наконец, я изменил переменную lSht на 5, используя знак равенства (lSht = 5). Это эффективно пропустит некоторые листы в цикле, потому что я изменил переменную с 2 на 5.

Это простой пример, но Immediate Window может пригодиться при пошаговом выполнении кода.

Если вы хотите узнать, как я заставил Immediate Window
плавать поверх приложения Excel на некоторых скриншотах.

Этот скринкаст покажет вам, как вы можете отсоединить
Immediate Window.

Вот
пошаговые инструкции:

1. Щелкните левой кнопкой мыши и удерживайте
   верхнюю панель Immediate Window.
2. Перетащите его из окна VB Editor. Immediate
   Window становится свободным плавающим окном, которое вы можете поместить поверх
   Excel.
3. Чтобы повторно закрепить его, дважды щелкните на
   верхней панели окна.

Вы можете сделать это с любым из окон в редакторе VB,
включая окна Project, Properties, Locals и Watch. Многие разработчики
настраивают VB Editor не так, как макет по умолчанию. Некоторые предпочитают,
чтобы окна проекта и свойств располагались справа, а не слева. Окно VB Editor
дает вам большую гибкость для настройки вашего представления.

Заключение

Immediate Window — очень универсальный инструмент, который действительно может помочь при написании и отладке макросов. Это отличный способ получить быстрые ответы о вашем файле или приложении. Если вы новичок в VBA, Immediate Window будет очень полезен, когда вы начнете изучать и писать код.

Хитрости »

19 Октябрь 2014              101502 просмотров

Работа с диалогами

Несомненно каждый разработчик делает работу простого пользователя хоть немного, но проще. И конечно, порой просто необходима обратная связь от пользователя при выполнении некоторых программ. О ней и хочу сегодня рассказать.
Что я имею ввиду: есть ситуации, когда необходимо:

• сообщить пользователю о выполнении кода;
• получить от пользователя подтверждение на выполнение того или иного действия;
• запросить какие-то данные(число, текст для поиска, диапазон поиска и т.п.).

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

Из основных можно выделить три типа:
MsgBox — окно информирования пользователя с возможностью запроса действия (Да, Нет, Отмена и т.п.);
InputBox — окно запроса текстовой информации от пользователя (текст для поиска, дата, число и т.п.);
Application.InputBox — чуть более расширенная версия InputBox с возможностью указания не только текста и чисел, но и выделения диапазона ячеек (например для указания ячеек, в которых осуществлять поиск значения или которые необходимо закрасить).

• Информационный диалог MsgBox
• MsgBox, автоматически закрываемый по истечении указанного времени
• Диалог ввода информации пользователем InputBox
• Диалог выбора диапазона Application.InputBox

MsgBox "Обработка завершена"

Все остальные параметры указывать не обязательно, но их использование несколько расширяет возможности данного диалогового окна.
Buttons — указывается тип выводимых кнопок и стиль окна. По умолчанию применяется vbOKOnly — одна только кнопка Ок:

'показываем окно с кнопкой по умолчанию и типом важного сообщения
MsgBox "Обработка завершена", vbCritical

Доступны значения:

Константы Buttons могут быть объединены между собой. Ниже приведен код, который показывает диалоговое окно с возможностью выбора одного из трех вариантов — Прервать, Повтор, Пропустить:

'---------------------------------------------------------------------------------------
' Procedure : test
' DateTime  : 19.10.2014 19:24
' Author    : The_Prist(Щербаков Дмитрий)
'             WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
'             http://www.excel-vba.ru
' Purpose   : Процедура показывает диалоговое окно с возможностью выбора одного из трех вариантов:
'             Прервать, Повтор, Пропустить
'             По умолчанию выделена кнопка Прервать, т.к. иное не указано
'---------------------------------------------------------------------------------------
Sub test()
    Dim lRetVal As Long 'для получения выбранного значения
Retry_:
    lRetVal = MsgBox("Обработка завершена", vbAbortRetryIgnore + vbQuestion)
    Select Case lRetVal
    Case vbAbort    '3/Прервать/Abort
        Exit Sub    'выходим из процедуры
    Case vbRetry    '4/Повтор/Retry
        GoTo Retry_ 'переход на метку Retry_
    Case vbIgnore   '5/Пропустить/Ignore
    End Select
End Sub

Следующий код показывает то же окно, но по умолчанию выделяет кнопку Пропустить

'---------------------------------------------------------------------------------------
' Procedure : test
' DateTime  : 19.10.2014 19:24
' Author    : The_Prist(Щербаков Дмитрий)
'             WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
'             http://www.excel-vba.ru
' Purpose   : Процедура показывает диалоговое окно с возможностью выбора одного из трех вариантов:
'             Прервать, Повтор, Пропустить
'             По умолчанию выделена кнопка Пропустить(3-я по счету - значит vbDefaultButton3)
'---------------------------------------------------------------------------------------
Sub test()
    Dim lRetVal As Long 'для получения выбранного значения
Retry_:
    lRetVal = MsgBox("Обработка завершена", vbAbortRetryIgnore + vbQuestion + vbDefaultButton3)
    Select Case lRetVal
    Case vbAbort    '3/Прервать/Abort
        Exit Sub    'выходим из процедуры
    Case vbRetry    '4/Повтор/Retry
        GoTo Retry_ 'переход на метку Retry_
    Case vbIgnore   '5/Пропустить/Ignore
    End Select
End Sub

Вместо текстового представления констант можно применить их числовые значения:

Sub test()
    Dim lRetVal As Long 'для получения выбранного значения
Retry_:
    lRetVal = MsgBox("Обработка завершена", 2 + 32 + 512)
    Select Case lRetVal
    Case 3    'vbAbort
        Exit Sub    'выходим из процедуры
    Case 4    'vbRetry
        GoTo Retry_ 'переход на метку Retry_
    Case 5   'vbIgnore
    End Select
End Sub

Нетрудно после этого предположить, что можно указать просто сумму данных чисел:

MsgBox "Обработка завершена", 546

Доступные константы значений возврата:

Title — указывается текст заголовка окна. Например, можно указать либо что это ошибка, либо имя своего приложения:

MsgBox "Обработка завершена", vbOKOnly, "Мое приложение"

HelpFile — указывается имя файла-справки в формате HLP. Применяется, если параметр Buttons указан как vbMsgBoxHelpButton. Файл справки должен существовать.
Context — целое число. Указывается индекс страницы файла-справки, которую необходимо открыть. Указывается только если указан параметр HelpFile.

Небольшой практический пример применения простого диалогового окна MsgBox.
Цель процедуры(макроса): очистить все ячейки листа.
Согласитесь, что неплохо бы перед этим запросить у пользователя решение — он согласен с этим и это является обдуманным решением или случайностью?

'---------------------------------------------------------------------------------------
' Procedure : ClearRange
' DateTime  : 19.10.2014 20:06
' Author    : The_Prist(Щербаков Дмитрий)
'             WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
'             http://www.excel-vba.ru
' Purpose   :
'---------------------------------------------------------------------------------------
Sub ClearRange()
    Dim lRetVal As Long 'для получения выбранного значения
    lRetVal = MsgBox("Все данные выделенных ячеек будут удалены." & _
        Chr(10) & "Действительно хотите продолжить?", _
        vbYesNo + vbQuestion, "Запрос на выполнение")
    If lRetVal = vbNo Then
        Exit Sub 'выходим из процедуры без выполнения
    End If
    Selection.Clear
End Sub

Так же на странице Полезные программы для Excel и VBA можно найти программу MsgBox Generator, которая просто и наглядно формирует коды показа MsgBox.

Declare Function MessageBoxTimeOut Lib "User32" Alias "MessageBoxTimeoutA" _
                        (ByVal hwnd As Long, ByVal lpText As String, _
                         ByVal lpCaption As String, ByVal uType As VbMsgBoxStyle, _
                         ByVal wLanguageId As Long, ByVal dwMilliseconds As Long) As Long
Sub AutoCloseMsgBox()
    Const lSeconds As Long = 5
    MessageBoxTimeOut 0, "Отчет сформирован. Это окно закроется автоматически через 5 секунд", "www.excel-vba.ru", _
                         vbInformation + vbOKOnly, 0&, lSeconds * 1000
End Sub

Основную роль здесь играет строка:

Declare Function MessageBoxTimeOut Lib "User32" Alias "MessageBoxTimeoutA" _
                        (ByVal hwnd As Long, ByVal lpText As String, _
                         ByVal lpCaption As String, ByVal uType As VbMsgBoxStyle, _
                         ByVal wLanguageId As Long, ByVal dwMilliseconds As Long) As Long

это и есть сама функция, создающая MsgBox.
Главное: эта строка должна располагаться в самом верху стандартного модуля(в области объявлений, перед всеми процедурами и функциями).

Так же следует помнить, что это функция API и в некоторых версиях Excel именно в таком виде может не работать — вся строка будет подсвечена красным. Если проявился такой эффект, то можно просто добавить ключевое слово PtrSafe, отвечающее за совместимость функции с 64-битными ОС:

Declare PtrSafe Function MessageBoxTimeOut Lib "User32" Alias "MessageBoxTimeoutA" _
                        (ByVal hwnd As Long, ByVal lpText As String, _
                         ByVal lpCaption As String, ByVal uType As VbMsgBoxStyle, _
                         ByVal wLanguageId As Long, ByVal dwMilliseconds As Long) As Long

Помимо очевидного текста сообщения и заголовка, который можно заменить на свой, главное внимание уделим константе lSeconds. Она отвечает за количество секунд показа сообщения. В примере выше сообщение будет показано на 5 секунд, после чего закроется само собой, если ранее не была нажата кнопка Ок.
Если необходимо показать сообщение на 10 секунд, то надо лишь заменить 5 на 10:
Const lSeconds As Long = 10
Параметр uType работает точно так же, как параметр Buttons у стандартного MsgBox. Т.е. можно комбинировать различные виды кнопок и использовать этот MsgBox как стандартный, но при этом закрыть его автоматически, если пользователь случайно «уснул» или ему лень/некогда что-то нажимать:

Sub AutoCloseMsgBox()
    Const lSeconds As Long = 10
    Dim retval
    retval = MessageBoxTimeOut(0, "Файлы обработаны. Вывести список?" & vbNewLine & _
                                  "Если действие не будет выбрано окно закроется через 10 секунд", "www.excel-vba.ru", _
                                  vbInformation + vbYesNo, 0&, lSeconds * 1000)
    If retval = 6 Then 'была нажата кнопка Да(Yes)
        'выводим отчет
    Else 'была нажата кнопка Нет(No) или окно закрылось само
        'другое действие
    End If
End Sub

Dim vRetVal 'для получения выбранного значения
vRetVal = InputBox("Укажите значение для поиска:", "Запрос данных", "")
If vRetVal = "" Then Exit Sub 'завершаем процедуру, если строка пуста

Title — текст, отображаемый в заголовке окна. В приведенном выше примере это «Запрос данных».
DefaultValue — значение, которое будет показано в поле ввода до указания значения пользователем. Как правило оно указывается в случаях, когда требуемое значение изменяется редко по запросу пользователя, но возможность такую оставить все же требуется.
Пример: необходимо по нажатию кнопки удалять всегда столбец 5. Но иногда столбец в отчете смещается и требуется запрашивать у пользователя реальный номер столбца:

Sub DelCols()
    Dim vRetVal 'для получения выбранного значения
    vRetVal = InputBox("Укажите номер столбца для удаления(целое число):", "Запрос данных", 5)
    'используем Val для преобразования текста vRetVal в число
    'Val() преобразует число как текст в число.
    'Если указан текст(например "третий") - он будет преобразован в 0
    vRetVal = Val(vRetVal)
    If Val(vRetVal) = 0 Then
        MsgBox "Номер столбца должен быть целым числом больше нуля!", vbCritical, "DelCols"
        Exit Sub
    End If
    Columns(vRetVal).Delete
End Sub

Важно знать: InputBox всегда возвращает только текст. Даже если указать — 5 — он вернет «5». В некоторых случаях это может привести к ошибке типов данных, поэтому я привел выше один из примеров преобразования типов данных к нужному.
Так же по прошествии какого-то времени появится вопрос, как отследить нажатие кнопки Отмена. Ведь ориентир на vRetVal = «» не всегда верен, иногда надо принять пустое значение(в случаях, скажем, замены значений) и отследить именно нажатие Отмена. Сделать это можно так:

vRetVal = InputBox("Укажите номер столбца для удаления(целое число):", "Запрос данных", "")
 
If StrPtr(vRetVal) = 0 Then
    MsgBox "Нажата кнопка Отмена. Процедура прервана", vbCritical, "DelCols"
    Exit Sub
End If

Больше всего вопросов здесь явно вызовет StrPtr. Эта специальная функция VBA, которая указывает, что переданы некие строковые данные. Если никаких данных не передавалось(а в случае с нажатием кнопки Отмена так и есть) указатель вернет 0. Если какие-то данные были переданы или нажата кнопка Ок(автоматом будет передана строка нулевой длины) — указатель StrPtr вернет значение отличное от нуля.

XPos — положение окна InputBox в твипах по горизонтали относительно левого края экрана. Следует учитывать, что именно относительно экрана, а не окна Excel.
YPos — положение окна InputBox в твипах по вертикали относительно верхнего края экрана.
HelpFile — указывается имя файла-справки в формате HLP. В отличие от MsgBox указание файла допускается при любых значениях. При этом к уже имеющимся в InputBox кнопкам добавляется еще одна — Help, которая и отвечает за вызов справки.
Context — целое число. Указывается индекс страницы файла-справки, которую необходимо открыть при нажатии кнопки Help. Указывается только если указан параметр HelpFile.

В дополнение приведу классический пример применения InputBox — выполнение процедуры только после введения пароля:

Sub ClearAllCells()
Dim vRetVal
vRetVal = InputBox("Введите пароль:", "Авторизация", "")
 
If StrPtr(vRetVal) = 0 Then 'Нажата кнопка Отмена
    Exit Sub
End If
 
'если пароль неверный - завершаем процедуру без выполнения действий
If vRetVal <> "1234" Then
    MsgBox "Введенный пароль неверный", vbCritical, "ClearAllCells"
    Exit Sub
End If
'будет выполнено только если введен правильный пароль - 1234
'полная очистка всех ячеек активного листа
ActiveSheet.Cells.Clear
End Sub

А вот еще один пример применения — запрос имени пользователя и запись его в лист LOG, чтобы можно было отследить кто и когда открывал файл. При этом если пользователь нажал Отмена, то книга закроется, а если не укажет имя пользователя — появится сообщение и заново запрос. И так до тех пор, пока имя пользователя не будет введено или не будет нажата кнопка Отмена:

Private Sub Workbook_Open()
    'ThisWorkbook - Обращение к книге с кодом
    'Но из модуля самой книги можно обращаться и проще - Me
    ThisWorkbook.Visible = False
    Dim user As String, lastrow As Long
    'цикл, пока не будут указаны данные пользователя
    Do While user = ""
        user = InputBox("Введите имя пользователя:", "Авторизация", "")
        If StrPtr(user) = 0 Then
            MsgBox "Приложение будет закрыто", vbCritical, "Авторизация"
            ThisWorkbook.Close
            Exit Sub
        End If
        If user = "" Then
            MsgBox "Не указано имя пользователя!", vbCritical, "Авторизация"
        End If
    Loop
    With ThisWorkbook.Worksheets("LOG")
        'получаем последнюю заполненную ячейку на листе "LOG"
        lastrow = .Cells(.Rows.Count, 1).End(xlUp).Row
        'записываем имя пользователя
        .Cells(lastrow + 1, 1) = user
        'записываем время входа
        .Cells(lastrow + 1, 2) = Now
    End With
End Sub

Что важно: этот код записывается в модуль ЭтаКнига(ThisWorkbook) и тогда при любом открытии книги будет появляться запрос на имя пользователя.

Так же некоторые примеры применения InputBox можно найти в статьях на сайте. Например:
Как удалить строки по условию?
Как массово изменить гиперссылки?

ДИАЛОГ ВВОДА ИНФОРМАЦИИ ПОЛЬЗОВАТЕЛЕМ — APPLICATION.INPUTBOX

 
В общем-то данный диалог мало отличается от обычного InputBox, за исключением типов возвращаемых данных. У данного диалога намного богаче функционал определения типов данных.

InputBox Promt, [Title], [DefaultValue], [Left], [Top], [HelpFile], [HelpContextID], [Type]
почти все параметры аналогичны таким же параметрам в InputBox.
Promt — текст, отображаемый на самой форме. Иначе говоря — сама суть показа диалога.
Title — текст, отображаемый в заголовке окна. В приведенном выше примере это «Запрос данных».
DefaultValue — значение, которое будет показано в поле ввода до указания значения пользователем.
Left — положение окна InputBox в поинтах по горизонтали относительно левого края экрана. В отличие от простого InputBox положение определяется на основании расположения самого окна Excel, а не экрана.
Top — положение окна InputBox в твипах по вертикали относительно верхнего края экрана.
HelpFile — указывается имя файла-справки в формате HLP. В отличие от MsgBox указание файла допускается при любых значениях. При этом к уже имеющимся в InputBox кнопкам добавляется еще одна — Help, которая и отвечает за вызов справки. Сам вызов справки осуществляется путем нажатия на иконку со знаком вопроса в заголовке диалога.
HelpContextID — целое число. Указывается индекс страницы файла-справки, которую необходимо открыть при нажатии кнопки Help. Указывается только если указан параметр HelpFile.
Type — целое число. Указывается одно из предустановленных значений, указывающих диалогу Application.InputBox тип данных, которые предполагается получить от пользователя. Ниже приведен листинг кода, демонстрирующий запрос данных всех типов с описанием ограничений и нюансов.

    Dim vRetVal 'для получения выбранного значения
    'запрос формулы - Type:=0
    'возвращает либо произвольный текст, указанный в поле или ссылку на указанную ячейку в стиле R1C1
    vRetVal = Application.InputBox("Укажите формулу:", "Запрос данных", "", Type:=0)
    'запрос числа - Type:=1
    'возвращает число. Не даст ввести текст, выдав сообщение об ошибке
    vRetVal = Application.InputBox("Укажите любое число:", "Запрос данных", "", Type:=1)
    'запрос текст - Type:=2
    'возвращает указанный текст. При указании числа оно будет в виде текста: 1="1"
    vRetVal = Application.InputBox("Укажите любой текст:", "Запрос данных", "", Type:=2)
    'запрос логического значения True или False - Type:=4
    'значение указывает в текущей локализации офиса
    'для русской это ИСТИНА или ЛОЖЬ
    'так же можно указать универсальные числовые константы - 1 или 0. 1 - ИСТИНА; 0 - ЛОЖЬ
    'Не даст ввести иные значения, выдав сообщение об ошибке
    'возвращает указанное логическое значение в английской локализации
    vRetVal = Application.InputBox("Укажите ИСТИНА или ЛОЖЬ:", "Запрос данных", "", Type:=4)
    'запрос диапазона - Type:=8
    'возвращает ссылку на диапазон
    'При получении такого значения обязательно следует использовать оператор Set
    'В противном случае вернет значение массива(Array), содержащего значения указанных ячеек
    'при указании через Set и нажатии Отмена будет ошибка VBA
    Set vRetVal = Application.InputBox("Укажите диапазон для очистки ячеек:", "Запрос данных", "", Type:=8)
    'запрос значения ошибки #Н/Д - Type:=16
    'всегда возвращает значение ошибки #Н/Д независимо от введенного значения
    vRetVal = Application.InputBox("Укажите диапазон для очистки ячеек:", "Запрос данных", "", Type:=16)
    'запрос диапазона ячеек для создания массива - Type:=64
    'возвращает массив ячеек с границами начала от 1(Option Base 1)
    'если указать всего одну ячейку vRetVal будет содержать значение этой ячейки, а не массив
    vRetVal = Application.InputBox("Укажите диапазон для создания массива:", "Запрос данных", "", Type:=64)

Конечно, чаще всего используют Type:=8, т.к. это избавляет от необходимости рисования своих форм и прочих заморочек для запроса указания диапазона от пользователя. Еще раз обращаю внимание, что для Type:=8 необходим ключевой оператор присвоения Set, т.к. в результате необходимо получить именно диапазон(т.е. объект). Ниже приведена процедура, которая запрашивает диапазон для очистки и корректно обрабатывает ситуацию при нажатии кнопки Отмена(т.е. не показывает никаких ошибок пользователю, а просто не выполняется). Стандартно при нажатии Отмена процедура завершается с ошибкой VBA вида Type Mismatch, что не очень грамотно с точки зрения взаимодействия с пользователем — он не должен видеть внутренние ошибки:

'---------------------------------------------------------------------------------------
' Procedure : ClearCells
' DateTime  : 19.10.2014 22:53
' Author    : The_Prist(Щербаков Дмитрий)
'             WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
'             http://www.excel-vba.ru
' Purpose   :
'             Запрашиваем диапазон ячеек для очистки.
'             По умолчанию заносится диапазон выделенных на момент запуска ячеек
'---------------------------------------------------------------------------------------
Sub ClearCells()
    Dim vRetVal 'для получения выбранного значения
 
    On Error Resume Next
    Set vRetVal = Application.InputBox("Укажите диапазон для очистки ячеек:", "Запрос данных", Selection.Address, Type:=8)
    If vRetVal Is Nothing Then 'нажата кнопка Отмена - диапазон не выбран
        MsgBox "Отмена выполнения", vbCritical, "Нет данных"
        Exit Sub 'завершаем процедуру, т.к. ячейки не выбраны
    End If
    'диапазон выбран - очищаем ячейки
    vRetVal.Clear
End Sub

Статья помогла? Поделись ссылкой с друзьями!

    Видеоуроки

Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика