Функция Excel VBA Environ
VBA Environ, где Environ означает «Среда», используется для получения любой информации, которая есть в операционной системе. Функция Excel VBA Environ возвращает значение, такое как путь, местоположение, имя, расширение, доступное в системе. Помимо этой среды (операционная система) также содержит информацию об имени пользователя, авторизации, имени папки и т. Д.
VBA Environ рассматривает только выражение как вход. Где это выражение может быть чем угодно. Ниже приведен синтаксис Environ.
Как использовать функцию Environ в Excel VBA?
Ниже приведены различные примеры использования функции Environ в Excel VBA.
Вы можете скачать этот шаблон VBA Environ Excel здесь - Шаблон VBA Environ ExcelVBA 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. Вы также можете просмотреть наши другие предлагаемые статьи -
- VBA IF Заявления | Шаблоны Excel
- Как использовать функцию сортировки Excel VBA?
- VBA While Loop (Примеры с шаблоном Excel)
- Счетчик VBA (Примеры)