Excel VBA-Umgebungsfunktion

VBA Environ, wobei Environ für Environment steht, wird zum Abrufen von Informationen verwendet, die sich im Betriebssystem befinden. Die Excel VBA Environ-Funktion gibt den im System verfügbaren Wert wie Pfad, Speicherort, Name und Erweiterung zurück. Abgesehen von dieser Umgebung (Betriebssystem) enthält auch die Informationen über Benutzername, Autorisierung, Ordnernamen usw.

VBA Environ betrachtet nur Ausdruck als Eingabe. Wo dieser Ausdruck alles sein kann. Nachfolgend finden Sie die Syntax von Environ.

Verwendung der Umgebungsfunktion in Excel VBA

Im Folgenden finden Sie verschiedene Beispiele für die Verwendung der Environ-Funktion in Excel VBA.

Sie können diese VBA Environ Excel-Vorlage hier herunterladen - VBA Environ Excel-Vorlage

VBA-Umgebung - Beispiel 1

Es gibt verschiedene Möglichkeiten, Betriebssysteminformationen über VBA-Umgebungen abzurufen. Eines davon sehen wir in diesem Beispiel. Unten ist die Liste der möglichen autorisierten Benutzer meines Systems, die WAHR oder FALSCH sein können. Wir haben diese Namen in Sheet2 erwähnt.

Führen Sie die folgenden Schritte aus, um die Umgebungsfunktion in VBA zu verwenden:

Schritt 1: Mit Hilfe von VBA Environ finden wir nun den richtigen autorisierten Benutzernamen des aktuellen Betriebssystems. Sheet1 ist der Ort, an dem wir den korrekten Benutzernamen des Systems in Zelle C3 finden.

Schritt 2: Unter der Überschrift „ Autorisiert? ”Wir werden sehen, ob der Benutzername mit der If- und CountIf-Funktion wie unten gezeigt autorisiert ist oder nicht. Wenn der Benutzername gültig und autorisiert ist, erhalten wir JA. Wenn er gültig, aber nicht autorisiert ist, erhalten wir Nein. Für nicht autorisierten und ungültigen Benutzernamen erhalten wir weiterhin Nein.

Schritt 3: Erstellen Sie nun im Excel-Arbeitsblatt eine Befehlsschaltfläche, die auf der Registerkarte " Entwickler" unter dem ActiveX-Steuerelement des Menüs "Einfügen" verfügbar ist (siehe Abbildung unten).

Schritt 4: Erstellen Sie nun eine Befehlsschaltfläche an einer beliebigen Stelle im Blatt. Wir können auch beliebige Formen über die Befehlsschaltfläche auswählen.

Schritt 5: Klicken Sie mit der rechten Maustaste auf die erstellte Schaltfläche und wählen Sie die Option Eigenschaften .

Schritt 6: Darunter können wir den Standardnamen in einen beliebigen Namen ändern. Hier haben wir Run Environ gewählt, wie unten gezeigt.

Schritt 7: Klicken Sie jetzt mit der rechten Maustaste auf dieselbe Schaltfläche und wählen Sie Code anzeigen, um das VBA-Fenster zu öffnen.

Schritt 7: Daraufhin erhalten wir die vorgefertigte Unterprozedur der Befehlsschaltfläche.

Code:

 Private Sub CommandButton2_Click () End Sub

Schritt 8: Wählen Sie das Blatt aus, auf das die Umgebungsfunktion angewendet werden soll.

Code:

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

Schritt 9: Wählen Sie dann die Bereichszellen aus, in denen die Ausgabe angezeigt werden soll.

Code:

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

Schritt 10: Verwenden Sie nun die Environ-Funktion mit dem Feld, das Sie erhalten möchten. Hier möchten wir USERNAME sehen.

Code:

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

Schritt 11: Öffnen Sie nun eine IF-ELSE-Schleife, in die Sie die Bedingung schreiben, wenn die Bereichszelle E3 JA lautet. Geben Sie mir dann die Nachricht als berechtigter Benutzer.

Code:

 Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") If Sheets ("Sheet1"). Range ("E3") = "Yes" Then MsgBox "Authorized User!" End Sub

Schritt 12: Geben Sie mir ansonsten die Nachricht als nicht autorisierter Benutzer wie unten gezeigt.

Code:

 Private Sub CommandButton2_Click () Sheets ("Sheet1"). Range ("C3") = Environ ("USERNAME") If Sheets ("Sheet1"). Range ("E3") = "Yes" Then MsgBox "Authorized User!" Sonst MsgBox "Unathorized User" End If End Sub

Schritt 13: Jetzt kompilieren wir Schritt für Schritt unseren Code, indem wir die Funktionstaste F8 drücken, um festzustellen, ob ein Fehler vorliegt oder nicht. Wenn alles in Ordnung ist, schließen Sie das VBA-Fenster und deaktivieren Sie den Entwurfsmodus auf der Registerkarte "Entwickler" (siehe unten).

Schritt 14: Jetzt führen wir unser Makro aus, indem wir auf die Befehlsschaltfläche "Run Environ" klicken. Wir werden sehen, dass bei C3 der autorisierte Benutzername als Game2 gedruckt wird und dasselbe dann zweimal bestätigt wird. Einmal durch das Meldungsfeld und andere in Zelle E3.

Dies bedeutet, dass der Benutzername, der in Sheet2 als Game2 erwähnt wird, gültig und autorisiert ist.

VBA-Umgebung - Beispiel 2

Es gibt eine andere Möglichkeit, die vollständigen Informationen über das Betriebssystem abzurufen, über das wir verfügen. Dies funktioniert auf dieselbe Weise wie in Beispiel 1. Führen Sie dazu die folgenden Schritte aus:

Schritt 1: Öffnen Sie ein Modul über die Registerkarte Einfügen.

Schritt 2: Nun definieren wir unter Option Explicit die Funktionen, die wir sehen wollen.

Code:

 Option Explizite Funktion CompName () End Function

Schritt 3: Angenommen, Sie möchten den Computernamen sehen, verwenden Sie ein beliebiges Wort, das Computer definiert. Hier haben wir CompName gewählt und verwenden die Environ- Funktion mit “ Computer Name ”.

Code:

 Option Explizite Funktion CompName () CompName = Environ ("ComputerName") End Function

Schritt 4: Lassen Sie uns eine andere Funktion öffnen, mit der wir den Pfad der temporären Datei sehen, wie unten gezeigt.

Code:

 Option Explizite Funktion CompName () CompName = Environ ("Computername") End Function Function Temp () End Function

Schritt 5: Verwenden Sie nun wieder ein beliebiges Wort, das den Pfad der Temp-Datei definiert, wie TempDir und fügen Sie die Environ- Funktion mit TEMP ein .

Code:

 Option Explizite Funktion CompName () CompName = Environ ("ComputerName") End Function Funktion Temp () TempDir = Environ ("Temp") End Function

Schritt 6: Öffnen Sie danach die Unterprozedur, in der wir beide oben definierten Funktionen verwenden, um deren Details anzuzeigen.

Code:

 Option Explizite Funktion CompName () CompName = Environ ("Computername") Endfunktion Funktion Temp () TempDir = Environ ("Temp") Endfunktion Sub Enviro () End Sub

Schritt 7: Definieren Sie eine Variable als Long, in der die Details angezeigt werden.

Code:

 Option Explizite Funktion CompName () CompName = Environ ("Computername") Endfunktion Funktion Temp () TempDir = Environ ("Temp") Endfunktion Sub Enviro () Dim A As Long End Sub

Schritt 8: Öffnen Sie eine For-Next-Schleife und geben Sie der Variablen A die Länge an, wie lang die Zeichenbeschränkung sein soll. Hier haben wir es auf 50 gesetzt.

Code:

 Option Explizite Funktion CompName () CompName = Environ ("Computername") Endfunktion Funktion Temp () TempDir = Environ ("Temp") Endfunktion Sub Enviro () Dim A As Long For A = 1 To 50 End Sub

Schritt 9: Verwenden Sie jetzt Debug Print für Variable A und mit der unten gezeigten Umgebungsfunktion.

Code:

 Option Explizite Funktion CompName () CompName = Environ ("Computername") Endfunktion Funktion Temp () TempDir = Environ ("Temp") Endfunktion Sub Enviro () Dim A As Long For A = 1 To 50 Debug.Print Environ (A ) Next End Sub

Schritt 10: Kompilieren Sie jeden Schritt des Codes und öffnen Sie ein sofortiges Fenster über die Menüregisterkarte Ansicht.

Schritt 11: Führen Sie nun den Code aus, indem Sie auf die Schaltfläche Abspielen unterhalb der Menüleiste klicken.

Schritt 12: Im unmittelbaren Fenster werden vollständige Betriebssystemdetails zu den von uns deklarierten Funktionen abgerufen.

Vorteile der Excel VBA Environ-Funktion

  • Es scheint komplex, aber es ist einfach zu implementieren.
  • Es enthält die vollständigen Details zu Computer und Betriebssystem.
  • Wir können jedes Detail sowie nach unseren Anforderungen auflisten.
  • Wir können auch sehen, wer der autorisierte Benutzer ist, der das System verwendet und bearbeitet.

Dinge, an die man sich erinnern sollte

  • Die VBA-Umgebung ist nicht auf den in den obigen Beispielen gezeigten Prozess beschränkt. Mit Hilfe von VBA Environ können wir viele weitere Details zum Betriebssystem abrufen, z. B. einen Pfad, einen Speicherort, einen Ordner oder eine Datei, selbst eine beliebige Dateigröße.
  • Wenn ein eingegebener Wert keine Umgebungszeichenfolgentabelle ist, erhalten wir eine Zeichenfolge mit der Länge Null.
  • Wenn Sie mit dem Codieren fertig sind, speichern Sie die Datei im Makro-Enable-Excel-Format, um einen Codeverlust zu vermeiden.

Empfohlene Artikel

Dies ist eine Anleitung zu VBA Environ. Hier wird die Verwendung von Environ Function in Excel VBA zusammen mit praktischen Beispielen und einer herunterladbaren Excel-Vorlage erläutert. Sie können auch unsere anderen Artikelvorschläge durchgehen -

  1. VBA-IF-Anweisungen | Excel-Vorlagen
  2. Wie verwende ich die Excel VBA-Sortierfunktion?
  3. VBA While-Schleife (Beispiele mit Excel-Vorlage)
  4. VBA Counter (Beispiele)

Kategorie:

VBA