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 за сваляне. Можете да разгледате и другите ни предложени статии -
- VBA IF изявления | Excel Шаблони
- Как да използвате функция за сортиране на Excel VBA?
- VBA докато цикъл (примери с шаблон на Excel)
- VBA брояч (примери)