Εάν μόλις ξεκινάτε με το VBA , τότε θα θέλετε να αρχίσετε να μελετάτε τον οδηγό μας VBA για αρχάριους^{(VBA guide for beginners)} . Αλλά αν είστε έμπειρος ειδικός στο VBA και αναζητάτε πιο προηγμένα πράγματα που μπορείτε να κάνετε με το VBA στο Excel , τότε συνεχίστε να διαβάζετε.

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

Οδηγός για προχωρημένους VBA για Microsoft Excel^{(Advanced VBA Guide For Microsoft Excel)}

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

Ακολουθούν οι πιο συνηθισμένες χρήσεις του VBA στο Excel .

• Εισαγάγετε^(Import) δεδομένα και εκτελέστε υπολογισμούς
• Υπολογίστε^(Calculate) τα αποτελέσματα από το πάτημα ενός κουμπιού από έναν χρήστη
• Αποτελέσματα υπολογισμού ηλεκτρονικού ταχυδρομείου^(Email) σε κάποιον

Με αυτά τα τρία παραδείγματα, θα πρέπει να μπορείτε να γράψετε μια ποικιλία από τον δικό σας προηγμένο κώδικα Excel VBA .

Εισαγωγή δεδομένων και εκτέλεση υπολογισμών^{(Importing Data and Performing Calculations)}

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

Με το VBA , μπορείτε να αυτοματοποιήσετε ολόκληρη τη διαδικασία. Για παράδειγμα, εάν έχετε κατεβάσει ένα νέο αρχείο CSV^(CSV) σε έναν κατάλογο στον υπολογιστή σας κάθε Δευτέρα^(Monday) , μπορείτε να διαμορφώσετε τον κώδικα VBA ώστε να εκτελείται όταν ανοίγετε για πρώτη φορά το υπολογιστικό φύλλο σας την Τρίτη το^(Tuesday) πρωί.

Ο παρακάτω κώδικας εισαγωγής θα εκτελεστεί και θα εισαγάγει το αρχείο CSV^(CSV) στο υπολογιστικό φύλλο Excel .

Dim ws As Worksheet, strFile As String

Set ws = ActiveWorkbook.Sheets("Sheet1")
Cells.ClearContents

strFile = “c:\temp\purchases.csv”

With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1"))
     .TextFileParseType = xlDelimited
     .TextFileCommaDelimiter = True
     .Refresh
End With

Ανοίξτε το εργαλείο επεξεργασίας Excel VBA και επιλέξτε το αντικείμενο Sheet1 . Από τα αναπτυσσόμενα πλαίσια αντικειμένου και μεθόδου, επιλέξτε Φύλλο εργασίας^(Worksheet) και Ενεργοποίηση^(Activate) . Αυτό θα εκτελεί τον κώδικα κάθε φορά που ανοίγετε το υπολογιστικό φύλλο.

Αυτό θα δημιουργήσει μια συνάρτηση Sub Worksheet_Activate() . Επικολλήστε τον παραπάνω κώδικα σε αυτήν τη συνάρτηση.

Αυτό ορίζει το ενεργό φύλλο εργασίας σε Sheet1 , διαγράφει το φύλλο, συνδέεται με το αρχείο χρησιμοποιώντας τη διαδρομή αρχείου που ορίσατε με τη μεταβλητή strFile και, στη συνέχεια, ο βρόχος With κυκλώνει σε κάθε γραμμή του αρχείου και τοποθετεί τα δεδομένα στο φύλλο ξεκινώντας από το κελί A1 .

Εάν εκτελέσετε αυτόν τον κώδικα, θα δείτε ότι τα δεδομένα του αρχείου CSV εισάγονται στο κενό υπολογιστικό φύλλο σας, στο Φύλλο1^(Sheet1) .

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

Η σειρά των ενεργειών που πρέπει να κάνει ο κωδικός σας είναι:

1. Δημιουργήστε νέα στήλη αποτελεσμάτων που ονομάζεται φόροι^(taxes) .
2. Κάντε βρόχο στη στήλη πωληθέντων μονάδων^{(units sold)} και υπολογίστε τον φόρο επί των πωλήσεων.
3. Γράψτε τα αποτελέσματα υπολογισμού στην κατάλληλη σειρά του φύλλου.

Ο παρακάτω κώδικας θα ολοκληρώσει όλα αυτά τα βήματα.

Dim LastRow As Long
Dim StartCell As Range
Dim rowCounter As Integer
Dim rng As Range, cell As Range
Dim fltTax As Double

Set StartCell = Range("A1")

'Find Last Row and Column
LastRow = ws.Cells(ws.Rows.Count, StartCell.Column).End(xlUp).Row
Set rng = ws.Range(ws.Cells(2, 4), ws.Cells(LastRow, 4))

rowCounter = 2
Cells(1, 5) = "taxes"

For Each cell In rng
     fltTax = cell.Value * 0.05
     Cells(rowCounter, 5) = fltTax
     rowCounter = rowCounter + 1
Next cell

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

Επικολλήστε τον παραπάνω κώδικα VBA κάτω από τον προηγούμενο κώδικα και εκτελέστε το σενάριο. Θα δείτε τα αποτελέσματα να εμφανίζονται στη στήλη Ε.

Τώρα, κάθε φορά που ανοίγετε το φύλλο εργασίας του Excel , θα βγαίνει αυτόματα και θα λαμβάνει το πιο φρέσκο ​​αντίγραφο δεδομένων από το αρχείο CSV^(CSV) . Στη συνέχεια, θα εκτελέσει τους υπολογισμούς και θα γράψει τα αποτελέσματα στο φύλλο. Δεν χρειάζεται πλέον να κάνετε τίποτα χειροκίνητα!

Υπολογισμός αποτελεσμάτων από το πάτημα του κουμπιού^{(Calculate Results From Button Press)}

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

Τα κουμπιά ελέγχου^(Control) είναι χρήσιμα εάν θέλετε να ελέγξετε ποιοι υπολογισμοί χρησιμοποιούνται. Για παράδειγμα, στην ίδια περίπτωση όπως παραπάνω, τι γίνεται αν θέλετε να χρησιμοποιήσετε φορολογικό συντελεστή 5% για μια περιοχή και φορολογικό συντελεστή 7% για μια άλλη;

Θα μπορούσατε να επιτρέψετε την αυτόματη εκτέλεση του ίδιου κωδικού εισαγωγής CSV , αλλά αφήστε τον κωδικό υπολογισμού φόρου να εκτελείται όταν πατήσετε το κατάλληλο κουμπί.

Χρησιμοποιώντας το ίδιο υπολογιστικό φύλλο όπως παραπάνω, επιλέξτε την καρτέλα Προγραμματιστής^(Developer) και επιλέξτε Εισαγωγή^(Insert) από την ομάδα Στοιχεία ελέγχου^(Controls) στην κορδέλα. Επιλέξτε το κουμπί ^{(push button)} ActiveX Control από το αναπτυσσόμενο μενού.

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

Κάντε δεξί κλικ στο κουμπί ώθησης και επιλέξτε Ιδιότητες^(Properties) . Στο παράθυρο Ιδιότητες^(Properties) , αλλάξτε τη λεζάντα σε αυτό που θέλετε να εμφανίζεται στον χρήστη. Σε αυτήν την περίπτωση μπορεί να είναι Calculate 5% Tax .

Θα δείτε αυτό το κείμενο να αντικατοπτρίζεται στο ίδιο το κουμπί. Κλείστε το παράθυρο ιδιοτήτων^(properties) και κάντε διπλό κλικ στο ίδιο το κουμπί. Αυτό θα ανοίξει το παράθυρο του επεξεργαστή κώδικα και ο κέρσορας σας θα βρίσκεται μέσα στη λειτουργία που θα εκτελείται όταν ο χρήστης πατήσει το κουμπί.

Επικολλήστε τον κωδικό υπολογισμού φόρου από την παραπάνω ενότητα σε αυτήν τη συνάρτηση, διατηρώντας τον πολλαπλασιαστή φορολογικού συντελεστή στο 0,05. Θυμηθείτε να συμπεριλάβετε τις ακόλουθες 2 γραμμές για να ορίσετε το ενεργό φύλλο.

Dim ws As Worksheet, strFile As String

Set ws = ActiveWorkbook.Sheets("Sheet1")

Τώρα, επαναλάβετε τη διαδικασία ξανά, δημιουργώντας ένα δεύτερο κουμπί. Δημιουργήστε τη λεζάντα Calculate 7% Tax .

Κάντε διπλό κλικ σε^{(Double-click)} αυτό το κουμπί και επικολλήστε τον ίδιο κωδικό, αλλά κάντε τον φορολογικό πολλαπλασιαστή 0,07.

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

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

Για να το στείλετε, επιλέξτε το μενού Προγραμματιστής^(Developer) και επιλέξτε Λειτουργία σχεδίασης^{(Design Mode)} από την ομάδα Στοιχεία ελέγχου^(Controls) στην κορδέλα για να απενεργοποιήσετε τη Λειτουργία σχεδίασης^{(Design Mode)} . Αυτό θα ενεργοποιήσει τα κουμπιά. 

Δοκιμάστε να επιλέξετε κάθε κουμπί για να δείτε πώς αλλάζει η στήλη αποτελεσμάτων "φόροι".

Αποτελέσματα υπολογισμού ηλεκτρονικού ταχυδρομείου σε κάποιον^{(Email Calculation Results to Someone)}

Τι γίνεται αν θέλετε να στείλετε τα αποτελέσματα στο υπολογιστικό φύλλο σε κάποιον μέσω email;

Θα μπορούσατε να δημιουργήσετε ένα άλλο κουμπί που ονομάζεται Φύλλο ηλεκτρονικού ταχυδρομείου στο αφεντικό^{(Email Sheet to Boss)} χρησιμοποιώντας την ίδια διαδικασία παραπάνω. Ο κώδικας για αυτό το κουμπί θα περιλαμβάνει τη χρήση του αντικειμένου CDO του Excel για τη διαμόρφωση των ρυθμίσεων email ^{(Excel CDO)}SMTP και την αποστολή των αποτελεσμάτων σε μορφή αναγνώσιμη από τον χρήστη.

Για να ενεργοποιήσετε αυτήν τη δυνατότητα, πρέπει να επιλέξετε Εργαλεία και αναφορές^{(Tools and References)} . Κάντε κύλιση προς τα κάτω στη Βιβλιοθήκη Microsoft CDO για Windows 2000^{(Microsoft CDO for Windows 2000 Library)} , ενεργοποιήστε την και επιλέξτε OK .

Υπάρχουν τρεις κύριες ενότητες στον κώδικα που πρέπει να δημιουργήσετε για να στείλετε ένα email και να ενσωματώσετε αποτελέσματα υπολογιστικού φύλλου.

Το πρώτο είναι να ρυθμίσετε μεταβλητές για να κρατήσετε το θέμα, τις διευθύνσεις Προς και Από^(From) και το σώμα του email.

Dim CDO_Mail As Object
Dim CDO_Config As Object
Dim SMTP_Config As Variant
Dim strSubject As String
Dim strFrom As String
Dim strTo As String
Dim strCc As String
Dim strBcc As String
Dim strBody As String
Dim LastRow As Long
Dim StartCell As Range
Dim rowCounter As Integer
Dim rng As Range, cell As Range
Dim fltTax As Double

Set ws = ActiveWorkbook.Sheets("Sheet1")
strSubject = "Taxes Paid This Quarter"
strFrom = "[email protected]"
strTo = "[email protected]"
strCc = ""
strBcc = ""
strBody = "The following is the breakdown of taxes paid on sales this quarter."

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

Set StartCell = Range("A1")

'Find Last Row and Column
LastRow = ws.Cells(ws.Rows.Count, StartCell.Column).End(xlUp).Row
Set rng = ws.Range(ws.Cells(2, 4), ws.Cells(LastRow, 4))

rowCounter = 2
strBody = strBody & vbCrLf

For Each cell In rng
     strBody = strBody & vbCrLf
     strBody = strBody & "We sold " & Cells(rowCounter, 3).Value & " of " & Cells(rowCounter, 1).Value _
     & " for " & Cells(rowCounter, 4).Value & " and paid taxes of " & Cells(rowCounter, 5).Value & "."
     rowCounter = rowCounter + 1
Next cell

Η επόμενη ενότητα περιλαμβάνει τη ρύθμιση των ρυθμίσεων SMTP έτσι ώστε να μπορείτε να στέλνετε email μέσω του διακομιστή SMTP σας . Εάν χρησιμοποιείτε το Gmail , αυτή είναι συνήθως η διεύθυνση email σας στο Gmail, ο κωδικός^(Gmail) πρόσβασής σας στο Gmail και ο διακομιστής ^(Gmail)SMTP^{(Gmail SMTP)} του Gmail (smtp.gmail.com).

Set CDO_Mail = CreateObject("CDO.Message") 
On Error GoTo Error_Handling
Set CDO_Config = CreateObject("CDO.Configuration")
CDO_Config.Load -1
Set SMTP_Config = CDO_Config.Fields

With SMTP_Config
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
 .Update
End With

With CDO_Mail
     Set .Configuration = CDO_Config
End With

Αντικαταστήστε [email protected] και τον κωδικό πρόσβασης με τα στοιχεία του λογαριασμού σας.

Τέλος, για να ξεκινήσει η αποστολή email, εισαγάγετε τον παρακάτω κωδικό.

CDO_Mail.Subject = strSubject
CDO_Mail.From = strFrom
CDO_Mail.To = strTo
CDO_Mail.TextBody = strBody
CDO_Mail.CC = strCc
CDO_Mail.BCC = strBcc
CDO_Mail.Send

Error_Handling:
If Err.Description <> "" Then MsgBox Err.Description

Σημείωση^(Note) : Εάν δείτε ένα σφάλμα μεταφοράς κατά την προσπάθεια εκτέλεσης αυτού του κωδικού, είναι πιθανό ότι ο Λογαριασμός σας Google αποκλείει την εκτέλεση «λιγότερο ασφαλών εφαρμογών». Θα χρειαστεί να επισκεφτείτε τη σελίδα ρυθμίσεων των λιγότερο ασφαλών εφαρμογών^{(less secure apps settings page)} και να ενεργοποιήσετε αυτήν τη λειτουργία.

Αφού ενεργοποιηθεί, το email σας θα σταλεί. Αυτό είναι το πώς φαίνεται στο άτομο που λαμβάνει το email των αποτελεσμάτων που δημιουργούνται αυτόματα.

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

An Advanced VBA Guide For MS Excel

If you are just gettіng startеd with VBA, then you’ll want to start out studying our VBA guide for beginners. But if you’re a seasoned VBA expert and you’re looking for more advanced things you can do with VBA in Excel, then keep reading.

The ability to use VBA coding in Excel opens up a whole world of automation. You can automate calculations in Excel, pushbuttons, and even send email. There are more possibilities to automate your daily work with VBA than you may realize.

Advanced VBA Guide For Microsoft Excel

The main goal of writing VBA code in Excel is so that you can extract information from a spreadsheet, perform a variety of calculations on it, and then write the results back to the spreadsheet

The following are the most common uses of VBA in Excel.

• Import data and perform calculations
• Calculate results from a user pressing a button
• Email calculation results to someone

With these three examples, you should be able to write a variety of your own advanced Excel VBA code.

Importing Data and Performing Calculations

One of the most common things people use Excel for is performing calculations on data that exists outside of Excel. If you don’t use VBA, that means you have to manually import the data, run the calculations and output those values to another sheet or report.

With VBA, you can automate the entire process. For example, if you have a new CSV file downloaded into a directory on your computer every Monday, you can configure your VBA code to run when you first open your spreadsheet on Tuesday morning.

The following import code will run and import the CSV file into your Excel spreadsheet.

Dim ws As Worksheet, strFile As String

Set ws = ActiveWorkbook.Sheets("Sheet1")
Cells.ClearContents

strFile = “c:\temp\purchases.csv”

With ws.QueryTables.Add(Connection:="TEXT;" & strFile, Destination:=ws.Range("A1"))
     .TextFileParseType = xlDelimited
     .TextFileCommaDelimiter = True
     .Refresh
End With

Open the Excel VBA editing tool and select the Sheet1 object. From the object and method dropdown boxes, choose Worksheet and Activate. This will run the code every time you open the spreadsheet.

This will create a Sub Worksheet_Activate() function. Paste the code above into that function.

This sets the active worksheet to Sheet1, clears the sheet, connects to the file using the file path you defined with the strFile variable, and then the With loop cycles through every line in the file and places the data into the sheet starting at cell A1.

If you run this code, you’ll see that the CSV file data is imported into your blank spreadsheet, in Sheet1.

Importing is only the first step. Next, you want to create a new header for the column that will contain your calculation results. In this example, let’s say you want to calculate the 5% taxes paid on the sale of each item.

The order of actions your code should take is:

1. Create new results column called taxes.
2. Loop through the units sold column and calculate the sales tax.
3. Write the calculate results to the appropriate row in the sheet.

The following code will accomplish all of these steps.

Dim LastRow As Long
Dim StartCell As Range
Dim rowCounter As Integer
Dim rng As Range, cell As Range
Dim fltTax As Double

Set StartCell = Range("A1")

'Find Last Row and Column
LastRow = ws.Cells(ws.Rows.Count, StartCell.Column).End(xlUp).Row
Set rng = ws.Range(ws.Cells(2, 4), ws.Cells(LastRow, 4))

rowCounter = 2
Cells(1, 5) = "taxes"

For Each cell In rng
     fltTax = cell.Value * 0.05
     Cells(rowCounter, 5) = fltTax
     rowCounter = rowCounter + 1
Next cell

This code finds the last row in your sheet of data, and then sets the range of cells (the column with the sales prices) according to the first and last row of data. Then the code loops through each of those cells, performs the tax calculation and writes the results into your new column (column 5).

Paste the above VBA code below the previous code, and run the script. You will see the results show up in column E.

Now, every time you open your Excel worksheet, it’ll automatically go out and get the freshest copy of data from the CSV file. Then, it will perform the calculations and write the results to the sheet. You don’t have to do anything manually anymore!

Calculate Results From Button Press

If you’d rather have more direct control over when calculations run, rather than running automatically when the sheet opens, you can use a control button instead.

Control buttons are useful if you want to control which calculations are used. For example, in this same case as above, what if you want to use a 5% tax rate for one region, and a 7% tax rate for another?

You could allow the same CSV import code to run automatically, but leave the tax calculation code to run when you press the appropriate button.

Using the same spreadsheet as above, select the Developer tab, and select Insert from the Controls group in the ribbon. Select the push button ActiveX Control from the dropdown menu.

Draw the pushbutton onto any part of the sheet away from where any data will go.

Right-click the push button, and select Properties. In the Properties window, change the Caption to what you’d like to display to the user. In this case it might be Calculate 5% Tax.

You’ll see this text reflected on the push button itself. Close the properties window, and double-click the pushbutton itself. This will open the code editor window, and your cursor will be inside the function that will run when the user presses the pushbutton.

Paste the tax calculation code from the section above into this function, keeping the tax rate multiplier at 0.05. Remember to include the following 2 lines to define the active sheet.

Dim ws As Worksheet, strFile As String

Set ws = ActiveWorkbook.Sheets("Sheet1")

Now, repeat the process again, creating a second push button. Make the caption Calculate 7% Tax.

Double-click that button and paste the same code, but make the tax multiplier 0.07.

Now, depending which button you press, the taxes column will be calculated accordingly.

Once you’re done, you’ll have both push buttons on your sheet. Each of them will initiate a different tax calculation and will write different results into the result column. 

To text this, select the Developer menu, and select Design Mode form the Controls group in the ribbon to disable Design Mode. This will activate the push buttons. 

Try selecting each push button to see how the “taxes” result column changes.

Email Calculation Results to Someone

What if you want to send the results on the spreadsheet to someone via email?

You could create another button called Email Sheet to Boss using the same procedure above. The code for this button will involve using the Excel CDO object to configure SMTP email settings, and emailing the results in a user-readable format.

To enable this feature, you need to select Tools and References. Scroll down to Microsoft CDO for Windows 2000 Library, enable it, and select OK.

There are three main sections to the code you need to create to send out an email and embed spreadsheet results.

The first is setting up variables to hold the subject, To and From addresses, and the email body.

Dim CDO_Mail As Object
Dim CDO_Config As Object
Dim SMTP_Config As Variant
Dim strSubject As String
Dim strFrom As String
Dim strTo As String
Dim strCc As String
Dim strBcc As String
Dim strBody As String
Dim LastRow As Long
Dim StartCell As Range
Dim rowCounter As Integer
Dim rng As Range, cell As Range
Dim fltTax As Double

Set ws = ActiveWorkbook.Sheets("Sheet1")
strSubject = "Taxes Paid This Quarter"
strFrom = "[email protected]"
strTo = "[email protected]"
strCc = ""
strBcc = ""
strBody = "The following is the breakdown of taxes paid on sales this quarter."

Of course, the body needs to be dynamic depending on what results are in the sheet, so here you’ll need to add a loop that goes through the range, extracts the data, and writes a line at a time to the body.

Set StartCell = Range("A1")

'Find Last Row and Column
LastRow = ws.Cells(ws.Rows.Count, StartCell.Column).End(xlUp).Row
Set rng = ws.Range(ws.Cells(2, 4), ws.Cells(LastRow, 4))

rowCounter = 2
strBody = strBody & vbCrLf

For Each cell In rng
     strBody = strBody & vbCrLf
     strBody = strBody & "We sold " & Cells(rowCounter, 3).Value & " of " & Cells(rowCounter, 1).Value _
     & " for " & Cells(rowCounter, 4).Value & " and paid taxes of " & Cells(rowCounter, 5).Value & "."
     rowCounter = rowCounter + 1
Next cell

The next section involves setting up the SMTP settings so that you can send email through your SMTP server. If you use Gmail, this is typically your Gmail email address, your Gmail password, and the Gmail SMTP server (smtp.gmail.com).

Set CDO_Mail = CreateObject("CDO.Message") 
On Error GoTo Error_Handling
Set CDO_Config = CreateObject("CDO.Configuration")
CDO_Config.Load -1
Set SMTP_Config = CDO_Config.Fields

With SMTP_Config
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
 .Update
End With

With CDO_Mail
     Set .Configuration = CDO_Config
End With

Replace [email protected] and password with your own account details.

Finally, to initiate the email send, insert the following code.

CDO_Mail.Subject = strSubject
CDO_Mail.From = strFrom
CDO_Mail.To = strTo
CDO_Mail.TextBody = strBody
CDO_Mail.CC = strCc
CDO_Mail.BCC = strBcc
CDO_Mail.Send

Error_Handling:
If Err.Description <> "" Then MsgBox Err.Description

Note: If you see a transport error when trying to run this code, it’s likely because your Google account is blocking “less secure apps” from running. You’ll need to visit the less secure apps settings page and turn this feature ON.

After that’s enabled, your email will be sent. This is what it looks like to the person who receives your automatically generated results email.

As you can see there is a lot you can actually automate with Excel VBA. Try playing around with the code snippets you’ve learned about in this article and create your own unique VBA automations.

Related posts

• Ο καλύτερος οδηγός VBA (για αρχάριους) που θα χρειαστείτε ποτέ

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

• Ένας οδηγός για όλες τις επεκτάσεις αρχείων Excel και τι σημαίνουν

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

• Διορθώστε το μήνυμα λάθους "Δεν είναι δυνατή η επαλήθευση άδειας χρήσης" του MS Office

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

• 2 τρόποι χρήσης της συνάρτησης Transpose του Excel

• Φύλλα Google εναντίον Microsoft Excel – Ποιες είναι οι διαφορές;

• Πώς να χρησιμοποιήσετε το Flash Fill In Excel

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

• Κεντράρετε τα δεδομένα του φύλλου εργασίας σας στο Excel για εκτύπωση

• 4 τρόποι για να χρησιμοποιήσετε ένα σημάδι ελέγχου στο Excel

• Πώς να κάνετε αναζήτηση στο Excel

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

• Δημιουργήστε τυχαίο κείμενο ή κείμενο Lorem Ipsum στο MS Word

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

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

• Χρησιμοποιήστε ονόματα δυναμικού εύρους στο Excel για ευέλικτα αναπτυσσόμενα

• Πώς να ανοίξετε το Word και το Excel σε ασφαλή λειτουργία

• Πώς να γράψετε έναν τύπο/δήλωση IF στο Excel