Excel VBA-omgevingsfunctie

VBA Environ waar Environ staat voor Environment wordt gebruikt voor het verkrijgen van alle informatie die zich in het besturingssysteem bevindt. De functie Excel VBA Environ retourneert de waarde zoals pad, locatie, naam, extensie beschikbaar in het systeem. Afgezien van deze omgeving (besturingssysteem) bevat deze ook informatie over gebruikersnaam, autorisatie, mapnaam, etc.

VBA Environ beschouwt alleen expressie als invoer. Waar die uitdrukking alles kan zijn. Hieronder staat de syntaxis van Environ.

Hoe de omgevingsfunctie te gebruiken in Excel VBA?

Hieronder staan ​​de verschillende voorbeelden om de Environ-functie in Excel VBA te gebruiken.

U kunt deze VBA Environ Excel-sjabloon hier downloaden - VBA Environ Excel-sjabloon

VBA Environ - Voorbeeld # 1

Er zijn verschillende manieren om informatie over het besturingssysteem te verkrijgen via VBA Environ. Een daarvan zullen we in dit voorbeeld zien. Hieronder is de lijst met mogelijke geautoriseerde gebruikers van mijn systeem die WAAR of ONWAAR kan zijn. We hebben deze namen in Sheet2 genoemd.

Volg de onderstaande stappen om de Environ-functie in VBA te gebruiken:

Stap 1: Nu zullen we met behulp van VBA Environ ontdekken welke van deze de juiste geautoriseerde gebruikersnaam van het huidige besturingssysteem is. Sheet1 is de plaats waar we de juiste gebruikersnaam van het systeem vinden in cel C3.

Stap 2: Onder het kopje ' Geautoriseerd? ”We zullen zien of de gebruikersnaam al dan niet geautoriseerd is met de functie If en CountIf zoals hieronder getoond. Als de gebruikersnaam geldig en geautoriseerd is, krijgen we JA, indien geldig maar niet geautoriseerd, krijgen we Nee. Voor zowel ongeautoriseerde als ongeldige gebruikersnaam krijgen we nog steeds Nee.

Stap 3: Maak nu in Excel-werkblad een opdrachtknop die beschikbaar is op het tabblad Ontwikkelaar onder het Active X-besturingselement van het menu Invoegen, zoals hieronder wordt weergegeven.

Stap 4: Maak nu ergens op het blad een opdrachtknop. We kunnen ook elke vorm kiezen via de opdrachtknop.

Stap 5: Klik met de rechtermuisknop op de gemaakte knop en ga naar de optie Eigenschappen .

Stap 6: Daaronder kunnen we de standaardnaam in alles wijzigen. Hier hebben we Run Environ gekozen zoals hieronder getoond.

Stap 7: Klik nu met de rechtermuisknop op dezelfde knop en selecteer Code bekijken om in het VBA-venster te gaan.

Stap 7: Daarin krijgen we de vooraf gebouwde subprocedure van de opdrachtknop.

Code:

 Private Sub CommandButton2_Click () End Sub

Stap 8: Selecteer het blad waarop we de Environ-functie willen toepassen.

Code:

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

Stap 9: Selecteer vervolgens de bereikcellen waar we de uitvoer willen zien.

Code:

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

Stap 10: Gebruik nu de Environ-functie met het veld dat we willen krijgen. Hier willen we USERNAME zien.

Code:

 Private Sub CommandButton2_Click () Sheets ("Sheet1"). Bereik ("C3") = Environ ("USERNAME") End Sub

Stap 11: Open nu een IF-ELSE-lus waar schrijf de voorwaarde als bereikcel E3 JA is en geef me dan het bericht als geautoriseerde gebruiker.

Code:

 Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") If Sheets ("Sheet1"). Range ("E3") = "Ja" Vervolgens MsgBox "Geautoriseerde gebruiker!" Einde Sub

Stap 12: Geef me anders het bericht als ongeautoriseerde gebruiker zoals hieronder weergegeven.

Code:

 Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") If Sheets ("Sheet1"). Range ("E3") = "Ja" Vervolgens MsgBox "Geautoriseerde gebruiker!" Anders MsgBox "Unathorized User" End If End Sub

Stap 13: Nu zullen we onze code stap voor stap compileren door op de F8-functietoets te drukken om te zien of er een fout is of niet. Als alles goed is, verlaat u het VBA-venster en deselecteert u de ontwerpmodus op het tabblad Ontwikkelaar zoals hieronder wordt weergegeven.

Stap 14: Nu zullen we onze macro uitvoeren door te klikken op de opdrachtknop genaamd "Run Environ". We zullen zien dat op C3 de geautoriseerde gebruikersnaam wordt afgedrukt als Game2 en hetzelfde wordt twee keer bevestigd. Eens bij het berichtvak en andere bij cel E3.

Dit betekent dat de gebruikersnaam die op Sheet2 wordt vermeld als Game2 zowel geldig als geautoriseerd is.

VBA Environ - Voorbeeld # 2

Er is een andere manier waarop we de volledige informatie kunnen krijgen over het besturingssysteem dat we hebben. Dit werkt op dezelfde manier als we hebben gezien in voorbeeld-1. Volg hiervoor de onderstaande stappen:

Stap 1: Open een module via het menutabblad Invoegen.

Stap 2: Nu onder Option Explicit, zullen we de functies definiëren die we willen zien.

Code:

 Optie Expliciete functie CompName () Eindfunctie

Stap 3: Stel, als u de computernaam wilt zien, gebruikt u elk woord dat de computer definieert. Hier hebben we CompName gekozen en gebruiken we de Environ- functie met " Computernaam ".

Code:

 Optie Expliciete functie CompName () CompName = Environ ("Computernaam") Eindfunctie

Stap 4: Laten we een andere functie openen waarmee we het tijdelijke bestandspad zien, zoals hieronder weergegeven.

Code:

 Optie Expliciete functie CompName () CompName = Environ ("Computernaam") Eindfunctie Functie Temp () Eindfunctie

Stap 5: Gebruik nu opnieuw elk woord dat het Temp-bestandspad definieert, zoals TempDir en voeg de Environ- functie in met TEMP .

Code:

 Optie Expliciete functie CompName () CompName = Environ ("Computernaam") Eindfunctie Functie Temp () TempDir = Environ ("Temp") Eindfunctie

Stap 6: Open daarna de subprocedure waarin we beide functies gebruiken die we hierboven hebben gedefinieerd om hun details te bekijken.

Code:

 Optie Expliciete functie CompName () CompName = Environ ("Computernaam") Eindfunctie Functie Temp () TempDir = Environ ("Temp") Eindfunctie Sub Enviro () End Sub

Stap 7: Definieer een variabele als Long waarin we de details zullen zien.

Code:

 Optie Expliciete functie CompName () CompName = Environ ("Computernaam") Eindfunctie Functie Temp () TempDir = Environ ("Temp") Eindfunctie Sub Enviro () Dim A als Long End Sub

Stap 8: Open een For-Next-lus en geef de lengte aan variabele A hoe lang de tekenlimiet zal zijn. Hier hebben we het ingesteld op 50.

Code:

 Optie Expliciete functie CompName () CompName = Environ ("Computernaam") Eindfunctie Functie Temp () TempDir = Environ ("Temp") Eindfunctie Sub Enviro () Dim A zo lang voor A = 1 tot 50 Einde Sub

Stap 9: Gebruik nu Debug Print voor variabele A en met de Environ- functie zoals hieronder getoond.

Code:

 Optie Expliciete functie CompName () CompName = Environ ("Computernaam") Eindfunctie Functie Temp () TempDir = Environ ("Temp") Eindfunctie Sub Enviro () Dim A zo lang voor A = 1 tot 50 Debug.Print Environ (A ) Volgende einde Sub

Stap 10: compileer elke stap van de code en open een onmiddellijk venster op het menutabblad Beeld.

Stap 11: Voer nu de code uit door te klikken op de knop Afspelen onder de menubalk.

Stap 12: We zullen in het directe venster volledige besturingssysteemdetails zien met betrekking tot de functies waarvan we hebben verklaard dat ze worden opgehaald.

Voordelen van Excel VBA Environ-functie

  • Het lijkt complex, maar het is eenvoudig te implementeren.
  • Het geeft de volledige computer- en besturingssysteemdetails.
  • We kunnen elk specifiek detail vermelden, evenals onze vereisten.
  • We kunnen ook zien wie de geautoriseerde gebruiker is om het systeem te gebruiken en te bewerken.

Dingen om te onthouden

  • De VBA-omgeving is niet beperkt tot het proces dat in de bovenstaande voorbeelden wordt getoond. We kunnen met de hulp van VBA Environ veel meer details over het besturingssysteem krijgen, zoals elk pad, locatie, map of bestand, zelfs elke bestandsgrootte.
  • Als een waarde die we invoeren geen omgevingsreeksstabel is, krijgen we uiteindelijk een lengte van nul lengte.
  • Als we klaar zijn met coderen, slaat u het bestand op in macro excel-indeling inschakelen om te voorkomen dat u de code verliest.

Aanbevolen artikelen

Dit is een handleiding voor VBA Environ. Hier bespreken we het gebruik van de Environ-functie in Excel VBA, samen met praktische voorbeelden en een downloadbare Excel-sjabloon. U kunt ook onze andere voorgestelde artikelen doornemen -

  1. VBA IF-verklaringen | Excel-sjablonen
  2. Hoe de Excel VBA-sorteerfunctie te gebruiken?
  3. VBA While Loop (voorbeelden met Excel-sjabloon)
  4. VBA-teller (voorbeelden)

Categorie:

VBA