Šiame straipsnyje mes sukursime makrokomandą, kuri grąžins prisijungusio vartotojo kompiuterį ir vartotojo vardą.
Šiame pavyzdyje norime išgauti kompiuterio pavadinimą ląstelėje C10 ir vartotojo vardą langelyje C11.
Sukūrėme makrokomandą „GetComputerUserName“, kad rastume kompiuterio ir vartotojo vardą. Makrokomandą galime paleisti spustelėję mygtuką „Pateikti“.
„Macro“ išskleis kompiuterio pavadinimą ląstelėje C10 ir vartotojo vardą langelyje C11.
Kodo paaiškinimas
Aplinkos funkcija
„Environ“ funkcija grąžina eilutės reikšmę, susietą su operacinės sistemos aplinkos kintamuoju.
Aplinkos funkcijos sintaksė
Aplinka ({Aplinkos kintamojo pavadinimas | skaičius})
Sekite toliau pateiktą kodą
Sub GetComputerUserName () Dim ComputerName, UserName as String 'Gaunamas kompiuterio vardas ComputerName = Environ ("computername")' Vartotojo vardo gavimas UserName = Environ ("username") 'Vertės priskyrimas langeliui C10 ir C11 Range ("C10"). Vertė = Kompiuterio pavadinimo diapazonas ("C11"). Reikšmė = Vartotojo vardo pabaiga
Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el