V tomto článku vytvoríme makro, ktoré vráti počítač a používateľské meno prihlásenému používateľovi.
V tomto prípade chceme extrahovať názov počítača v bunke C10 a meno používateľa v bunke C11.
Vytvorili sme makro „GetComputerUserName“ na vyhľadanie počítača a používateľského mena. Makro spustíme kliknutím na tlačidlo „Odoslať“.
Makro extrahuje názov počítača do bunky C10 a meno používateľa do bunky C11.
Vysvetlenie kódu
Funkcia prostredia
Funkcia Environ vráti hodnotu reťazca spojenú s premennou prostredia operačného systému.
Syntax funkcie Environ
Prostredie ({názov premennej prostredia | číslo})
Pri kódovaní postupujte podľa nižšie uvedených pokynov
Sub GetComputerUserName () Dim ComputerName, UserName As String 'Získanie názvu počítača ComputerName = Environ ("computername")' Získanie používateľského mena UserName = Environ ("username") 'Priradenie hodnoty k bunke C10 a C11 Rozsah ("C10"). Hodnota = Rozsah názvu_počítača („C11“). Hodnota = Podnázov koncového_názviska
Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.
Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku