Excel VBA-miljöfunktion
VBA Environ där Environ står för Miljö används för att få all information som finns i operativsystemet. Funktionen Excel VBA Environ returnerar värdet som sökväg, plats, namn, tillägg tillgängligt i systemet. Förutom denna miljö (operativsystem) finns också information om användarnamn, auktorisation, mappnamn etc.
VBA Environ anser endast uttryck som en ingång. Där det uttrycket kan vara vad som helst. Nedan är syntaxen för Environ.
Hur använder man Environ-funktion i Excel VBA?
Nedan är de olika exemplen för att använda Environ-funktionen i Excel VBA.
Du kan ladda ner denna VBA Environ Excel-mall här - VBA Environ Excel-mallVBA-miljö - exempel 1
Det finns olika sätt att få information om operativsystem via VBA Environ. En av dem kommer vi att se i det här exemplet. Nedan är listan över möjliga godkända användare av mitt system som kan vara SANT eller FALSE. Vi har nämnt dessa namn i blad2.
Följ stegen nedan för att använda Environ-funktionen i VBA:
Steg 1: Nu med hjälp av VBA Environ, hittar vi vilket av dessa som är rätt godkänt användarnamn för det nuvarande operativsystemet. Ark 1 är platsen där vi hittar rätt användarnamn för systemet i cell C3.
Steg 2: Under rubriken " Auktoriserad? ”Vi kommer att se om användarnamnet är auktoriserat eller inte med funktionen If och CountIf som visas nedan. Om användarnamnet är giltigt och godkänt kommer vi att få JA, om giltigt men inte godkänt får vi nr. För både obehörigt och ogiltigt användarnamn kommer vi fortfarande att få nr.
Steg 3: Skapa nu i Excel-kalkylbladet en kommandoknapp som är tillgänglig på fliken Utvecklare under Infoga-menyn Active X-kontroll som visas nedan.
Steg 4: Skapa nu en kommandoknapp var som helst i arket. Vi kan också välja valfri form över kommandoknappen.
Steg 5: Högerklicka på den skapade knappen och gå till alternativet Egenskaper .
Steg 6: Under det kan vi ändra standardnamnet till vad som helst. Här har vi valt Run Environ som visas nedan.
Steg 7: Högerklicka nu på samma knapp och välj Visa kod för att gå i VBA-fönstret.
Steg 7: På det sättet får vi den förbyggda delproceduren för kommandoknappen.
Koda:
Privat subkommandoButton2_Click () Avsluta sub
Steg 8: Välj arket där vi vill tillämpa Environ-funktionen.
Koda:
Privat subkommandoButton2_Click () Sheets ("Sheet1") End Sub
Steg 9: Välj sedan intervallcellerna där vi vill se utgången.
Koda:
Privat subkommandoButton2_Click () Sheets ("Sheet1"). Range ("C3") = End Sub
Steg 10: Använd nu Environ-funktionen med det fält som vi vill få. Här vill vi se USERNAME.
Koda:
Privat subkommandoButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") End Sub
Steg 11: Öppna nu en IF-ELSE-slinga där skriv villkoret om intervallcell E3 är JA, ge mig meddelandet som auktoriserad användare.
Koda:
Privat subkommandoButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") If Sheets ("Sheet1"). Range ("E3") = "Ja" Sedan MsgBox "Auktoriserad användare!" Avsluta under
Steg 12: I annat fall ge mig meddelandet som obehörig användare som visas nedan.
Koda:
Privat subkommandoButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") If Sheets ("Sheet1"). Range ("E3") = "Ja" Sedan MsgBox "Auktoriserad användare!" Annars MsgBox "Unathorized User" End If End Sub
Steg 13: Nu kommer vi att sammanställa vår kod steg för steg genom att trycka på F8-funktionsknappen för att se om det finns något fel eller inte. Om allt är bra, kan du avsluta från VBA-fönstret och avmarkera designläget på fliken Utvecklare som visas nedan.
Steg 14: Nu kommer vi att köra vårt makro genom att klicka på kommandoknappen med namnet “Run Environ”. Vi kommer att se på C3 att det godkända användarnamnet skrivs ut som Game2 och sedan bekräftas samma två gånger. En gång vid meddelanderutan och annat i cell E3.
Detta betyder att användarnamnet som nämns på Sheet2 som Game2 är giltigt och godkänt båda.
VBA-miljö - exempel # 2
Det finns ett annat sätt på vilket vi kan få fullständig information om det operativsystem som vi har. Detta fungerar på samma sätt som vi har sett i exempel 1. För detta följer du stegen nedan:
Steg 1: Öppna en modul från Infoga-menyfliken.
Steg 2: Nu under alternativet Explicit definierar vi de funktioner som vi vill se.
Koda:
Alternativ Explicit Function CompName () Avsluta funktion
Steg 3: Antag att om du vill se datornamn använder du alla ord som definierar datorn. Här har vi valt CompName och använder Environ- funktionen med " Computer Name ".
Koda:
Alternativ Explicit Function CompName () CompName = Environ ("ComputerName") Slutfunktion
Steg 4: Låt oss öppna en annan funktion där vi kommer att se den tillfälliga filvägen som visas nedan.
Koda:
Alternativ Explicit Function CompName () CompName = Environ ("ComputerName") Slutfunktionsfunktion Temp () Slutfunktion
Steg 5: Använd nu igen alla ord som definierar Temp-filsökvägen, som TempDir och infoga Environ- funktion med TEMP .
Koda:
Alternativ Explicit Function CompName () CompName = Environ ("ComputerName") Slutfunktion Funktion Temp () TempDir = Environ ("Temp") Slutfunktion
Steg 6: Efter det öppnar du delproceduren där vi kommer att använda båda funktionerna som vi definierade ovan för att se deras detaljer.
Koda:
Alternativ Explicit Function CompName () CompName = Environ ("ComputerName") Slutfunktion Funktion Temp () TempDir = Environ ("Temp") Slutfunktion Sub Enviro () Slut Sub
Steg 7: Definiera en variabel som Long där vi ser detaljerna.
Koda:
Alternativ Explicit Function CompName () CompName = Environ ("ComputerName") Slutfunktion Funktion Temp () TempDir = Environ ("Temp") Slutfunktion Sub Enviro () Dim A som Long End Sub
Steg 8: Öppna en For-Next-slinga och ge längden till variabel A hur länge är teckenbegränsningen. Här har vi angett 50.
Koda:
Alternativ Explicit Function CompName () CompName = Environ ("ComputerName") Slutfunktion Funktion Temp () TempDir = Environ ("Temp") Slutfunktion Sub Enviro () Dim A Så länge för A = 1 till 50 End Sub
Steg 9: Använd nu Debug Print för variabel A och med Environ- funktion som visas nedan.
Koda:
Alternativ Explicit Function CompName () CompName = Environ ("ComputerName") Slutfunktion Funktion Temp () TempDir = Environ ("Temp") Slutfunktion Sub Enviro () Dim A så länge för A = 1 till 50 Debug.Print Environ (A ) Next End Sub
Steg 10: Kompilera varje steg i koden och öppna ett omedelbart fönster från fliken Visa-menyn.
Steg 11: Kör nu koden genom att klicka på knappen Spela under menyfältet.
Steg 12: Vi kommer att se i det omedelbara fönstret fullständiga operativsystemdetaljer relaterade till de funktioner som vi har deklarerat hämtas.
Fördelar med Excel VBA-miljöfunktion
- Det verkar komplicerat, men det är lätt att implementera.
- Det ger detaljerad information om datorn och operativsystemet.
- Vi kan lista upp alla specifika detaljer såväl som enligt våra krav.
- Vi kan också se vem som är den auktoriserade användaren som använder och redigerar systemet.
Saker att komma ihåg
- VBA-miljön är inte begränsad till processen som visas i exemplen ovan. Vi kan få många fler operativsystemdetaljer som vilken väg, plats, mapp eller fil, även vilken filstorlek som helst, med hjälp av VBA Environ.
- Om något värde som vi matar in inte är en miljösträngstabell kommer vi i slutändan att få nollängdssträng.
- När vi är klar med kodningen, spara filen i makroaktivera Excel-format för att undvika att koden förloras.
Rekommenderade artiklar
Detta är en guide till VBA Environ. Här diskuterar vi hur man använder Environ Function i Excel VBA tillsammans med praktiska exempel och nedladdningsbar Excel-mall. Du kan också gå igenom våra andra föreslagna artiklar -
- VBA IF-uttalanden | Excel-mallar
- Hur använder jag Excel VBA sorteringsfunktion?
- VBA While Loop (exempel med Excel-mall)
- VBA-räknare (exempel)