In dit artikel zullen we een macro maken die de computer- en gebruikersnaam voor de ingelogde gebruiker retourneert.
In dit voorbeeld willen we de computernaam extraheren in cel C10 en gebruikersnaam in cel C11.
We hebben de macro "GetComputerUserName" gemaakt om de computer en gebruikersnaam te vinden. We kunnen de macro uitvoeren door op de knop "Verzenden" te klikken.
Macro extraheert de computernaam in cel C10 en gebruikersnaam in cel C11.
Code uitleg
Omgevingsfunctie
De functie Environ retourneert de tekenreekswaarde die is gekoppeld aan de omgevingsvariabele van het besturingssysteem.
Syntaxis van de omgevingsfunctie
Omgeving({Naam omgevingsvariabele | nummer})
Volg hieronder voor de code:
Sub GetComputerUserName() Dim ComputerName, UserName As String 'Computernaam ophalen ComputerName = Environ("computername") 'Gebruikersnaam ophalen UserName = Environ("username") 'Waarde toewijzen aan cel C10 en C11 Range("C10").Waarde = Bereik computernaam ("C11"). Waarde = Einde gebruikersnaam gebruikersnaam
Als je deze blog leuk vond, deel hem dan met je vrienden op Facebook. Ook kunt u ons volgen op Twitter en Facebook.
We horen graag van u, laat ons weten hoe we ons werk kunnen verbeteren en voor u kunnen verbeteren. Schrijf ons op de e-mailsite