Excel VBA-miljøfunksjon
VBA Environ hvor Environ står for Environment brukes til å få all informasjon som er der i operativsystemet. Funksjonen Excel VBA Environ returnerer verdien som sti, plassering, navn, utvidelse tilgjengelig i systemet. Bortsett fra dette miljøet (operativsystem) inneholder også informasjonen om brukernavn, autorisasjon, mappenavn, etc.
VBA Environ anser bare uttrykk som et innspill. Hvor det uttrykket kan være hva som helst. Nedenfor er syntaks av Environ.
Hvordan bruker jeg miljøfunksjon i Excel VBA?
Nedenfor er de forskjellige eksemplene for å bruke Environ-funksjonen i Excel VBA.
Du kan laste ned denne VBA Environ Excel-malen her - VBA Environ Excel MalVBA-miljø - eksempel 1
Det er forskjellige måter å få operativsysteminformasjon gjennom VBA Environ. En av dem vil vi se i dette eksemplet. Nedenfor er listen over mulige autoriserte brukere av systemet mitt som kan være SANN eller FALSE. Vi har nevnt disse navnene i ark2.
Følg trinnene nedenfor for å bruke Environ-funksjon i VBA:
Trinn 1: Nå med hjelp av VBA Environ, vil vi finne hvilket av disse som er riktig autorisert brukernavn på det nåværende operativsystemet. Ark1 er stedet hvor vi finner riktig brukernavn på systemet i celle C3.
Trinn 2: Under overskriften “ Autorisert? ”Vi får se om brukernavnet er autorisert eller ikke med funksjonen If og CountIf som vist nedenfor. Hvis brukernavnet er gyldig og autorisert, vil vi få JA, hvis gyldig, men ikke autorisert vil vi få Nei. For både uautorisert og ugyldig brukernavn, vil vi fortsatt få Nei.
Trinn 3: Nå i Excel-regnearket, oppretter du en Kommando-knapp som er tilgjengelig i Utvikler- fanen under Sett inn-menyens Active X-kontroll som vist nedenfor.
Trinn 4: Opprett nå en kommandoknapp hvor som helst på arket. Vi kan velge alle former over kommandoknappen også.
Trinn 5: Høyreklikk på den opprettede knappen og gå til Egenskaper- alternativet.
Trinn 6: Under det kan vi endre standardnavnet til hva som helst. Her har vi valgt Run Environ som vist nedenfor.
Trinn 7: Høyreklikk nå på den samme knappen og velg Vis kode for å gå i VBA-vinduet.
Trinn 7: I det får vi den forhåndsbygde delprosedyren til kommandoknappen.
Kode:
Privat underkommandoButton2_Klikk () Slutt sub
Trinn 8: Velg arket der vi vil bruke Environ-funksjonen.
Kode:
Privat underkommandoButton2_Klikk () Ark ("Ark1") Slutt sub
Trinn 9: Velg deretter avstandscellene der vi vil se utdataene.
Kode:
Privat underkommandoButton2_Klikk () Ark ("Ark1"). Område ("C3") = Slutt sub
Trinn 10: Bruk nå Environ-funksjonen med feltet vi ønsker å få. Her vil vi se USERNAME.
Kode:
Privat underkommandoButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") End Sub
Trinn 11: Åpne nå en IF-ELSE-sløyfe der du skriver tilstanden hvis rekkevidden celle E3 er JA, så gi meg beskjeden som Autorisert bruker.
Kode:
Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") If Sheets ("Sheet1"). Range ("E3") = "Ja" Så MsgBox "Autorisert bruker!" Slutt sub
Trinn 12: I andre tilfeller gi meg beskjeden som Uautorisert bruker som vist nedenfor.
Kode:
Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") If Sheets ("Sheet1"). Range ("E3") = "Ja" Så MsgBox "Autorisert bruker!" Ellers MsgBox "Unathorized User" Slutt Hvis slutt Sub
Trinn 13: Nå vil vi sammenstille koden vår trinn for trinn ved å trykke på F8-funksjonstasten for å se om det er noen feil eller ikke. Hvis alt er bra, kan du gå ut av VBA-vinduet og fjerne merket av designmodus fra Utvikler-fanen som vist nedenfor.
Trinn 14: Nå kjører vi makroen vår ved å klikke på kommandoknappen som heter “Kjør miljø”. Vi vil se, på C3, det autoriserte brukernavnet skrives ut som Game2 og deretter bekreftes det to ganger. En gang ved meldingsboksen og annet på celle E3.
Dette betyr at brukernavnet som blir nevnt på Sheet2 som Game2 er gyldig og autorisert begge deler.
VBA-miljø - eksempel # 2
Det er en annen måte vi kan få fullstendig informasjon om operativsystemet som vi har. Dette fungerer på samme måte som vi har sett i eksempel-1. Følg trinnene nedenfor for å gjøre dette:
Trinn 1: Åpne en modul fra Sett inn menyfanen.
Trinn 2: Nå under Option Explicit, definerer vi funksjonene som vi ønsker å se.
Kode:
Alternativ Eksplisitt funksjon CompName () Sluttfunksjon
Trinn 3: Anta at hvis du vil se datamaskinens navn, bruk et hvilket som helst ord som definerer datamaskin. Her har vi valgt CompName og bruker Environ- funksjonen med “ Computer Name ”.
Kode:
Alternativ Eksplisitt funksjon CompName () CompName = Environ ("ComputerName") Sluttfunksjon
Trinn 4: La oss åpne en annen funksjon som vi vil se den midlertidige filstien som vist nedenfor.
Kode:
Alternativ Eksplisitt funksjon CompName () CompName = Environ ("ComputerName") Sluttfunksjon Funksjon Temp () Sluttfunksjon
Trinn 5: Bruk igjen et hvilket som helst ord som definerer Temp-filstien, som TempDir og sett inn Environ- funksjon med TEMP .
Kode:
Alternativ Eksplisitt funksjon CompName () CompName = Environ ("ComputerName") Sluttfunksjon Funksjon Temp () TempDir = Environ ("Temp") Sluttfunksjon
Trinn 6: Åpne deretter delprosessen der vi vil bruke begge funksjonene som vi definerte over for å se detaljene deres.
Kode:
Alternativ Eksplisitt funksjon CompName () CompName = Environ ("ComputerName") Sluttfunksjon Funksjon Temp () TempDir = Environ ("Temp") Sluttfunksjon Sub Enviro () Slutt Sub
Trinn 7: Definer en variabel som Long der vi vil se detaljene.
Kode:
Alternativ Eksplisitt funksjon CompName () CompName = Environ ("ComputerName") Sluttfunksjon Funksjon Temp () TempDir = Environ ("Temp") Sluttfunksjon Sub Enviro () Dim A As Long End Sub
Trinn 8: Åpne en For-Neste-loop og gi lengden til variabel A hvor lang tid vil være tegngrensen. Her har vi satt det som 50.
Kode:
Alternativ Eksplisitt funksjon CompName () CompName = Environ ("ComputerName") Sluttfunksjon Funksjon Temp () TempDir = Environ ("Temp") Sluttfunksjon Sub Enviro () Dim A like lang for A = 1 til 50 End Sub
Trinn 9: Bruk nå Debug Print for variabel A og med Environ- funksjon som vist nedenfor.
Kode:
Alternativ Eksplisitt funksjon CompName () CompName = Environ ("ComputerName") Sluttfunksjon Funksjon Temp () TempDir = Environ ("Temp") Sluttfunksjon Sub Enviro () Dim A Så lenge til A = 1 til 50 Debug.Print Environ (A ) Neste slutt Sub
Trinn 10: Sett sammen hvert trinn i koden og åpne et øyeblikkelig vindu fra Vis-menyfanen.
Trinn 11: Kjør nå koden ved å klikke på Spill-knappen under menylinjen.
Trinn 12: Vi vil se, i det umiddelbare vinduet, komplette operativsystemdetaljer relatert til funksjonene som vi har erklært hentet.
Fordeler med Excel VBA-miljøfunksjon
- Det virker komplekst, men det er enkelt å implementere.
- Det gir fullstendig informasjon om datamaskinen og operativsystemet.
- Vi kan liste opp spesifikke detaljer så vel som i henhold til kravene våre.
- Vi kan også se hvem som er den autoriserte brukeren til å bruke og redigere systemet.
Ting å huske
- VBA-miljøet er ikke begrenset til prosessen vist i eksemplene ovenfor. Vi kan få mange flere operativsystemdetaljer, for eksempel hvilken som helst bane, plassering, mappe eller fil, til og med hvilken som helst filstørrelse, ved hjelp av VBA Environ.
- Hvis noen verdi som vi legger inn ikke er en miljøstrengetabell, vil vi ende opp med å få streng med null lengde.
- Når vi er ferdig med koding, lagrer du filen i makroaktiver Excel-format for å unngå å miste koden.
Anbefalte artikler
Dette er en guide til VBA Environ. Her diskuterer vi hvordan du bruker Environ Function i Excel VBA sammen med praktiske eksempler og nedlastbar Excel-mal. Du kan også gå gjennom andre foreslåtte artikler -
- VBA IF-uttalelser | Excel-maler
- Hvordan bruke Excel VBA sorteringsfunksjon?
- VBA While Loop (eksempler med Excel-mal)
- VBA-teller (eksempler)