Μορφή χρήστη Excel VBA - Πώς να δημιουργήσετε μια διαδραστική φόρμα χρήστη;

Μορφή χρήστη Excel VBA

Η φόρμα χρήστη στο VBA είναι προσαρμοσμένες φόρμες που καθορίζονται από τον χρήστη και δημιουργούνται για να λαμβάνουν είσοδο από έναν χρήστη με τη μορφή μιας φόρμας, έχει διαφορετικά σύνολα στοιχείων ελέγχου για προσθήκη όπως πλαίσια κειμένου, ετικέτες πλαισίων ελέγχου κ.λπ. και αποθηκεύει την τιμή στο φύλλο εργασίας, κάθε τμήμα της φόρμας χρήστη έχει έναν μοναδικό κωδικό μαζί του.

Η φόρμα χρήστη είναι ένα αντικείμενο στη διεπαφή του Excel και μέσα σε αυτήν τη φόρμα χρήστη, μπορούμε να δημιουργήσουμε άλλα χρήσιμα προσαρμοσμένα πλαίσια διαλόγου για να λάβουμε τα δεδομένα από τον χρήστη. Όταν εργάζεστε με ένα αρχείο μακροεντολής που έχει δημιουργηθεί από τον ηλικιωμένο σας ή μπορεί να ληφθεί από το Διαδίκτυο, θα πρέπει να έχετε δει μια φόρμα χρήστη όπως αυτή.

Σε αυτό το άρθρο, θα σας δείξουμε πώς να δημιουργήσετε μια παρόμοια φόρμα χρήστη για την αποθήκευση των δεδομένων από τον χρήστη.

Πώς να δημιουργήσετε φόρμα χρήστη;

Όπως και με τον τρόπο εισαγωγής μιας νέας ενότητας παρόμοια, πρέπει να κάνετε κλικ στο κουμπί ΕΙΣΑΓΩΓΗ στο Visual Basic Editor για να εισαγάγετε τη φόρμα χρήστη.

Μόλις κάνετε κλικ σε αυτό, θα εισαχθεί επίσης η φόρμα χρήστη.

Πριν σας πω πώς να προγραμματίσετε αυτό, επιτρέψτε μου να σας δείξω πώς να μορφοποιήσετε αυτήν τη φόρμα χρήστη.

Μορφοποίηση μορφής χρήστη

Επιλέγοντας τη φόρμα χρήστη, πατήστε το πλήκτρο F4, θα σας δείξει το παράθυρο ιδιοτήτων.

Χρησιμοποιώντας αυτό το παράθυρο ιδιοτήτων, μπορούμε να διαμορφώσουμε αυτήν τη φόρμα χρήστη. Μπορούμε να το ονομάσουμε. Μπορούμε να αλλάξουμε το χρώμα, το στυλ περιγράμματος κ.λπ.…

Έτσι, δοκιμάστε άλλες ιδιότητες για να δείτε τη φόρμα χρήστη.

Τώρα για αυτήν τη φόρμα χρήστη, εισαγάγετε το Toolbox.

Τώρα θα δούμε μια εργαλειοθήκη σαν αυτή.

Αυτή τη στιγμή, η φόρμα χρήστη έχει εισαχθεί μόλις, δεν έχει προγραμματιστεί. Για να μάθετε πώς λειτουργεί, απλώς κάντε κλικ στο κουμπί εκτέλεσης. Θα δούμε τη φόρμα στο φύλλο εργασίας του excel.

Τώρα χρησιμοποιώντας την ετικέτα σχεδίασης ToolBox.

Εισαγάγετε το κείμενο ως όνομα υπαλλήλου μέσα στην ετικέτα.

Για αυτήν την ετικέτα, έτσι μπορούμε να μορφοποιήσουμε χρησιμοποιώντας ιδιότητες. Τώρα έχουμε εισαγάγει το κείμενο ως «Όνομα υπαλλήλου:» τώρα μπορούμε να το δούμε στο παράθυρο ιδιοτήτων στην ενότητα Λεζάντες.

Εισαγάγετε μια ακόμη ετικέτα. Για να εισαγάγετε μια ακόμη ετικέτα, μπορείτε είτε να κάνετε κλικ σε μια εργαλειοθήκη είτε να σύρετε την τρέχουσα ετικέτα κρατώντας πατημένο το πλήκτρο Ctrl . Θα έχετε ένα αντίγραφο της τρέχουσας ετικέτας.

Τώρα θα έχουμε την ίδια ετικέτα.

Αλλάξτε το όνομα σε Αναγνωριστικό υπαλλήλου.

Τώρα εισαγάγετε επίσης μια ακόμη ετικέτα και ονομάστε την ως "Τμήμα".

Τώρα από την εργαλειοθήκη, εισαγάγετε ένα πλαίσιο κειμένου.

Ονομάστε αυτό το πλαίσιο κειμένου ως EmpName στο παράθυρο ιδιοτήτων.

Έτσι, εισαγάγετε δύο ακόμη πλαίσια κειμένου από το Employee ID & Department, αντίστοιχα. Ονομάστε αυτά τα πλαίσια κειμένου σύμφωνα με την επικεφαλίδα τους.

Ομοίως, κάντε το για το Τμήμα.

Τώρα από την εργαλειοθήκη, εισαγάγετε το κουμπί εντολών.

Αλλάξτε το όνομα του κουμπιού εντολής σε "SubmitButton" και αλλάξτε τη λεζάντα σε "Submit".

Insert one more button and call it “Cancel.”

Now just to see run, press the run button or use the F5 key and see how your userform looks like in Excel.

Now it is coming to the shape.

VBA Code

Now the user will enter data in this, so we need to program this to store the data entered by the user on this form.

Double click on the SUBMIT button, it will take you to the macro window with an auto-created macro like the below.

It says SubmitButton click, remember we had given a name for the SUBMIT button as SubmitButton.

So, whenever we want to call this button, we can call this by this name (submit button). Inside this macro, copy and paste the below code.

Code:

Private Sub SubmitButton_Click() Dim LR As Long LR = Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(LR, 1).Value = EmpName.Value Cells(LR, 2).Value = EmpID.Value Cells(LR, 3).Value = Dept.Value EmpName.Value = "" EmpID.Value = "" Dept.Value = "" End Sub

• EmpName.Value here EmpName is the text box name we had given while creating the employee name text box.
• EmpID.Value here EmpID is the text box name of the Employee ID text box.
• Dept.Value this is the department text box name.

So, on the click on the submit button, it will store the values in the mentioned cells.

Now double click on the Cancel button. This will also show you the auto macro name like this.

Copy the below code and paste.

Code:

Private Sub CancelButton_Click() MyUserForm.Hide End Sub

Το MyUserForm είναι το όνομα που είχαμε δώσει στη φόρμα χρήστη. MyUserForm.Hide σημαίνει ότι στο κλικ στο κουμπί ΑΚΥΡΩΣΗ θα κρύψει τη φόρμα χρήστη.

Εντάξει, δημιουργήστε τώρα ένα πρότυπο σαν αυτό στο φύλλο εργασίας.

Διαγράψτε όλα τα άλλα φύλλα στο βιβλίο εργασίας εκτός από αυτό το φύλλο προτύπου.

Τώρα πηγαίνετε στο Visual Basic Editor.

Και εκτελέστε τη μακροεντολή χρησιμοποιώντας το πλήκτρο F5 ή χειροκίνητα, θα δούμε τη φόρμα χρήστη μπροστά μας.

Εισαγάγετε το όνομα υπαλλήλου, το αναγνωριστικό υπαλλήλου και το όνομα τμήματος.

Τώρα, εάν κάνετε κλικ στο κουμπί ΥΠΟΒΟΛΗ, θα αποθηκεύσει τις τιμές στο πρότυπο που δημιουργήσαμε.

Έτσι, μπορείτε να συνεχίσετε να εισάγετε τα ονόματα. Η φόρμα χρήστη θα συνεχίσει να αποθηκεύει τις τιμές που εισάγει ο χρήστης στα καθορισμένα κελιά.

Έτσι, χρησιμοποιώντας το USM FORM, μπορούμε πραγματικά να δημιουργήσουμε υπέροχα έργα για να λάβουμε τις πληροφορίες από τον χρήστη.