Haddii aad hadda bilaabayso VBA , markaa waxaad u baahan doontaa inaad bilowdo inaad barato hagahayaga VBA ee bilawga^{(VBA guide for beginners)} . Laakiin haddii aad tahay khabiir VBA ah oo khibrad leh oo aad raadinayso waxyaabo aad u horumarsan oo aad ku samayn karto VBA gudaha Excel , ka dibna sii wad wax akhriska.

Awoodda isticmaalka VBA codeing^(VBA) ee Excel waxay furaysaa adduun dhan oo otomaatig ah. Waxaad si otomaatig ah ugu samayn kartaa xisaabinta gudaha Excel , batoonnada riixitaanka, iyo xitaa iimayl u diri kartaa. Waxaa jira fursado badan oo aad ku toosin karto shaqadaada maalinlaha ah ee VBA si ka badan inta aad ogaan karto.

Hagaha sare ee VBA ee Microsoft Excel^{(Advanced VBA Guide For Microsoft Excel)}

Hadafka ugu weyn ee code-ka VBA -da ee ^(VBA)Excel waa in aad ka soo saarto macluumaadka xaashida xisaabaadka, ku samee xisaabaadyo kala duwan, ka dibna natiijada dib ugu qor xaashida xaashida.

Kuwa soo socda ayaa ah isticmaalka ugu badan ee VBA ee Excel .

• Soo rar^(Import) xogta oo samee xisaabinta
• Xisaabi^(Calculate) natiijooyinka isticmaalaha oo riixaya badhanka
• ^(Email)Natiijooyinka xisaabinta iimaylka qof

Saddexdan tusaale, waa inaad awood u yeelataa inaad qorto noocyo kala duwan oo ah koodka VBA^{(Excel VBA)} -gaaga sare ee Excel.

Soo dejinta xogta iyo Samaynta Xisaabinta^{(Importing Data and Performing Calculations)}

Mid ka mid ah waxyaabaha ugu badan ee dadku u isticmaalaan Excel waa xisaabinta xogta ka jirta Excel . Haddii aadan isticmaalin VBA , taasi waxay la macno tahay inaad gacanta ku soo dejiso xogta, socodsiiso xisaabinta oo aad soo saartaa qiyamkaas xaashi kale ama warbixin.

VBA - da , waxaad si otomaatig ah uga dhigi kartaa habka oo dhan. Tusaale ahaan, haddii aad haysato fayl cusub oo CSV ah oo lagu soo dejiyo buugga hagaha kombiyuutarkaaga Isniin^(Monday) kasta , waxaad u habayn kartaa koodhkaaga VBA -da si uu u shaqeeyo marka ugu horraysa ee aad furto xaashidaada subaxda Talaadada .^(Tuesday)

Koodhka soo dejinta ee soo socda ayaa socon doona oo soo dejin doona faylka CSV xaashidaada ^(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

Fur qalabka tafatirka VBA ee Excel oo dooro shayga ^{(Excel VBA)}Sheet1 . Laga soo bilaabo shayga iyo habka sanduuqyada hoos u dhaca, dooro Xaashida shaqada^(Worksheet) oo dhaqaaji^(Activate) . Tani waxay socodsiin doontaa koodka mar kasta oo aad furto xaashida.

Tani waxay abuuri doontaa shaqo- hoosaadka Worksheet_Activate() ^{(Sub Worksheet_Activate() )}Ku dheji koodka sare shaqadaas.

Tani waxay dejinaysaa xaashida shaqada ee firfircoon Sheet1 , nadiifisaa xaashida, waxay ku xirtaa faylka adoo isticmaalaya dariiqa faylka aad ku qeexday doorsoomiyaha strFile , ka dibna Iyadoo^(With) loop wareegyada iyada oo loo marayo xariiq kasta oo faylka ah oo dhigaya xogta xaashida ka bilaabma unugga A1 .

Haddii aad socodsiiso koodkan, waxaad arki doontaa in xogta faylka CSV la soo geliyey xaashida faaruqinta, ee Sheet1 .

Soo dejintu waa kaliya tillaabada koowaad. Marka xigta, waxaad dooneysaa inaad u abuurto madax cusub tiirka kaas oo ka koobnaan doona natiijooyinka xisaabintaada. Tusaalahan, aan nidhaahno waxaad doonaysaa inaad xisaabiso 5% cashuurta laga bixiyo iibka shay kasta.

Siday u kala horreeyaan tallaabooyinka koodkaagu waa inuu:

1. Abuur natiijooyinka cusub ee loo yaqaan cashuuraha^(taxes) .
2. Lasoco cutubyada la iibiyay^{(units sold)} oo xisaabi cashuurta iibka.
3. Ku qor natiijooyinka xisaabinta safka ku habboon xaashida.

Koodhkan soo socda ayaa fulin doona dhammaan tillaabooyinkan.

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

Koodhkani waxa uu ka helayaa safka ugu dambeeya xaashida xogtaada, ka bacdina waxa uu dejiyaa kala duwanaanta unugyada (tiirka leh qiimaha iibka) marka loo eego safka kowaad iyo kan u dambeeya ee xogta. Kadibna koodku wuxuu dhex maraa mid kasta oo unugyadaas ka mid ah, wuxuu sameeyaa xisaabinta cashuurta wuxuuna natiijada ku qorayaa tiirkaaga cusub (column 5).

Ku dheji summada sare ee VBA -da ee ka hooseeya koodkii hore, oo socodsii qoraalka. Waxaad arki doontaa natiijooyinka oo muujinaya tiirka E.

Hadda, mar kasta oo aad furto xaashidaada Excel , waxay si toos ah u bixi doontaa oo waxay ka heli doontaa nuqulkii ugu dambeeyay ee xogta faylka CSV . Kadib, waxay samayn doontaa xisaabinta waxayna natiijada ku qori doontaa xaashida. Uma baahnid inaad wax gacanta ku qabato!

Natiijooyinka ka soo xisaabi badhanka^{(Calculate Results From Button Press)}

Haddii aad jeclaan lahayd inaad si toos ah u maamusho marka xisaabintu socoto, intii aad si toos ah u shaqayn lahayd marka xaashidu furto, waxaad isticmaali kartaa badhanka kantaroolka.

Badhamada xakamaynta^(Control) ayaa faa'iido leh haddii aad rabto inaad xakamayso xisaabaadka la isticmaalo. Tusaale ahaan, isla kiiskan kor ku xusan, ka waran haddii aad rabto inaad isticmaasho heerka canshuurta 5% ee gobol, iyo 7% canshuurta gobol kale?

Waxaad u oggolaan kartaa isla koodka soo dejinta ee CSV inuu si toos ah u shaqeeyo, laakiin ka tag lambarka xisaabinta canshuurta si uu u shaqeeyo marka aad riixdo badhanka ku habboon.

Adigoo isticmaalaya xaashida faafinta ee kor ku qoran, dooro tab horumariyaha , oo ka dooro ^(Developer)Gelida^(Insert) kooxda Xakamaynta^(Controls) ee ribbon. Ka dooro badhanka riixitaanka ^{(push button)} ActiveX Control ka menu hoos u dhaca.

Ku sawir batoonka riixida qayb kasta oo xaashida ah kana fog meesha ay wax xog ahi aadi doonto.

Midig ku dhufo badhanka riix, oo dooro Properties . Daaqadda Guryaha ,^(Properties) u beddel qoraalka qoraalka waxaad jeceshahay inaad u muujiso isticmaalaha. Xaaladdan oo kale waxay noqon kartaa Calculate 5% Tax .

Waxaad arki doontaa qoraalkan oo ka muuqda badhanka riixitaanka laftiisa. Xir daaqada guryaha^(properties) , oo laba jeer dhagsi badhanka laftiisa. Tani waxay furi doontaa daaqada tifaftiraha koodka, iyo cursorkaagu wuxuu ahaan doonaa gudaha shaqada socon doonta marka isticmaaluhu uu riixo batoonka riixitaanka.

Ku dheji koodhka xisaabinta cashuuraha ee qaybta sare oo ku dheji shaqadan, adoo ku ilaalinaya tirada korodhka canshuurta 0.05. Xusuusnow inaad ku darto 2 sadar ee soo socda si aad u qeexdo xaashida firfircoon.

Dim ws As Worksheet, strFile As String

Set ws = ActiveWorkbook.Sheets("Sheet1")

Hadda, ku celi habka mar kale, adoo abuuraya badhanka riixida labaad. Samee qoraalkan Calculate 7% Tax .

Laba jeer guji^{(Double-click)} badhankaas oo ku dheji isla koodka, laakiin ka dhig badinta cashuurta 0.07.

Hadda, iyada oo ku xidhan badhanka aad riixdo, tiirka cashuuraha ayaa loo xisaabin doonaa si waafaqsan.

Marka aad dhammayso, waxa aad xaashidaada ku yeelan doontaa labada badhamada riix. Mid kasta oo iyaga ka mid ah ayaa bilaabi doona xisaabin cashuureed oo kala duwan oo waxay ku qori doonaan natiijooyin kala duwan tiirka natiijada. 

Si aad tan u qorto, dooro menu-ka soo-saare, oo dooro Qaabka Nakhshad ^{(Design Mode)}ka^(Developer) samee kooxda xakamaynta^(Controls) ee ribbon si aad u damiso Qaabka Nakhshadda^{(Design Mode)} . Tani waxay kicin doontaa badhamada riixitaanka. 

Isku day inaad doorato badhanka riix kasta si aad u aragto sida tiirka natiijada "canshuurta" isu beddesho.

Natiijooyinka Xisaabinta iimaylka ee qof^{(Email Calculation Results to Someone)}

Maxaa dhacaya haddii aad rabto inaad u dirto natiijooyinka xaashida xaashida qof iimayl ahaan?

Waxaad samayn kartaa badhan kale oo loo yaqaan Email Sheet to Boss adigoo isticmaalaya isla nidaamka kore. Koodhka badhankani waxa uu ku lug yeelan doonaa isticmaalka walaxda Excel CDO si loo habeeyo goobaha iimaylka ee ^{(Excel CDO)}SMTP , iyo u dirida natiijooyinka qaab la akhriyi karo isticmaale.

Si aad awood ugu yeelatid habkan, waxaad u baahan tahay inaad doorato Qalabka iyo Tixraaca^{(Tools and References)} . Hoos ugu dhaadhac Microsoft CDO for Windows 2000 Library , awood , oo dooro OK .

Waxaa jira saddex qaybood oo muhiim ah koodka aad u baahan tahay inaad abuurto si aad u dirto iimaylka oo aad u geliso natiijooyinka xaashida.

Midda kowaad waxa ay dejinaysaa doorsoomayaasha si ay u xajistaan ​​mawduuca, Ku noqoshada iyo ka^(From) imanaya ciwaanka, iyo jidhka iimaylka.

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."

Dabcan, jidhku wuxuu u baahan yahay inuu noqdo mid firfircoon oo ku xidhan natiijooyinka xaashida ku jira, markaa halkan waxaad u baahan doontaa inaad ku darto loop dhex mara inta u dhaxaysa, soo saarta xogta, oo u qorta xariiq jidhka markiiba.

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

Qaybta xigta waxay ku lug leedahay dejinta SMTP settings si aad email ugu soo diri karto server-kaaga SMTP . Haddii aad isticmaasho Gmail , kani caadi ahaan waa ciwaanka email kaaga, eraygaaga^(Gmail) sirta ah ee Gmail , iyo ^(Gmail)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

Ku beddel [email protected] iyo erayga sirta ah faahfaahinta akoonkaaga.

Ugu dambeyntii, si aad u bilowdo diritaanka iimaylka, geli koodka soo socda.

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

Fiiro gaar^(Note) ah: Haddii aad aragto cilad gaadiid marka aad isku deyeyso inaad socodsiiso koodkan, waxay u badan tahay sababtoo ah koontadaada Google ayaa xannibaysa "apps ammaan yar" inay socdaan. Waxaad u baahan doontaa inaad booqato bogga dejinta abka^{(less secure apps settings page)} oo aad daarato sifadan.

Taas ka dib marka la furo, iimaylkaaga ayaa la soo diri doonaa. Tani waa sida ay ugu egtahay qofka hela iimaylka natiijadaada si toos ah loo soo saaray.

Sida aad arki karto waxaa jira wax badan oo aad si toos ah ugu samayn karto Excel VBA . Isku day inaad ku ciyaarto qaybaha koodka ee aad ku baratay maqaalkan oo samee qalabyada VBA^(VBA) -da ee gaarka ah.

An Advanced VBA Guide For MS Excel

If уou are just getting started 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

• Hagaha VBA-da ugu Fiican (Bilowyaasha) Weligaa ayaad u baahan doontaa

• Sida Loo Abuuro VBA Macro Ama Script gudaha Excel

• Hagaha Dhammaan Kordhinta Faylka Excel & Waxa ay ula jeedaan

• Sida loo tirtiro khadadka banaan ee Excel

• Hagaaji MS Office "Ma Xaqiijin Karo Shatiga" Fariinta Khaladka

• Sida Taariikh ahaan loogu kala saaro Excel

• Sida Loo Sameeyo Liisaska Hoos-u-dhaca ee Isku Xirka Badan ee Excel

• Sida loo Isticmaalo Tilmaamaha Unugyada Hadalka ee Excel

• Si degdeg ah ugu qor nambarada Word iyo Excel

• 2 siyaabood oo loo Isticmaalo Shaqada Transpose ee Excel

• Waa maxay Microsoft Publisher? Hagaha bilowga

• U isticmaal Magacyada Range Dynamic ee Excel si aad u Dejiso Dabcida

• 3 Siyood Oo Unugyada Excel Loogu Kala Qaybiyo

• Xarunta Xogta Xaashida Shaqada ee Excel si loo daabaco

• Waa maxay VBA Array ee Excel iyo Sida loo Barnaamijyo Mid

• Adeegsiga Qalab Raadinta Hadafka ee Excel Maxaa-Haddii Falanqaynta

• Sida loo Furo Word iyo Excel si Badbaado ah

• Sida loo Hagaajiyo #N/A Khaladaadka gudaha Foomamka Excel sida VLOOKUP

• Sida loo isticmaalo Excel's What-If Analysis

• Safka Kooxda iyo Tiirarka ku jira xaashida shaqada ee Excel