Excel VBA-miljøfunktion
VBA-miljø, hvor Environ står for Miljø, bruges til at få oplysninger, der findes i operativsystemet. Funktionen Excel VBA Environ returnerer værdien som sti, placering, navn, udvidelse tilgængelig i systemet. Bortset fra dette miljø (operativsystem) indeholder også oplysningerne om brugernavn, autorisation, mappenavn osv.
VBA Environ betragter kun udtryk som en input. Hvor dette udtryk kan være hvad som helst. Nedenfor er syntaks af Environ.
Hvordan bruges miljøfunktion i Excel VBA?
Nedenfor er de forskellige eksempler til brug af Environ-funktionen i Excel VBA.
Du kan downloade denne VBA Environ Excel-skabelon her - VBA Environ Excel-skabelonVBA-miljø - eksempel # 1
Der er forskellige måder at få styresystemoplysninger gennem VBA Environ. En af dem vil vi se i dette eksempel. Nedenfor er listen over mulige autoriserede brugere af mit system, der kan være SAND eller FALSE. Vi har nævnt disse navne i ark2.
Følg nedenstående trin for at bruge Environ-funktion i VBA:
Trin 1: Nu ved hjælp af VBA Environ, vil vi finde ud af, hvilket af disse er det rigtige autoriserede brugernavn på det nuværende operativsystem. Ark1 er stedet, hvor vi finder det rigtige brugernavn på systemet i celle C3.
Trin 2: Under overskriften “ Autoriseret? ”Vi vil se om brugernavnet er autoriseret eller ej med funktionen If og CountIf som vist nedenfor. Hvis brugernavnet er gyldigt og autoriseret, får vi JA, hvis gyldigt, men ikke autoriseret, får vi Nej. For både uautoriseret og ugyldigt brugernavn får vi stadig Nej.
Trin 3: Opret nu i excel-regnearket en kommandoknap, der er tilgængelig på fanen Udvikler under Indsæt-menuens Active X-kontrol som vist nedenfor.
Trin 4: Opret nu en kommandoknap hvor som helst på arket. Vi kan også vælge alle former over kommandoknappen.
Trin 5: Højreklik på den oprettede knap og gå til indstillingen Egenskaber .
Trin 6: Under det kan vi ændre standardnavnet til noget. Her har vi valgt Run Environ som vist nedenfor.
Trin 7: Højreklik nu på den samme knap og vælg Vis kode for at gå i VBA-vinduet.
Trin 7: På det tidspunkt får vi den forudbyggede underprocedure for kommandoknappen.
Kode:
Privat underkommandoButton2_Klik () Slut sub
Trin 8: Vælg det ark, hvor vi vil anvende Environ-funktionen.
Kode:
Privat underkommandoButton2_Klik () Ark ("Ark1") Slutt sub
Trin 9: Vælg derefter områdecellerne, hvor vi vil se output.
Kode:
Privat underkommandoButton2_Click () Sheets ("Sheet1"). Range ("C3") = End Sub
Trin 10: Brug nu Environ-funktion med det felt, som vi ønsker at få. Her vil vi se USERNAME.
Kode:
Privat underkommandoButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") End Sub
Trin 11: Åbn nu en IF-ELSE-loop, hvor du skriver betingelsen, hvis rækkevidde celle E3 er JA, så giv mig beskeden som autoriseret bruger.
Kode:
Privat underkommandoButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") If Sheets ("Sheet1"). Range ("E3") = "Ja" Så MsgBox "Autoriseret bruger!" Afslut under
Trin 12: Giv mig anden meddelelse som uautoriseret bruger som vist nedenfor.
Kode:
Privat underkommandoButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") If Sheets ("Sheet1"). Range ("E3") = "Ja" Så MsgBox "Autoriseret bruger!" Ellers MsgBox "Uathoriseret bruger" Slut Hvis slut Sub
Trin 13: Nu kompilerer vi vores kode trin for trin ved at trykke på F8-funktionstasten for at se, om der er nogen fejl eller ikke. Hvis alt er godt, skal du gå ud af VBA-vinduet og fjerne markeringen af Designtilstand fra fanen Udvikler som vist nedenfor.
Trin 14: Nu kører vi vores makro ved at klikke på kommandoknappen "Run Environ". Vi vil se, på C3, det autoriserede brugernavn udskrives som Game2 og derefter bekræftes det samme to gange. En gang ved meddelelsesboksen og anden ved celle E3.
Dette betyder, at brugernavnet, der nævnes på Sheet2 som Game2, er gyldigt og autoriseret begge.
VBA-miljø - eksempel # 2
Der er en anden måde, hvorpå vi kan få de komplette oplysninger om det operativsystem, som vi har. Dette fungerer på samme måde, som vi har set i eksempel-1. Følg nedenstående trin for dette:
Trin 1: Åbn et modul fra fanen Indsæt menu.
Trin 2: Nu under Option Explicit definerer vi de funktioner, som vi ønsker at se.
Kode:
Option Eksplicit Funktion CompName () Slut Funktion
Trin 3: Antag, at hvis du vil se computernavnet, skal du bruge ethvert ord, der definerer computeren. Her har vi valgt CompName og bruger Environ- funktionen med “ Computer Name ”.
Kode:
Option Eksplicit Funktion CompName () CompName = Environ ("ComputerName") Sluttfunktion
Trin 4: Lad os åbne en anden funktion, som vi ser den midlertidige filsti som vist nedenfor.
Kode:
Valgmulighed Eksplicit funktion CompName () CompName = Environ ("ComputerName") Sluttfunktion Funktion Temp () Sluttfunktion
Trin 5: Brug nu igen ethvert ord, der definerer Temp-filstien, som TempDir og indsæt Environ- funktion med TEMP .
Kode:
Option Eksplicit funktion CompName () CompName = Environ ("ComputerName") Slutfunktion Funktion Temp () TempDir = Environ ("Temp") Slutfunktion
Trin 6: Åbn derefter den underprocedure, hvor vi vil bruge begge funktioner, som vi definerede ovenfor, for at se deres detaljer.
Kode:
Valgmulighed Eksplicit Funktion CompName () CompName = Environ ("ComputerName") Slut Funktion Funktion Temp () TempDir = Environ ("Temp") Slut Funktion Sub Enviro () Slut Sub
Trin 7: Definer en variabel som Long, hvor vi vil se detaljerne.
Kode:
Option Eksplicit Funktion CompName () CompName = Environ ("ComputerName") Slut Funktion Funktion Temp () TempDir = Environ ("Temp") Slut Funktion Sub Enviro () Dim A Som Long End Sub
Trin 8: Åbn en For-Next-løkke, og giv længden til variabel A, hvor længe vil være tegngrænsen. Her har vi sat det til 50.
Kode:
Option Eksplicit Funktion CompName () CompName = Environ ("ComputerName") Slut Funktion Funktion Temp () TempDir = Environ ("Temp") Slut Funktion Sub Enviro () Dim A så længe for A = 1 til 50 End Sub
Trin 9: Brug nu Debug Print til variabel A og med Environ- funktion som vist nedenfor.
Kode:
Option Eksplicit funktion CompName () CompName = Environ ("ComputerName") Slutfunktion Funktion Temp () TempDir = Environ ("Temp") Slutfunktion Sub Enviro () Dim A så længe i A = 1 til 50 Debug.Print Environ (A ) Next End Sub
Trin 10: Kompilér hvert trin i koden, og åbn et øjeblikkeligt vindue fra fanen Vis-menu.
Trin 11: Kør nu koden ved at klikke på knappen Afspil under menulinjen.
Trin 12: Vi vil i det øjeblikkelige vindue se komplette operativsystemdetaljer relateret til de funktioner, som vi har erklæret, hentes.
Fordele ved Excel VBA-miljøfunktion
- Det virker kompliceret, men det er let at implementere.
- Det giver de komplette oplysninger om computeren og operativsystemet.
- Vi kan liste alle specifikke detaljer såvel som efter vores krav.
- Vi kan også se, hvem der er den autoriserede bruger til at bruge og redigere systemet.
Ting at huske
- VBA-miljøet er ikke begrænset til processen vist i ovenstående eksempler. Vi kan få mange flere operativsystemdetaljer såsom en hvilken som helst sti, placering, mappe eller fil, endda enhver filstørrelse så godt ved hjælp af VBA Environ.
- Hvis en værdi, som vi indtaster, ikke er en miljøstrengstabel, vil vi ende med at få nul-længde streng.
- Når vi er færdig med kodning, skal du gemme filen i makroaktiver excel-format for at undgå at miste koden.
Anbefalede artikler
Dette er en guide til VBA Environ. Her diskuterer vi, hvordan man bruger Environ-funktion i Excel VBA sammen med praktiske eksempler og downloadbar excel-skabelon. Du kan også gennemgå vores andre foreslåede artikler -
- VBA IF-erklæringer | Excel-skabeloner
- Sådan bruges Excel VBA sorteringsfunktion?
- VBA While Loop (eksempler med Excel-skabelon)
- VBA-tæller (eksempler)