Σε αυτό το άρθρο, θα δημιουργήσουμε μια μακροεντολή που θα επιστρέφει τον υπολογιστή και το όνομα χρήστη για τον συνδεδεμένο χρήστη.
Σε αυτό το παράδειγμα, θέλουμε να εξαγάγουμε όνομα υπολογιστή στο κελί C10 και όνομα χρήστη στο κελί C11.
Δημιουργήσαμε τη μακροεντολή "GetComputerUserName" για να βρούμε τον υπολογιστή και το όνομα χρήστη. Μπορούμε να εκτελέσουμε τη μακροεντολή κάνοντας κλικ στο κουμπί "Υποβολή".
Η μακροεντολή θα εξαγάγει το όνομα του υπολογιστή στο κελί C10 και το όνομα χρήστη στο κελί C11.
Επεξήγηση κώδικα
Λειτουργία Environ
Η συνάρτηση Environ επιστρέφει την τιμή συμβολοσειράς που σχετίζεται με τη μεταβλητή περιβάλλοντος του λειτουργικού συστήματος.
Σύνταξη της λειτουργίας Environ
Environ ({όνομα μεταβλητής περιβάλλοντος | αριθμός})
Ακολουθήστε παρακάτω για τον κωδικό
Sub GetComputerUserName () Dim ComputerName, UserName As String 'Λήψη ονόματος υπολογιστή ComputerName = Environ ("computername")' Λήψη ονόματος χρήστη UserName = Environ ("όνομα χρήστη") 'Εκχώρηση τιμής στο κελί C10 και C11 Range ("C10"). Τιμή = Εύρος ονόματος υπολογιστή ("C11"). Τιμή = Όνομα χρήστη τελικού υπο
Αν σας άρεσε αυτό το blog, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email