VBA Environ - Как использовать функцию Environ в Excel VBA?

• Функция Excel VBA Environ

Функция Excel VBA Environ

VBA Environ, где Environ означает «Среда», используется для получения любой информации, которая есть в операционной системе. Функция Excel VBA Environ возвращает значение, такое как путь, местоположение, имя, расширение, доступное в системе. Помимо этой среды (операционная система) также содержит информацию об имени пользователя, авторизации, имени папки и т. Д.

VBA Environ рассматривает только выражение как вход. Где это выражение может быть чем угодно. Ниже приведен синтаксис Environ.

Как использовать функцию Environ в Excel VBA?

Ниже приведены различные примеры использования функции Environ в Excel VBA.

Вы можете скачать этот шаблон VBA Environ Excel здесь - Шаблон VBA Environ Excel

VBA Environ - Пример № 1

Существуют разные способы получения информации об операционной системе через VBA Environ. Один из них мы увидим в этом примере. Ниже приведен список возможных авторизованных пользователей моей системы, которые могут быть ИСТИНА или ЛОЖЬ. Мы упомянули эти имена в Sheet2.

Выполните следующие шаги, чтобы использовать функцию Environ в VBA:

Шаг 1: Теперь с помощью VBA Environ мы найдем, какое из них является правильным авторизованным именем пользователя текущей операционной системы. Sheet1 - это место, где мы найдем правильное имя пользователя системы в ячейке C3.

Шаг 2: Под заголовком « Авторизован? «Мы увидим, авторизовано ли имя пользователя или нет с помощью функций If и CountIf, как показано ниже. Если имя пользователя является действительным и авторизованным, мы получим ДА, если действительное, но не авторизованное, мы получим Нет. Как для неавторизованного, так и для недействительного имени пользователя мы все равно получим Нет.

Шаг 3. Теперь на рабочем листе Excel создайте кнопку «Command», которая доступна на вкладке « Разработчик » в Active X Control меню «Вставка», как показано ниже.

Шаг 4: Теперь создайте командную кнопку в любом месте листа. Мы также можем выбрать любую фигуру поверх командной кнопки.

Шаг 5: Щелкните правой кнопкой мыши на созданной кнопке и перейдите к опции « Свойства» .

Шаг 6: Под этим мы можем изменить имя по умолчанию на что угодно. Здесь мы выбрали Run Environ, как показано ниже.

Шаг 7: Теперь щелкните правой кнопкой мыши на той же кнопке и выберите View Code, чтобы перейти в окно VBA.

Шаг 7: На этом мы получим предварительно созданную подпроцедуру командной кнопки.

Код:

 Частный Sub CommandButton2_Click () End Sub 

Шаг 8: Выберите лист, где мы хотим применить функцию Environ.

Код:

 Закрытая подпрограмма CommandButton2_Click () Sheets ("Sheet1") End Sub 

Шаг 9: Затем выберите ячейки диапазона, в которых мы хотим увидеть результат.

Код:

 Private Sub CommandButton2_Click () Листы ("Sheet1"). Диапазон ("C3") = Конец Sub 

Шаг 10: Теперь используйте функцию Environ с полем, которое мы хотим получить. Здесь мы хотим увидеть имя пользователя.

Код:

 Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") End Sub 

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

Код:

 Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") Если Sheets ("Sheet1"). Range ("E3") = "Yes" Тогда MsgBox "Авторизованный пользователь!" End Sub 

Шаг 12: В остальном, дайте мне сообщение как неавторизованный пользователь, как показано ниже.

Код:

 Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") Если Sheets ("Sheet1"). Range ("E3") = "Yes" Тогда MsgBox "Авторизованный пользователь!" Иначе MsgBox "Unathorized User" End If End Sub 

Шаг 13: Теперь мы скомпилируем наш код шаг за шагом, нажав функциональную клавишу F8, чтобы увидеть, есть ли какая-либо ошибка или нет. Если все хорошо, выйдите из окна VBA и отмените выбор режима «Дизайн» на вкладке «Разработчик», как показано ниже.

Шаг 14: Теперь мы запустим наш макрос, нажав на кнопку «Run Environ». Мы увидим, что на C3 авторизованное имя пользователя печатается как Game2, а затем это подтверждается дважды. Один раз в окне сообщения и другие в ячейке E3.

Это означает, что имя пользователя, которое упоминается на Листе 2 как Game2, является действительным и авторизованным.

VBA Environ - Пример № 2

Есть еще один способ получить полную информацию об имеющейся у нас операционной системе. Это работает так же, как мы видели в примере-1. Для этого выполните следующие шаги:

Шаг 1. Откройте модуль на вкладке меню «Вставка».

Шаг 2: Теперь под Option Explicit мы определим функции, которые мы хотим видеть.

Код:

 Опция Явная функция CompName () End Function 

Шаг 3: Предположим, если вы хотите увидеть имя компьютера, используйте любое слово, которое определяет компьютер. Здесь мы выбрали CompName и используем функцию Environ с « Computer Name ».

Код:

 Опция Явная функция CompName () CompName = Environ ("ComputerName") End Function 

Шаг 4: Давайте откроем другую функцию, с помощью которой мы увидим временный путь к файлу, как показано ниже.

Код:

 Опция Явная функция CompName () CompName = Environ ("ComputerName") End Function Функция Temp () End Function 

Шаг 5: Теперь снова используйте любое слово, которое определяет путь к временному файлу, например TempDir, и вставьте функцию Environ с TEMP .

Код:

 Опция Явная функция CompName () CompName = Environ ("ComputerName") End Function Функция Temp () TempDir = Environ ("Temp") End Function 

Шаг 6: После этого откройте подпроцедуру, в которой мы будем использовать обе функции, которые мы определили выше, чтобы увидеть их детали.

Код:

 Опция Явная функция CompName () CompName = Environ ("ComputerName") End Function Функция Temp () TempDir = Environ ("Temp") End Function Sub Enviro () End Sub 

Шаг 7: Определите переменную Long, в которой мы увидим детали.

Код:

 Опция Явная функция CompName () CompName = Environ ("ComputerName") Функция конечной функции Temp () TempDir = Environ ("Temp") Подчиненная функция Sub Enviro () Dim A As Long End Sub 

Шаг 8: Откройте цикл For-Next и задайте длину переменной A, как долго будет символьный предел. Здесь мы установили его как 50.

Код:

 Опция Явная функция CompName () CompName = Environ ("ComputerName") Функция конечной функции Temp () TempDir = Environ ("Temp") End Function Sub Enviro () Уменьшение яркости A до A = от 1 до 50 End Sub 

Шаг 9: Теперь используйте Debug Print для переменной A и с функцией Environ, как показано ниже.

Код:

 Опция Явная функция CompName () CompName = Environ ("ComputerName") Конечная функция Функция Temp () TempDir = Environ ("Temp") Конечная функция Sub Enviro () Dim A As Long Для A = от 1 до 50 Debug.Print Environ (A ) Next End Sub 

Шаг 10: Скомпилируйте каждый шаг кода и откройте непосредственное окно на вкладке меню Вид.

Шаг 11: Теперь запустите код, нажав на кнопку Play, расположенную под строкой меню.

Шаг 12: Мы увидим в ближайшем окне полные сведения об операционной системе, связанные с функциями, которые мы объявили.

Плюсы Excel VBA Environ Function

• Это кажется сложным, но это легко реализовать.
• Он дает полную информацию о компьютере и операционной системе.
• Мы можем перечислить любую конкретную деталь, а также в соответствии с нашими требованиями.
• Мы также можем видеть, кто является авторизованным пользователем для использования и редактирования системы.

То, что нужно запомнить

• VBA Environ не ограничивается процессом, показанным в приведенных выше примерах. С помощью VBA Environ мы можем получить гораздо больше сведений об операционной системе, например, о любом пути, местоположении, папке или файле, даже о любом размере файла.
• Если любое введенное нами значение не является таблицей строк среды, то в итоге мы получим строку нулевой длины.
• Как только мы закончим с кодированием, сохраните файл в макросе, включите формат Excel, чтобы избежать потери кода.

Рекомендуемые статьи

Это руководство по VBA Environ. Здесь мы обсудим, как использовать функцию Environ в Excel VBA, а также с практическими примерами и загружаемым шаблоном Excel. Вы также можете просмотреть наши другие предлагаемые статьи -

1. VBA IF Заявления | Шаблоны Excel
2. Как использовать функцию сортировки Excel VBA?
3. VBA While Loop (Примеры с шаблоном Excel)
4. Счетчик VBA (Примеры)