VBA Environment - Как да използвате функцията на околната среда в Excel VBA?

Съдържание:

Anonim

Excel VBA Environment Функция

VBA Environment, където Environment означава Околна среда, се използва за получаване на каквато и да е информация в операционната система. Функцията Excel VBA Environment връща стойността като път, местоположение, име, разширение, налични в системата. Освен тази среда (операционната система) съдържа и информацията за потребителско име, оторизация, име на папка и т.н.

VBA Environment разглежда само израза като вход. Където този израз може да бъде всичко. По-долу е синтаксисът на Environment.

Как да използвате функцията на околната среда в Excel VBA?

По-долу са различните примери за използване на функцията на околната среда в Excel VBA.

Можете да изтеглите този шаблон на VBA Environment Excel тук - VBA Environment Excel шаблон

VBA Environment - пример №1

Има различни начини за получаване на информация за операционната система чрез VBA Environment. Един от тях ще видим в този пример. По-долу е списъкът на възможните оторизирани потребители на моята система, които могат да бъдат ИСТИНСКИ или ЛЕЖНИ. Споменахме тези имена в Sheet2.

Следвайте стъпките по-долу, за да използвате околната среда във VBA:

Стъпка 1: Сега с помощта на VBA Environment ще открием кое от тях е правилното оторизирано потребителско име на текущата операционна система. Sheet1 е мястото, където ще открием правилното потребителско име на системата в клетка C3.

Стъпка 2: Под заглавието „ Упълномощен? ”Ще видим дали потребителското име е разрешено или не с функцията If и CountIf, както е показано по-долу. Ако потребителското име е валидно и упълномощено, тогава ще получим ДА, ако е валидно, но не е упълномощено, ще получим Не. Както за неоторизирано, така и за невалидно потребителско име ще продължим да получаваме No.

Стъпка 3: Сега в работния лист на excel създайте бутон Command, който е достъпен в раздела Developer под Active X Control в менюто Insert, както е показано по-долу.

Стъпка 4: Сега създайте команден бутон навсякъде в листа. Можем да изберем всякакви форми през командния бутон.

Стъпка 5: Щракнете с десния бутон върху създадения бутон и отидете на опцията Properties .

Стъпка 6: Под това можем да променим името по подразбиране на всичко. Тук сме избрали Run среда, както е показано по-долу.

Стъпка 7: Сега щракнете с десния бутон върху същия бутон и изберете View Code, за да отидете в прозореца VBA.

Стъпка 7: В това ще получим предварително изградената под процедура на командния бутон.

Код:

 Private Sub CommandButton2_Click () End Sub

Стъпка 8: Изберете листа, където искаме да приложим функцията Environment.

Код:

 Private Sub CommandButton2_Click () Sheets ("Sheet1") End Sub

Стъпка 9: След това изберете диапазонните клетки, където искаме да видим изхода.

Код:

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

Стъпка 10: Сега използвайте Environment функция с полето, което искаме да получим. Тук искаме да видим USERNAME.

Код:

 Private Sub CommandButton2_Click () Sheets ("Sheet1"). Обхват ("C3") = Environment ("USERNAME") End Sub

Стъпка 11: Сега отворете IF-ELSE цикъла, където напишете условието, ако клетката с диапазон E3 е ДА, тогава ми дайте съобщението като Оторизиран потребител.

Код:

 Private Sub CommandButton2_Click () Sheets ("Sheet1"). Обхват ("C3") = Environment ("USERNAME") Ако Sheets ("Sheet1"). Range ("E3") = "Да" Тогава MsgBox "Оторизиран потребител!" Край Sub

Стъпка 12: В Else ми дайте съобщението като неоторизиран потребител, както е показано по-долу.

Код:

 Private Sub CommandButton2_Click () Sheets ("Sheet1"). Обхват ("C3") = Environment ("USERNAME") Ако Sheets ("Sheet1"). Range ("E3") = "Да" Тогава MsgBox "Оторизиран потребител!" Else MsgBox "Неоторизиран потребител" Край, ако Край Sub

Стъпка 13: Сега ще компилираме кода стъпка по стъпка, като натискаме функционалния клавиш F8, за да видим дали има грешка или не. Ако всичко е наред, излезте от прозореца на VBA и премахнете избора на режима на проектиране от раздела Developer, както е показано по-долу.

Стъпка 14: Сега ще стартираме нашия макрос, като кликнем върху командния бутон, наречен „Run среда“. Ще видим, на C3, оторизираното потребителско име се отпечатва като Game2 и след това същото се потвърждава два пъти. Веднъж в полето за съобщения и други в клетка E3.

Това означава, че потребителското име, което се споменава в Sheet2 като Game2, е валидно и оторизирано и двете.

VBA Environment - пример №2

Има и друг начин, чрез който можем да получим пълната информация за операционната система, която имаме. Това работи по същия начин, както видяхме в пример-1. За това следвайте стъпките по-долу:

Стъпка 1: Отворете модул от раздела Меню Вмъкване.

Стъпка 2: Сега под Опция Изрично ще дефинираме функциите, които искаме да видим.

Код:

 Опция Изрична функция CompName () Крайна функция

Стъпка 3: Да предположим, ако искате да видите името на компютъра, използвайте всяка дума, която определя Computer. Тук сме избрали CompName и използваме Environment функция с „ Име на компютъра “.

Код:

 Опция Изрична функция CompName () CompName = Environment ("ComputerName") Крайна функция

Стъпка 4: Нека отворим друга функция, чрез която ще видим временния път към файла, както е показано по-долу.

Код:

 Опция Изрична функция CompName () CompName = Environment ("ComputerName") End Function Temp Temp () End Function

Стъпка 5: Сега отново използвайте всяка дума, която определя пътя до файла Temp, като TempDir и вмъкнете функцията Environment с TEMP .

Код:

 Опция Изрична функция CompName () CompName = Environment ("ComputerName") End Function Function Temp () TempDir = Environment ("Temp") End Function

Стъпка 6: След това отворете подпроцедурата, в която ще използваме и двете функции, които дефинирахме по-горе, за да видим техните подробности.

Код:

 Опция Изрична функция CompName () CompName = Environment ("ComputerName") End Function Function Temp () TempDir = Environment ("Temp") End Function Sub Enviro () End Sub

Стъпка 7: Определете променлива като Дълга, в която ще видим детайлите.

Код:

 Опция Изрична функция CompName () CompName = Environment ("ComputerName") Крайна функция Функция Temp () TempDir = Environment ("Temp") Крайна функция Sub Enviro () Dim A като Long End Sub

Стъпка 8: Отворете контура For-Next и дайте дължината на променлива A колко дълго ще бъде ограничението на знака. Тук сме го определили като 50.

Код:

 Опция Изрична функция CompName () CompName = Environment ("ComputerName") Крайна функция Функция Temp () TempDir = Environment ("Temp") Крайна функция Sub Enviro () Dim A as Long For A = 1 to 50 End Sub

Стъпка 9: Сега използвайте Debug Print за променлива A и с функцията Environment, както е показано по-долу.

Код:

 Опция Изрична функция CompName () CompName = Environment ("ComputerName") Крайна функция Функция Temp () TempDir = Environment ("Temp") Крайна функция Sub Enviro () Dim A as Long For A = 1 to 50 Debug.Print Environment (A ) Следващ край Sub

Стъпка 10: Компилирайте всяка стъпка от кода и отворете незабавен прозорец от раздела Меню Преглед.

Стъпка 11: Сега стартирайте кода, като кликнете върху бутона Play, разположен под лентата на менюто.

Стъпка 12: В непосредствения прозорец ще видим пълни подробности за операционната система, свързани с функциите, които сме декларирали.

Плюсове на Excel VBA Environment функция

  • Изглежда сложен, но е лесен за изпълнение.
  • Той дава пълните данни за компютъра и операционната система.
  • Можем да изброим всеки конкретен детайл, както и според нашите изисквания.
  • Можем също да видим кой е оторизиран потребител, който използва и редактира системата.

Неща, които трябва да запомните

  • VBA Environment не се ограничава до процеса, показан в горните примери. Можем да получим още много подробности за операционната система, като всеки път, местоположение, папка или файл, дори всеки размер на файла, както и с помощта на VBA Environment.
  • Ако някоя стойност, която въвеждаме, не е таблица с низове от среда, тогава ще получим низ с нулева дължина.
  • След като приключим с кодирането, запишете файла в макрос активирайте excel формат, за да не загубите кода.

Препоръчителни статии

Това е ръководство за VBA Environment. Тук обсъждаме как да използвате функцията на околната среда в Excel VBA, заедно с практически примери и шаблон за excel за сваляне. Можете да разгледате и другите ни предложени статии -

  1. VBA IF изявления | Excel Шаблони
  2. Как да използвате функция за сортиране на Excel VBA?
  3. VBA докато цикъл (примери с шаблон на Excel)
  4. VBA брояч (примери)