In diesem Artikel erstellen wir ein Makro, das den 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.

ArrowMain

Wir haben das Makro „GetComputerUserName“ erstellt, um den Computer und den Benutzernamen zu finden. Wir können das Makro ausführen, indem wir auf die Schaltfläche „Senden“ klicken.

ArrowOutput

Das Makro extrahiert den Computernamen in Zelle C10 und den Benutzernamen in Zelle C11.

Code Erklärung

Umgebungsfunktion

Die Umgebungsfunktion gibt den Zeichenfolgenwert zurück, der der Umgebungsvariablen des Betriebssystems zugeordnet ist.

Syntax der Environ-Funktion

Environ (\ {Name der Umgebungsvariablen | Nummer})

Bitte folgen Sie unten für den Code

Sub GetComputerUserName()

Dim ComputerName, UserName As String

'Getting computer name

ComputerName = Environ("computername")

'Getting user name

UserName = Environ("username")

'Assigning value to cell C10 and C11

Range("C10").Value = ComputerName

Range("C11").Value = UserName

End Sub

Wenn Ihnen dieser Blog gefallen hat, teilen Sie ihn mit Ihren Freunden auf Facebook und Facebook.

Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns unter [email protected]