In diesem Artikel erstellen wir ein Makro, das Computer- und Benutzernamen für den angemeldeten Benutzer zurückgibt.
In diesem Beispiel möchten wir den Computernamen in Zelle C10 und den Benutzernamen in Zelle C11 extrahieren.
Wir haben das Makro „GetComputerUserName“ erstellt, um den Computer- und Benutzernamen zu finden. Wir können das Makro ausführen, indem wir auf die Schaltfläche "Senden" klicken.
Das Makro extrahiert den Computernamen in Zelle C10 und den Benutzernamen in Zelle C11.
Codeerklärung
Umgebungsfunktion
Die Umgebungsfunktion gibt den Zeichenfolgenwert zurück, der der Umgebungsvariablen des Betriebssystems zugeordnet ist.
Syntax der Umgebungsfunktion
Umgebung({Name der Umgebungsvariablen | Nummer})
Bitte folgen Sie unten für den Code
Sub GetComputerUserName() Dim ComputerName, UserName As String 'Computername abrufen ComputerName = Environ("computername") 'Benutzername abrufen UserName = Environ("username") 'Werte den Zellen C10 und C11 zuweisen Range("C10").Value = ComputerName Range("C11").Value = UserName End Sub
Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook. Außerdem können Sie uns auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site