Як використовувати функцію InputBox в Excel 2016 VBA

Функція VBA InputBox корисна для отримання окремої інформації, введеної користувачем у Excle 2016. Цією інформацією може бути значення, текстовий рядок або навіть адреса діапазону. Це хороша альтернатива розробці UserForm, коли вам потрібно отримати лише одне значення.

Синтаксис InputBox

Ось спрощена версія синтаксису функції InputBox:

InputBox(prompt[, title][, default])

Функція InputBox приймає наведені тут аргументи.

Аргумент На що це впливає
Підказка Текст, що відображається у полі введення
Назва Текст, що відображається в рядку заголовка поля введення
(необов'язково)
За замовчуванням Значення за замовчуванням для введення користувача (необов'язково)

Приклад InputBox

Ось заява, яка показує, як можна використовувати функцію InputBox:

TheName = InputBox("Як тебе звати?", "Привіт")

Коли ви виконуєте цю інструкцію VBA, Excel відображає це діалогове вікно. Зверніть увагу, що в цьому прикладі використовуються лише перші два аргументи і не надається значення за замовчуванням. Коли користувач вводить значення та натискає кнопку OK, код призначає значення змінній TheName.

Як використовувати функцію InputBox в Excel 2016 VBA

Функція InputBox відображає це діалогове вікно.

У наступному прикладі використовується третій аргумент і надається значення за замовчуванням. Значенням за замовчуванням є ім’я користувача, що зберігається в Excel (властивість UserName об’єкта Application).

Sub GetName()
  Приглушити ім’я як рядок
  TheName = InputBox("Як тебе звати?", _
    «Привіт», Application.UserName)
Кінець суб

У InputBox завжди відображається кнопка Скасувати. Якщо користувач натисне кнопку Скасувати, функція InputBox повертає порожній рядок.

Функція InputBox у VBA завжди повертає рядок, тому, якщо вам потрібно отримати значення, ваш код потребує додаткової перевірки. У наступному прикладі використовується функція InputBox для отримання числа. Він використовує функцію IsNumeric, щоб перевірити, чи є рядок числом. Якщо рядок містить число, все в порядку. Якщо введення користувача не можна інтерпретувати як число, код відображає вікно повідомлення.

Sub AddSheets()
  Нечіткі підказки як рядок
  Тьмяний напис як рядок
  Dim DefValue As Long
  Dim NumSheets як рядок
  Підказка = «Скільки аркушів ви хочете додати?»
  Заголовок = «Скажи мені...»
  DefValue = 1
  NumSheets = InputBox (Підказка, Заголовок, DefValue)
  Якщо NumSheets = ““ Тоді Exit Sub 'Canceled
  Якщо IsNumeric(NumSheets) Тоді
    Якщо NumSheets > 0, то Sheets.Add Count:=NumSheets
  Інакше
    MsgBox «Недійсний номер»
  Кінець Якщо
Кінець суб

Перевірте діалогове вікно, яке створює ця програма.

Як використовувати функцію InputBox в Excel 2016 VBA

Ще один приклад використання функції InputBox.

Інший тип InputBox

Інформація, представлена ​​тут, стосується функції InputBox у VBA. Здається, Microsoft любить плутанину, тому ви також маєте доступ до методу InputBox , який є методом об’єкта Application.

Однією великою перевагою використання методу Application InputBox є те, що ваш код може запросити вибір діапазону. Потім користувач може вибрати діапазон на аркуші, виділяючи клітинки. Ось короткий приклад, який пропонує користувачеві вибрати діапазон:

Sub GetRange()
  Темне кільце як діапазон
  Помилка Продовжити далі
  Встановити Rng = Application.InputBox _
    (prompt:=“Вкажіть діапазон:”, Тип:=8)
  Якщо Rng — нічого, вийдіть із Sub
  MsgBox «Ви вибрали діапазон» & Rng.Address
Кінець суб

Ось як це виглядає.

Як використовувати функцію InputBox в Excel 2016 VBA

Використання методу Application InputBox для отримання діапазону.

У цьому простому прикладі код повідомляє користувачеві адресу вибраного діапазону. У реальному житті ваш код дійсно зробить щось корисне з вибраним діапазоном. Приємно в цьому прикладі те, що Excel займається обробкою помилок. Якщо ви введете щось, що не є діапазоном, Excel повідомить вам про це та дозволить спробувати ще раз.

Метод Application.InputBox схожий на функцію InputBox у VBA, але він також має деякі відмінності. Перевірте довідкову систему, щоб отримати повну інформацію.

Leave a Comment

Як спілкуватися в чаті в Outlook Web App

Як спілкуватися в чаті в Outlook Web App

Досліджуйте, як ефективно спілкуватися в чаті з колегами в Outlook Web App. Дізнайтеся про покрокову інструкцію та нові можливості для підвищення продуктивності.

Як заборонити Microsoft Word відкривати файли в режимі лише для читання в Windows

Як заборонити Microsoft Word відкривати файли в режимі лише для читання в Windows

Як заборонити Microsoft Word відкривати файли в режимі лише для читання в Windows. Microsoft Word відкриває файли в режимі лише для читання, що робить неможливим їх редагування? Не хвилюйтеся, методи наведено нижче

Як виправити неправильний друк документів Microsoft Word

Як виправити неправильний друк документів Microsoft Word

Як виправити помилки під час друку неправильних документів Microsoft Word Помилки під час друку документів Word зі зміненими шрифтами, безладними абзацами, відсутнім текстом або втраченим вмістом є досить поширеними. Однак не варто

Зітріть малюнки ручкою та маркером на слайдах PowerPoint

Зітріть малюнки ручкою та маркером на слайдах PowerPoint

Якщо ви використовували перо або маркер для малювання на слайдах PowerPoint під час презентації, ви можете зберегти малюнки для наступної презентації або стерти їх, щоб наступного разу, коли ви показуватимете їх, розпочали з чистих слайдів PowerPoint. Дотримуйтесь цих інструкцій, щоб стерти малюнки пером і маркером: Стирання рядків на одній з […]

Вміст бібліотеки стилів у SharePoint 2010

Вміст бібліотеки стилів у SharePoint 2010

Бібліотека стилів містить файли CSS, файли мови розширюваної мови таблиць стилів (XSL) та зображення, які використовуються попередньо визначеними основними сторінками, макетами сторінок та елементами керування в SharePoint 2010. Щоб знайти файли CSS у бібліотеці стилів сайту видавництва: виберіть «Дії сайту»→ «Перегляд». Весь вміст сайту. З’являється вміст сайту. Бібліотека Style знаходиться в […]

Форматуйте числа в тисячах і мільйонах у звітах Excel

Форматуйте числа в тисячах і мільйонах у звітах Excel

Не перевантажуйте аудиторію гігантськими цифрами. У Microsoft Excel ви можете покращити читабельність своїх інформаційних панелей і звітів, відформатувавши числа, щоб вони відображалися в тисячах або мільйонах.

Як ділитися сайтами SharePoint і слідкувати за ними

Як ділитися сайтами SharePoint і слідкувати за ними

Дізнайтеся, як використовувати інструменти соціальних мереж SharePoint, які дозволяють особам і групам спілкуватися, співпрацювати, обмінюватися інформацією та спілкуватися.

Як перетворити дати в юліанські формати в Excel

Як перетворити дати в юліанські формати в Excel

Юліанські дати часто використовуються у виробничих середовищах як мітка часу та швидкий довідник для номера партії. Цей тип кодування дати дозволяє роздрібним продавцям, споживачам та агентам з обслуговування визначити, коли був виготовлений продукт, а отже, і вік продукту. Юліанські дати також використовуються в програмуванні, військовій справі та астрономії. Інший […]

Як створити веб-програму Access

Як створити веб-програму Access

Ви можете створити веб-програму в Access 2016. Так що ж таке веб-програма? Ну, веб означає, що він онлайн, а додаток — це просто скорочення від «додаток». Користувацька веб-програма — це онлайн-додаток для баз даних, доступ до якого здійснюється з хмари за допомогою браузера. Ви створюєте та підтримуєте веб-програму у настільній версії […]

Панель швидкого запуску в SharePoint 2010

Панель швидкого запуску в SharePoint 2010

Більшість сторінок у SharePoint 2010 відображають список посилань навігації на панелі швидкого запуску ліворуч. Панель швидкого запуску відображає посилання на пропонований вміст сайту, наприклад списки, бібліотеки, сайти та сторінки публікації. Панель швидкого запуску містить два дуже важливі посилання: Посилання на весь вміст сайту: […]