Το VBA^(VBA) είναι μέρος της σουίτας του Microsoft Office εδώ και πολλά χρόνια. Αν και δεν έχει την πλήρη λειτουργικότητα και δύναμη μιας πλήρους εφαρμογής VB, η VBA παρέχει στους χρήστες του Office την ευελιξία να ενσωματώνουν προϊόντα του ^(Office)Office και να αυτοματοποιούν την εργασία που κάνετε σε αυτά.

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

Τι είναι λοιπόν ένας πίνακας VBA ; Σε αυτό το άρθρο θα απαντήσουμε σε αυτήν την ερώτηση και θα σας δείξουμε πώς να χρησιμοποιήσετε ένα στο δικό σας σενάριο VBA^{(your own VBA script)} .

Τι είναι ένας πίνακας VBA;

Η χρήση ενός πίνακα VBA στο ^(VBA)Excel είναι πολύ απλή, αλλά η κατανόηση της έννοιας των συστοιχιών μπορεί να είναι λίγο περίπλοκη εάν δεν έχετε χρησιμοποιήσει ποτέ έναν.

Σκεφτείτε^(Think) έναν πίνακα σαν ένα κουτί με τμήματα μέσα του. Ένας μονοδιάστατος πίνακας είναι ένα πλαίσιο με μία γραμμή τμημάτων. Ένας δισδιάστατος πίνακας είναι ένα κουτί με δύο γραμμές τμημάτων.

Μπορείτε να βάλετε δεδομένα σε κάθε ενότητα αυτού του "κουτιού" με όποια σειρά θέλετε.

Στην αρχή του σεναρίου VBA , πρέπει να ορίσετε αυτό το "πλαίσιο" ορίζοντας τον πίνακα VBA . Έτσι, για να δημιουργήσετε έναν πίνακα που μπορεί να χωρέσει ένα σύνολο δεδομένων (έναν πίνακα μιας διάστασης), θα γράψετε την ακόλουθη γραμμή.

Dim arrMyArray(1 To 6) As String

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

arrMyArray(1) = "Ryan Dube"

Μπορείτε να δημιουργήσετε έναν δισδιάστατο πίνακα χρησιμοποιώντας την παρακάτω γραμμή.

Dim arrMyArray(1 To 6,1 to 2) As Integer

Ο πρώτος αριθμός αντιπροσωπεύει τη γραμμή και ο δεύτερος είναι η στήλη. Έτσι, ο παραπάνω πίνακας θα μπορούσε να περιέχει ένα εύρος με 6 σειρές και 2 στήλες.

Μπορείτε να φορτώσετε οποιοδήποτε στοιχείο αυτού του πίνακα με δεδομένα ως εξής.

arrMyArray(1,2) = 3

Αυτό θα φορτώσει ένα 3 στο κελί B1.

Ένας πίνακας μπορεί να κρατήσει οποιοδήποτε τύπο δεδομένων ως κανονική μεταβλητή, όπως συμβολοσειρές, boolean, ακέραιους αριθμούς, floats και άλλα.

Ο αριθμός μέσα στην παρένθεση μπορεί επίσης να είναι μεταβλητή. Οι προγραμματιστές χρησιμοποιούν συνήθως έναν βρόχο^(Loop) For για να μετρήσουν όλα τα τμήματα ενός πίνακα και να φορτώσουν κελιά δεδομένων στο υπολογιστικό φύλλο στον πίνακα. Θα δείτε πώς να το κάνετε αυτό αργότερα σε αυτό το άρθρο.

Πώς να προγραμματίσετε έναν πίνακα VBA στο Excel

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

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

Σημειώστε ότι στο VBA όταν αναφέρετε σειρές ή στήλες, μετράτε σειρές και στήλες^{(rows and columns)} ξεκινώντας από το 1 επάνω αριστερά. Άρα η στήλη rep είναι 3, η στήλη στοιχείου είναι 4 και η συνολική στήλη είναι 7.

Για να φορτώσετε αυτές τις τρεις στήλες και στις 11 σειρές, θα χρειαστεί να γράψετε το ακόλουθο σενάριο.

Dim arrMyArray(1 To 11, 1 To 3) As String
Dim i As Integer, j As Integer

For i = 2 To 12
   For j = 1 To 3
      arrMyArray(i-1, j) = Cells(i, j).Value
   Next j
Next i

Θα παρατηρήσετε ότι για να παραλείψετε τη σειρά κεφαλίδας, ο αριθμός της σειράς στο πρώτο For look πρέπει να ξεκινά από το 2 και όχι από το 1. Αυτό σημαίνει ότι πρέπει να αφαιρέσετε 1 για την τιμή της σειράς πίνακα όταν φορτώνετε την τιμή του κελιού στον πίνακα χρησιμοποιώντας κελιά^(Cells) (i, j).Τιμή.

Πού να εισαγάγετε το σενάριο VBA Array^{(Your VBA Array Script)}

Για να τοποθετήσετε μια δέσμη ενεργειών VBA στο ^(VBA)Excel , πρέπει να χρησιμοποιήσετε το πρόγραμμα επεξεργασίας VBA . Μπορείτε να αποκτήσετε πρόσβαση σε αυτό επιλέγοντας το μενού Προγραμματιστής και επιλέγοντας ^(Developer)Προβολή κώδικα^{(View Code)} στην ενότητα Στοιχεία ελέγχου^(Controls) της κορδέλας.

Εάν δεν βλέπετε τον Προγραμματιστή^(Developer) στο μενού, θα πρέπει να τον προσθέσετε. Για να το κάνετε αυτό, επιλέξτε Αρχείο^(File) και Επιλογές^(Options) για να ανοίξετε το παράθυρο Επιλογές του Excel.

Αλλάξτε τις εντολές επιλογής από το αναπτυσσόμενο μενού σε Όλες οι εντολές^{(All Commands)} . Επιλέξτε Προγραμματιστής^(Developer) από το αριστερό μενού και επιλέξτε το κουμπί Προσθήκη^(Add) για να το μετακινήσετε στο παράθυρο στα δεξιά. Επιλέξτε το πλαίσιο ελέγχου για να το ενεργοποιήσετε και επιλέξτε OK για να ολοκληρώσετε.

Όταν ανοίξει το παράθυρο του Code Editor , βεβαιωθείτε ότι το φύλλο στο οποίο βρίσκονται τα δεδομένα σας είναι επιλεγμένο στο αριστερό παράθυρο. Επιλέξτε Φύλλο εργασίας^(Worksheet) στο αριστερό αναπτυσσόμενο μενού και Ενεργοποίηση^(Activate) στα δεξιά. Αυτό θα δημιουργήσει μια νέα υπορουτίνα που ονομάζεται Worksheet_Activate ().

Αυτή η λειτουργία θα εκτελείται κάθε φορά που ανοίγει το αρχείο υπολογιστικού φύλλου. Επικολλήστε τον κώδικα στο παράθυρο σεναρίου μέσα σε αυτήν την υπορουτίνα.

Αυτό το σενάριο θα λειτουργήσει στις 12 σειρές και θα φορτώσει το όνομα του αντιπροσώπου από τη στήλη 3, το στοιχείο από τη στήλη 4 και τη συνολική πώληση από τη στήλη 7.

Μόλις ολοκληρωθούν και οι δύο βρόχοι For, ο δισδιάστατος πίνακας arrMyArray περιέχει όλα τα δεδομένα που καθορίσατε από το αρχικό φύλλο.

Χειρισμός συστοιχιών στο Excel VBA

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

Μπορείτε να το κάνετε αυτό προσθέτοντας έναν άλλο βρόχο For μετά τον πρώτο, με μια εντολή εγγραφής των αποτελεσμάτων σε ένα νέο φύλλο.

For k = 2 To 12
   Sheets("Sheet2").Cells(k, 1).Value = arrMyArray(k - 1, 1)
   Sheets("Sheet2").Cells(k, 2).Value = arrMyArray(k - 1, 2)
   Sheets("Sheet2").Cells(k, 3).Value = arrMyArray(k - 1, 3)
   Sheets("Sheet2").Cells(k, 4).Value = arrMyArray(k - 1, 3) * 0.05
Next k

Αυτό θα "ξεφορτώσει" ολόκληρο τον πίνακα στο Φύλλο2^(Sheet2) , με μια πρόσθετη σειρά που περιέχει το σύνολο πολλαπλασιασμένο επί 5% για το ποσό του φόρου.

Το φύλλο που προκύπτει θα μοιάζει με αυτό.

Όπως μπορείτε να δείτε, οι πίνακες VBA στο ^(VBA)Excel είναι εξαιρετικά χρήσιμοι και τόσο ευέλικτοι όσο κάθε άλλο κόλπο του Excel^{(any other Excel trick)} . 

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

Εάν θέλετε να γίνετε πραγματικός δημιουργικός, θα μπορούσατε ακόμη και να δημιουργήσετε δύο πίνακες που περιέχουν μια σειρά κελιών^{(containing a range of cells)} από δύο διαφορετικά φύλλα και να εκτελέσετε υπολογισμούς μεταξύ των στοιχείων κάθε πίνακα.

Οι εφαρμογές περιορίζονται μόνο από τη φαντασία σας.

What Is a VBA Array in Excel and How to Program One

VBA has been part of the Micrоsоft Office suite for mаny yeаrs. While it doеsn’t havе the full functionality and powеr of a full VB application, VBA provides Office users with the flexibility to іntegrate Office products and automate thе work you do in them.

One of the most powerful tools available in VBA is the ability to load an entire range of data into a single variable called an array. By loading data in this way, you can manipulate or perform calculations on that range of data in a variety of ways.

So what is a VBA array? In this article we’ll answer that question, and show you how to use one in your own VBA script.

What Is a VBA Array?

Using a VBA array in Excel is very simple, but understanding the concept of arrays can be a little bit complex if you’ve never used one.

Think of an array like a box with sections inside it. A one-dimensional array is a box with one line of sections. A two-dimensional array is a box with two lines of sections.

You can put data into each section of this “box” in any order you like.

At the beginning of your VBA script, you need to define this “box” by defining your VBA array. So to create an array that can hold one set of data (a one-dimension array), you would write the following line.

Dim arrMyArray(1 To 6) As String

Later in your program, you can place data into any section of this array by referencing the section inside of parentheses.

arrMyArray(1) = "Ryan Dube"

You can create a two-dimensional array using the following line.

Dim arrMyArray(1 To 6,1 to 2) As Integer

The first number represents the row, and the second is the column. So the above array could hold a range with 6 rows and 2 columns.

You can load any element of this array with data as follows.

arrMyArray(1,2) = 3

This will load a 3 into the cell B1.

An array can hold any type of data as a regular variable, such as strings, boolean, integers, floats and more.

The number inside the parenthesis can also be a variable. Programmers commonly use a For Loop to count through all sections of an array and load data cells in the spreadsheet into the array. You’ll see how to do this later in this article.

How to Program a VBA Array in Excel

Let’s take a look at a simple program where you may want to load information from a spreadsheet into a multidimensional array.

As an example, let’s look at a product sales spreadsheet, where you want to pull the sales rep’s name, item, and total sale out of the spreadsheet.

Note that in VBA when you reference rows or columns, you count rows and columns starting from the top left at 1. So the rep column is 3, the item column is 4, and the total column is 7.

To load these three columns over all 11 rows, you’ll need to write the following script.

Dim arrMyArray(1 To 11, 1 To 3) As String
Dim i As Integer, j As Integer

For i = 2 To 12
   For j = 1 To 3
      arrMyArray(i-1, j) = Cells(i, j).Value
   Next j
Next i

You’ll notice that in order to skip the header row, the row number in the first For look needs to start at 2 rather than 1. This means you need to subtract 1 for the array row value when you’re loading the cell value into the array using Cells(i, j).Value.

Where to Insert Your VBA Array Script

To place program a VBA script in Excel, you need to use the VBA editor. You can access this by selecting the Developer menu and selecting View Code in the Controls section of the ribbon.

If you don’t see the Developer in the menu, you’ll need to add it. To do this, select File and Options to open the Excel Options window.

Change the choose commands from dropdown to All Commands. Select Developer from the left menu and select the Add button to move it to the pane on the right. Select the checkbox to enable it and select OK to finish.

When the Code Editor window opens, make sure the sheet your data is in is selected in the left pane. Select Worksheet in the left dropdown and Activate in the right. This will create a new subroutine called Worksheet_Activate().

This function will run whenever the spreadsheet file is opened. Paste the code into the script pane inside this subroutine.

This script will work through the 12 rows and will load the rep name from column 3, the item from column 4, and the total sale from column 7.

Once both For loops are finished, the two dimensional array arrMyArray contains all of the data you specified from the original sheet.

Manipulating Arrays in Excel VBA

Let’s say you want to apply a 5% sales tax to all of the final sale prices, and then write all of the data to a new sheet.

You can do this by adding another For loop after the first, with a command to write the results to a new sheet.

For k = 2 To 12
   Sheets("Sheet2").Cells(k, 1).Value = arrMyArray(k - 1, 1)
   Sheets("Sheet2").Cells(k, 2).Value = arrMyArray(k - 1, 2)
   Sheets("Sheet2").Cells(k, 3).Value = arrMyArray(k - 1, 3)
   Sheets("Sheet2").Cells(k, 4).Value = arrMyArray(k - 1, 3) * 0.05
Next k

This will “unload” the entire array into Sheet2, with an additional row containing the total multiplied by 5% for the tax amount.

The resulting sheet will look like this.

As you can see, VBA arrays in Excel are extremely useful and as versatile as any other Excel trick. 

The example above is a very simple use for an array. You can create much larger arrays and perform sorting, averaging, or many other functions against the data you store in them.

If you want to get real creative, you could even create two arrays containing a range of cells from two different sheets, and perform calculations between elements of each array.

The applications are limited only by your imagination.

Related posts

• Πώς να διαγράψετε κενές γραμμές στο Excel

• Πώς να χρησιμοποιήσετε τη δυνατότητα Speak Cells του Excel

• Πώς να εισαγάγετε ένα φύλλο εργασίας του Excel σε ένα έγγραφο του Word

• Πώς να χρησιμοποιήσετε την ανάλυση What-If του Excel

• Πώς να διορθώσετε μια σειρά στο Excel

• Τρόπος ανίχνευσης εξαρτημένων στο Excel

• Πώς να δημιουργήσετε ένα γράφημα πίτας στο Excel

• Πώς να μοιραστείτε ένα αρχείο Excel για εύκολη συνεργασία

• Ένας προηγμένος οδηγός VBA για MS Excel

• Πώς να δημιουργήσετε μια μακροεντολή ή ένα σενάριο VBA στο Excel

• 10 Συμβουλές και κόλπα του Excel για το 2019

• Ομαδοποιήστε γραμμές και στήλες σε ένα φύλλο εργασίας του Excel

• Πώς να μετακινήσετε στήλες στο Excel

• Πώς να υπολογίσετε το Z-Score στο Excel

• 4 τρόποι για να μετατρέψετε το Excel σε Φύλλα Google

• 3 τρόποι για να χωρίσετε ένα κελί στο Excel

• Πώς να χρησιμοποιήσετε τις απόλυτες αναφορές στο Excel

• Βασική ταξινόμηση δεδομένων μίας στήλης και πολλών στηλών σε υπολογιστικά φύλλα του Excel

• Χρησιμοποιήστε το πληκτρολόγιο για να αλλάξετε το ύψος γραμμής και το πλάτος στήλης στο Excel

• Χρήση του εργαλείου αναζήτησης στόχου ανάλυσης What-If του Excel