Функція середовища Excel VBA

VBA Environment, де Environment означає середовище, використовується для отримання будь-якої інформації, яка є в операційній системі. Функція Environment VBA Excel повертає такі значення, як шлях, місце розташування, ім'я, розширення, доступні в системі. Крім цього середовища (операційна система) також містить інформацію про ім'я користувача, авторизацію, ім'я папки тощо.

VBA Environment розглядає лише вираження як вхідне. Де цим виразом може бути що завгодно. Нижче - синтаксис середовища.

Як використовувати середовищну функцію в Excel VBA?

Нижче наведено різні приклади використання середовища Environment у Excel VBA.

Ви можете завантажити цей шаблон VBA Environment Excel тут - Шаблон VBA Environment Excel

VBA Environment - приклад №1

Існують різні способи отримання інформації про операційну систему через VBA Environment. Один з них ми побачимо на цьому прикладі. Нижче наведено список можливих авторизованих користувачів моєї системи, які можуть бути ПРАВИЛЬНИМ або ЛІЖНИМ. Про ці імена ми згадували в Sheet2.

Виконайте наведені нижче кроки, щоб використовувати функцію Environment у VBA:

Крок 1: Тепер за допомогою VBA Environment ми знайдемо, що з них є правильним авторизованим іменем користувача поточної операційної системи. Sheet1 - це місце, де ми знайдемо правильне ім’я користувача у комірці C3.

Крок 2: Під заголовком " Авторизовано? ”Ми побачимо, чи ім’я користувача дозволено чи ні за допомогою функції If і CountIf, як показано нижче. Якщо ім'я користувача дійсне та дозволене, ми отримаємо ТАК, якщо дійсне, але не авторизоване, ми отримаємо Ні. Як для несанкціонованого, так і для недійсного імені користувача, ми все одно отримаємо Ні.

Крок 3: Тепер на робочому аркуші excel створіть кнопку Command, яка доступна на вкладці Developer під меню Active In Control Active Active Control, як показано нижче.

Крок 4: Тепер створіть командну кнопку в будь-якому місці аркуша. Ми також можемо вибрати будь-які Фігури за допомогою командної кнопки.

Крок 5: Клацніть правою кнопкою миші на створеній кнопці та перейдіть до параметра Властивості .

Крок 6: Під цим ми можемо змінити ім'я за замовчуванням на що завгодно. Тут ми обрали Run Environment, як показано нижче.

Крок 7: Тепер клацніть правою кнопкою миші на тій самій кнопці та виберіть Переглянути код, щоб перейти у вікно VBA.

Крок 7: У цьому ми отримаємо заздалегідь вбудовану під-процедуру командної кнопки.

Код:

 Приватний Sub CommandButton2_Click () Кінець Sub

Крок 8: Виберіть аркуш, де ми хочемо застосувати функцію оточення.

Код:

 Приватні Sub CommandButton2_Click () Аркуші ("Sheet1") Кінець Sub

Крок 9: Потім вибираємо комірки діапазону, де ми хочемо побачити вихід.

Код:

 Приватні таблиці Sub CommandButton2_Click () ("Sheet1"). Діапазон ("C3") = Кінець Sub

Крок 10: Тепер використовуємо функцію Environment з полем, яке ми хочемо отримати. Тут ми хочемо побачити USERNAME.

Код:

 Приватні таблиці Sub CommandButton2_Click () ("Sheet1"). Діапазон ("C3") = Environment ("USERNAME") Кінець Sub

Крок 11: Тепер відкрийте цикл IF-ELSE, де запишіть умову, якщо комірка діапазону E3 - ТАК, тоді дайте мені повідомлення як авторизований користувач.

Код:

 Приватний Sub CommandButton2_Click () Таблиці ("Sheet1"). Діапазон ("C3") = Environment ("USERNAME") Якщо Sheets ("Sheet1"). Range ("E3") = "Так", тоді MsgBox "Авторизований користувач!" Кінець Під

Крок 12: В іншому дайте мені повідомлення як несанкціонованого користувача, як показано нижче.

Код:

 Приватний Sub CommandButton2_Click () Таблиці ("Sheet1"). Діапазон ("C3") = Environment ("USERNAME") Якщо Sheets ("Sheet1"). Range ("E3") = "Так", тоді MsgBox "Авторизований користувач!" Інакше MsgBox "Неавторизований користувач" Кінець, якщо Кінець Sub

Крок 13: Тепер ми складемо наш код покроково, натискаючи функціональну клавішу F8, щоб побачити, чи є помилка чи ні. Якщо все добре, тоді вийдіть з вікна VBA і зніміть режим дизайну на вкладці Developer, як показано нижче.

Крок 14: Тепер ми запустимо наш макрос, натиснувши на командну кнопку під назвою «Запустити середовища». Ми побачимо, що на C3 авторизоване ім’я користувача друкується як Game2, а потім те саме підтверджується двічі. Один раз у вікні повідомлень та інших у комірці E3.

Це означає, що ім’я користувача, яке згадується в Sheet2 як Game2, є дійсним і авторизованим обома.

VBA Environment - приклад №2

Є ще один спосіб, за допомогою якого ми можемо отримати повну інформацію про операційну систему, яку ми маємо. Це працює так само, як ми бачили в прикладі-1. Для цього виконайте наступні кроки:

Крок 1: Відкрийте модуль на вкладці меню Вставка.

Крок 2: Тепер під Варіантом явно ми визначимо функції, які ми хочемо бачити.

Код:

 Опція Явна функція CompName () Кінцева функція

Крок 3: Припустимо, якщо ви хочете побачити Ім'я комп'ютера, використовуйте будь-яке слово, яке визначає Комп'ютер. Тут ми вибрали CompName і використовуємо середовище з функцією “ Ім'я комп’ютера ”.

Код:

 Варіант Явна функція CompName () CompName = Environment ("ComputerName") Кінцева функція

Крок 4: Давайте відкриємо ще одну функцію, за допомогою якої ми побачимо тимчасовий шлях до файлу, як показано нижче.

Код:

 Варіант Явна функція CompName () CompName = Environment ("ComputerName") Кінець функції функції Temp () Кінцева функція

Крок 5: Тепер знову використовуйте будь-яке слово, яке визначає шлях до файлу Temp, як TempDir та вставте функцію Environment з TEMP .

Код:

 Варіант Явна функція CompName () CompName = Environment ("ComputerName") Кінцева функція Функція Temp () TempDir = Environment ("Temp") Кінцева функція

Крок 6: Після цього відкрийте підпроцедур, в якому ми будемо використовувати обидві функції, які ми визначили вище, щоб побачити їх деталі.

Код:

 Варіант Явна функція CompName () CompName = Environment ("ComputerName") Кінець функції функції Temp () TempDir = Environment ("Temp") Кінцева функція Sub Enviro () Кінцевий

Крок 7: Визначте змінну як довгу, в якій ми побачимо деталі.

Код:

 Варіант Явна функція CompName () CompName = Environment ("ComputerName") Кінець функції функції Temp () TempDir = Environment ("Temp") Кінцева функція Sub Enviro () Dim A As Long End Sub

Крок 8: Відкрийте цикл For-Next і надайте довжину змінній A, як довгий буде межа символів. Тут ми встановили його як 50.

Код:

 Варіант Явна функція CompName () CompName = Environment ("ComputerName") Кінцева функція Температура функції)

Крок 9: Тепер використовуйте функцію друку налагодження для змінної A та з функцією Environment, як показано нижче.

Код:

 Варіант Явна функція CompName () CompName = Environment ("ComputerName") Кінцева функція Температура функції) ) Наступний кінець Sub

Крок 10: Складіть кожен крок коду та відкрийте негайне вікно на вкладці меню Вид.

Крок 11: Тепер запустіть код, натиснувши кнопку Відтворити, розташовану під панеллю меню.

Крок 12: У найближчому вікні ми побачимо, що вичерпні деталі операційної системи, пов'язані з функціями, які ми оголосили.

Плюси функцій середовища Excel VBA

  • Це здається складним, але його легко здійснити.
  • Він дає повну інформацію про комп'ютер та операційну систему.
  • Ми можемо перелічити будь-які конкретні деталі, а також відповідно до наших вимог.
  • Ми також можемо побачити, хто є авторизованим користувачем для використання та редагування системи.

Що потрібно пам’ятати

  • Середовище VBA не обмежується процесом, показаним у наведених вище прикладах. Ми можемо отримати ще багато деталей операційної системи, таких як будь-який шлях, місцеположення, папка чи файл, навіть будь-який розмір файлу, а також за допомогою VBA Environment.
  • Якщо будь-яке значення, яке ми вводимо, не є таблицею рядків середовища, тоді ми отримаємо рядок нульової довжини.
  • Після того, як ми закінчимо з кодуванням, збережіть файл у форматі макро, увімкніть формат excel, щоб уникнути втрати коду.

Рекомендовані статті

Це посібник по середовищі VBA. Тут ми обговорюємо, як використовувати середовищну функцію в Excel VBA разом із практичними прикладами та шаблоном Excel, який можна завантажити. Ви також можете ознайомитися з іншими запропонованими нами статтями -

  1. Виписки VBA IF | Шаблони Excel
  2. Як використовувати функцію сортування Excel VBA?
  3. VBA while цикл (приклади з шаблоном Excel)
  4. Лічильник VBA (приклади)

Категорія:

VBA