Πώς να γράψει σε έναν πίνακα χρησιμοποιώντας VBA στο Excel

Γράφοντας σε έναν πίνακα με τη χρήση της Visual Basic for Applications στο Microsoft Excel δεν είναι τόσο περίπλοκο όπως μπορείτε να σκεφτείτε . VBA είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιούνται σε εφαρμογές του Microsoft Office για να αυτοματοποιήσουν εργασίες ρουτίνας . Στην VBA , μπορείτε να χρησιμοποιήσετε τη μέθοδο « ListObjects.Add " για να δημιουργήσετε έναν νέο πίνακα στο φύλλο εργασίας σας . Χρησιμοποιήστε τη μέθοδο " Range" για να προσθέσετε τιμές στο τραπέζι σας χρησιμοποιώντας τις τιμές στηλών και γραμμών του φύλλου εργασίας . Οδηγίες
Η 1

Εκκίνηση του Microsoft Excel . Κάντε κλικ στην καρτέλα "Προγραμματιστής " , και επιλέξτε " Visual Basic ". Κάντε κλικ στο "Εισαγωγή" μενού και επιλέξτε " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα VBA 2

Προσθέστε τον ακόλουθο κώδικα για να δημιουργήσετε μια νέα διαδικασία ρουτίνας : .

Sub createAndPopulateTable ( )
εικόνων 3

Δημιουργήστε δύο μεταβλητές που θα χρησιμοποιήσετε για να γράψει τα δεδομένα στο τραπέζι :

Dim ΕΑΥ στο Φύλλο

Set ΕΑΥ = ActiveSheet
Φτηνές 4

Δημιουργήστε το τραπέζι με πέντε σειρές , χρησιμοποιώντας τις στήλες B , C και D :

ActiveSheet.ListObjects.Add ( xlSrcRange , Range ( " $ B $ 1: $ D $ 5" ) , , xlYes ) . Όνομα = _

" MyTable " TableStyle = " TableStyleLight2 "
5

ActiveSheet.ListObjects ( " MyTable ») . Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA για να γράψει τα δεδομένα στο τραπέζι σας : . .

oSh.Range ( " B2 " ) Value = 1

oSh.Range ( "C2" ) Value = 1

oSh.Range ( " D2" ) . Value = 1

oSh.Range ( " B3 " ) . Value = 2

oSh.Range ( " C3 " ) . Value = 2

oSh.Range ( " D3 " ) . Value = 2

oSh.Range ( " Β4 " ) . Value = 3

oSh.Range ( " C4 " ) . αξία = 3

oSh.Range ( « Δ4 » ) . value = 3

oSh.Range ( " B5 " ) . value = " γραμμή 4 τιμή"

ΕΑΥ . Range ( " C5 " ) . value = " γραμμή 4 τιμή"

oSh.Range ( " D5 " ) . value = " γραμμή 4 τιμή"

oSh.Range ( " Β6 " ) . Value = 5

oSh.Range ( "C6" ) . Value = 5

oSh.Range ( " D6 " ) . Value = 5
Η 6

Ολοκληρώστε τη διαδικασία, πληκτρολογώντας " End Sub" ως την τελική γραμμή του κώδικα στην ενότητα σας . Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη διαδικασία .
Η
εικόνων