V tomto článku vytvoříme makro, které vrátí přihlášenému uživateli počítač a uživatelské jméno.
V tomto příkladu chceme extrahovat název počítače v buňce C10 a uživatelské jméno v buňce C11.
Vytvořili jsme makro „GetComputerUserName“ pro vyhledání počítače a uživatelského jména. Makro můžeme spustit kliknutím na tlačítko „Odeslat“.
Makro extrahuje název počítače v buňce C10 a uživatelské jméno v buňce C11.
Vysvětlení kódu
Funkce prostředí
Funkce Environ vrací hodnotu řetězce spojenou s proměnnou prostředí operačního systému.
Syntaxe funkce Environ
Prostředí ({název proměnné prostředí | číslo})
Pro kód prosím postupujte níže
Sub GetComputerUserName () Dim ComputerName, UserName As String 'Získání názvu počítače ComputerName = Environ ("computername")' Získání uživatelského jména UserName = Environ ("username") 'Přiřazení hodnoty buňce C10 a C11 Rozsah ("C10"). Hodnota = Rozsah názvu_počítače („C11“). Hodnota = Uživatelské jméno Konec Sub
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail