Šajā rakstā mēs izveidosim makro, kas atgriezīs pieteicēja lietotāja datoru un lietotājvārdu.
Šajā piemērā mēs vēlamies iegūt datora nosaukumu šūnā C10 un lietotājvārdu šūnā C11.
Mēs esam izveidojuši makro “GetComputerUserName”, lai atrastu datoru un lietotājvārdu. Mēs varam palaist makro, noklikšķinot uz pogas “Iesniegt”.
Makro iegūs datora nosaukumu šūnā C10 un lietotājvārdu šūnā C11.
Koda skaidrojums
Vides funkcija
Funkcija Environ atgriež virknes vērtību, kas saistīta ar operētājsistēmas vides mainīgo.
Vides funkcijas sintakse
Vide ({Vides mainīgā nosaukums | numurs})
Lūdzu, sekojiet tālāk norādītajam kodam
Sub GetComputerUserName () Dim ComputerName, UserName as String 'Datora nosaukuma iegūšana ComputerName = Environ ("datora lietotājvārds")' Lietotājvārda iegūšana UserName = Environ ("lietotājvārds") 'Vērtības piešķiršana šūnai C10 un C11 Diapazons ("C10"). Vērtība = Datora nosaukuma diapazons ("C11"). Vērtība = Lietotājvārda beigu apakšdaļa
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē