VBA - Overview

VBA stands for Visual Basic for Applications an event-driven programming language from Microsoft that is now
predominantly used with Microsoft office applications such as MSExcel, MS-Word, and MS-Access.
It helps techies to build customized applications and solutions to enhance the capabilities of those applications. The
advantage of this facility is that you NEED NOT have visual basic installed on our PC, however, installing Office will
implicitly help in achieving the purpose.
You can use VBA in all office versions, right from MS-Office 97 to MS-Office 2013 and also with any of the latest versions
available. Among VBA, Excel VBA is the most popular. The advantage of using VBA is that you can build very powerful
tools in MS Excel using linear programming.

Application of VBA
You might wonder why to use VBA in Excel as MS-Excel itself provides loads of inbuilt functions. MS-Excel provides only
basic inbuilt functions which might not be sufficient to perform complex calculations. Under such circumstances, VBA
becomes the most obvious solution.
For example, it is very hard to calculate the monthly repayment of a loan using Excel's built-in formulas. Rather, it is
easy to program a VBA for such a calculation.

TOPIC 1
Activate developer tab in excel (Excel 2007 and up)
Go to “File”, then Click “Options”, then “Customize Ribbon” and check the “Developer” and “OK” to enable the
developer tab in excel.

Shortcut keys
Alt + F11 : Visual basic editor window
Ctrl + R Project Explorer
F4 Properties Windows

Click new module

Type “sub groupname”
Type between Sub & End Sub
Range("a1") = 12
Then click play button (observe what happens on the excel sheet)
Next try
Range("a1:c6") = 12

Topic 1 – Range Objects and Range Properties

 1. Range object – same as cell in excel
Range object with cells

2. Range Properties:
a. .Value Property
MsgBox Range(“a1”).Value

b. .Text Property
MsgBox Range(“a1”).Text

c. .Row and .Column Property

MsgBox Range(“a1”).Text

d. .Select property
Range(“table_01”).Select

e. .Count Property
MsgBox Range(“table_01).Count

f. .ADDRESS PROPERTY
MsgBox Range(“a1”).Address(0,0)

g. .FORMULA PROPERTY
Range(“a1”).Formula = “=A2+A3”

h. .NUMBERFORMAT PROPERTY
Range(“a1”).NumberFormat = “0.00””mm”””

i. .FONT.BOLD, UNDERLINE OR ITALIC

Range(“a1”).Font.Bold = true
Range(“a1”).Font.Underline = true
Range(“a1”).Font.Italic = true

Exercise 1

Objectives:
1. Create a Macro that types the following headers on row 1:
•ID

•First Name
•Last Name
2. Make the headers BOLD!
Exercise 2
Create a Macro that:
1. Enters the following data
2. Makes a1 through b1 BOLD
3. Selects cell C1

4. Now, manually create

a shape that says Click
Me and assign your
macro to it. This is not
part of the macro, just
make the shape
manually.

TOPIC 2
a. The Cell Object

Cells(1,2) = 50
Cells(1,”b”) = 50

b. Using Cells positionally within a Range

Cells(6) = 44
Range(“a1:c16”).cells(6) = 44

c. Affecting all cells in a worksheet

Cells.Font.Name = “Arial”
Cells.Font.Size = 15

d. Using Range Object with cells Object

Range(Cells(1,2),Cells(4,3)) = 44

Exercise 3
By default, Sheet1 on a worksheet will have a default cell font and will be zoomed to 100%.
In this exercise, the user wants a macro that formats a sheet to ideal conditions for their
work.
1. Format all cells as font "Arial"
2. Zoom in to
145%
3. Format Column D (4th column) as currency, because your company always has currency in column D

TOPIC 3 – VARIABLES
a. Intro to Variables
Sub MyVar1()
MyVar = 50

b. Sub Var2()
Dim x As Integer, y As Integer
 x = 10
y = 100
MsgBox "the value of x is " & x & Chr(13) & "the value of y is " & y
End Sub

c. Sub myVar3()
Dim hi as string
Dim hello As double
Dim mydate1 as Date

Hi = “Hello World”
Hello = 634.85
Mydate1 = “01/28/2019”
End Sub
d. Private and Public variables
Public myVar3
Sub MyVar1()
MyVar = 50
Call myVar3
MsgBox Hi
End Sub

e. Constant
Constant consname as string = “Bimby”

Exercise 4
Continue with current procedure called 'getDaysOld' …
This procedure takes any Birthdate and reveals how many Days old someone is.
1. Take today's date minus the entered date to get difference (number of days since then)
2. Display "You are NNN days old" in a messagebox
3. BONUS! - Also display how many total hours old they are!
 TOPIC 4
Important Tools and Excel Logic

a. Determining the last rows in your data set

Ex. Last row in Column 1(row no.)
LastRow = cells(rows.count,1).end(xlup).row

b. Determining the last column in your data set

Ex. Last column in row 1
LastColumn = cells(1,columns.count).end(xltoleft).column

c. Determining the next row in your data set

Ex. Next row after the last row in Column 1(row no.)
NextRow = cells(rows.count,1).end(xlup).row+1

d. Absolute vs Relative references in Macro Recording

e. Using With and End With

With Range(“a1”)
.Font.Bold = true
.Font.Underline = true
.Font.Italic = true
End With

f. If then statement
Sub MyIfstatements()
If Range (“c6”) = 12 Then
MsgBox “Good!”
End If
End Sub
g. If not equal to (<>) statement
Sub MyIfstatements()
If Range (“c6”) <> 12 Then
MsgBox “Good!”
End If
End Sub

h. If , Then, ElseIF Statement

Sub MyIfstatements()
If Range (“c6”) = 12 Then
MsgBox “Good!”
Else
MsgBox “Bad”
End If
 End Sub

Another Example:
Sub MyIfstatements()
If Range (“c6”) = 12 Then
MsgBox “Twelve!”
Elseif Range(“c6”) = 5 then
MsgBox “Five”
Else
MsgBox “Please enter either a Five or a Twelve”
End If
End Sub

i. Comparative Operators with Text and Numbers

Note: VBA tend consider text somehow greater than any numbers so you'll have to compensate

Sub MyIfstatements()
If Range("c6") > 3 And IsNumeric(Range("c6")) Then
MsgBox "Good!"
End If
End Sub

j. Select Case as alternative to IF THEN Statements

Sub myCase()
Select Case Range(“c6”)
Case 12
MsgBox “Twelve”
Case is <2
MsgBox “less than 2”
Case Else
MsgBox “else”
End Select

k. GoTo and Labels (Skip “underconstruction” codes)

Goto myEnding
.
.
myEnding:

l. Message box with Yes and No Options

Sub myMessage
Answer = MsgBox (“Do you like excel vba?”, vbyesNo)
If answer = vbYes Then
MsgBox “I like it too!”
Elseif answer = vbNo Then
Msgbox “I think you should like it, it’s cool!”
End If
End Sub

Exercise 6
NOTE: To get the row number of the Selected
cell, use Selection.Row
When user clicks on a cell and clicks blue
 button, the macro will use items on that row in
various columns.

Create a Macro that does the following:

1. Asks user "Add 100 to current row sales?"
2. If Yes, add 100 to Sale Amount (current row,
column 4)
3. If No, do nothing
4. Assign Macro to blue button

m. Relative positioning using Offset

Sub MyOffset
Selection.Offset(3,1) = Selection
Or
Cells(1,1).Offset(3,1)=”Mabuhay”
End Sub

n. User Defined function

Function MoI(b, d)
MoI = (b * (d ^ 3)) / 12
End Function

With optional parameter

Function MoI(b, d, Optional dplaces)
If IsMissing(dplaces) then
MoI = (b * (d ^ 3)) / 12
Else
MoI =Round(( (b * (d ^ 3)) / 12),dplaces)
End If
End Function

Topic5 - Loops and Report Writing Basics

a. Intro to loops; the For Next Loop
Sub MyFirstLoop()
For X = 1 to 10
Cells(x, 1) = x
Next x
End Sub

Another sample:
Sub MyFirstLoop2()
For x = 1 to 10
Cells(x,1) = x * 12.75
If cells(x, 1) > 50 Then
Cells(x, 2) = True
Cells(x, 2).Font.Bold = True
Else
Cells(x, 2) = False
Cells(x, 2).Font.Bold = False
End IF
Next x
End Sub

b. Beginning our first Report using Loops

Sub myFirstReport()
lastRow = Cells(Rows.Count, 1).End(xlUp).Row

For x = 2 To lastRow
 If Cells(x, 4) >= 400 Then
myMsg = myMsg & vbNewLine & Cells(x, 1)
End If
Next x
MsgBox myMsg
End Sub

c. Using InputBox
Sub myIB()
myIB1 = InputBox("How much money should they make", "How Much", "200")
End Sub
d. Dynamic Report using InputBox
Sub myFirstReport()
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
myIB1 = InputBox("How much money should they make", "How Much", "200") +0
For x = 2 To lastRow
If Cells(x, 4) >= myIB1 Then
myMsg = myMsg & vbNewLine & Cells(x, 1)
End If
Next x
MsgBox myMsg
End Sub

Change MyMsg to:

myMsg = myMsg & vbNewLine & Cells(x, 1) & “, “ & Cells(x, 2)

e. Add Button to open our report

Using Command Button (ActiveX Control)
To be discuss manually

f. Add a “Cool Looking” Button or Image to Open Report

To be discuss manually

g. Printable Report: Declaring and Setting the Sheets

Sub myPrintableReport()

Dim dsheet As Worksheet

Dim rptsheet As Worksheet

Set dsheet = ThisWorkbook.Sheets(“data”)

Set rptsheet = ThisWorkbook.Sheets(“report”)

h. Printable Report : Getting Items on Report Sheet

Sub myPrintableReport()

Dim dsheet As Worksheet

Dim rptsheet As Worksheet

Set dsheet = ThisWorkbook.Sheets("Data")

Set rptsheet = ThisWorkbook.Sheets("report")

lastRow = dsheet. Cells(Rows.Count, 1).End(xlUp).Row

myIB1 = InputBox("How much money should they make", "How Much", "200") + 0

y = 2 'starting row

For x = 2 To lastRow
If dsheet.Cells(x, 4) >= myIB1 Then
 rptsheet.Cells(y, 1) = dsheet.Cells(x, 1) 'name
rptsheet.Cells(y, 2) = dsheet.Cells(x, 4) 'sale amount
y=y+1
End If
Next x
End Sub

i. Clearing the Last Report

Input “rptLR” before “lastRow” variable
Let rptLR variable be the last row of the report

rptLR = rptsheet.Cells(Rows.Count, 1).End(xlUp).Row

rptsheet.Range("a2:b" & rptLR).ClearContents

j. Ensuring visibility and autoselect report sheet

Add this codes at the end of loops

rptsheet.Visible = True
rptsheet.Select

i. Using print preview automatically

add this before “End Sub”
rptsheet.PrintPreview

j. Handling debug error when cancelling input box

Insert:
On Error Resume Next
If myIB1 = Empty Then Exit Sub

k. Looping with specific interval or backward

Ex.
For x = 2 to 10 step .5
Or For x = 10 to 2 step -1

l. The For Each Loop

Ex.
Sub MyForeachloop()
For each cell in range(“names”)
Msgbox cell
Next cell
End Sub

To cancel the loop,

Insert:
If cell = “any on the list” Then Exit For
EX:

Sub MyForeachloop()
For each cell in range(“names”)
IF cell = “Kellu” Then Exit For
Msgbox cell
Next cell
End Sub

Exercise 7a
Add the following to the Existing Macro:
 1. Add a Yes/No Messagebox to report with prompt "Use Title on
Report?"
2. If Yes, include Title information, if No, omit Title info on 3rd column.
3. BONUS: Create a separate procedure (copy/paste current macro) that prompts for User's Name
and only lists records with that user's name. Make a button or shape that triggers this other report.

Exercise 7b
Create a procedure that:
1. Populate the table as in the image below. Attach procedure to the blue Shape as in previous exercises
2. Note: Each Name has a number that matches their ID and they go from 1 to 25 (Use a loop!)
3. BONUS: If the ID is greater than 17, make those cells in column A have a red background as below

j. Intro to DO LOOPS

Sub MyDoLoop()
X=2
Do
MsgBox Cells(x,1)
x = x +1
Loop
End Sub

k. Do Until
Sub MyDoLoop()
X=2
Do Until Cells(x,1) = “”
MsgBox Cells(x,1)
x = x +1
Loop
End Sub

l. Loop Until
Sub MyDoLoop()
X=2
Do
MsgBox Cells(x,1)
x = x +1
Loop Until Cells(x,1) = “”
End Sub

m. Do While
Sub MyDoLoop()
X=2
Do While Cells(x,1) <> “”
MsgBox Cells(x,1)
x = x +1
Loop
End Sub
n. Loop While
Sub MyDoLoop()
X=2
Do
MsgBox Cells(x,1)
x = x +1
Loop While Cells(x,1) <> “”
End Sub

o. Exit Do
Sub MyDoLoop()
X=2
Do
If Cells(x,1) = “” Then Exit Do
MsgBox Cells(x,1)
x = x +1
Loop
End Sub

p. Loop Through Multiple Files in a folder and Scrape Data From Each
Sub getDATAFromWbs()

Dim wb As Workbook, ws As Worksheet

Set fso = CreateObject("scripting.filesystemobject")
Set fldr = fso.getfolder("C:\temp\")

For Each wbfile In fldr.Files

If fso.getextensionname(wbfile.Name) = "xlsx" Then

Set wb = Workbooks.Open(wbfile.Path)

For Each ws In wb.Sheets

Next ws

wb.Close

End If
Next wbfile
End Sub

Sub getDATAFromWbs2()
Dim wb As Workbook, ws As Worksheet
Set fso = CreateObject("scripting.filesystemobject")
Set fldr = fso.getfolder("C:\temp\")
 y = ThisWorkbook.Sheets("sheet1").Cells(Row.Count, 1).End(xlUp).Row + 1

For Each wbfile In fldr.Files

y = ThisWorkbook.Sheets("sheet1").Cells(Row.Count, 1).End(xlUp).Row + 1

If fso.getextensionname(wbfile.Name) = "xlsx" Then

Set wb = Workbooks.Open(wbfile.Path)

For Each ws In wb.Sheets

wsLR = ws.Cells(Rows.Count, 1).End(xlUp).Row

For x = 2 To wsLR
ThisWorkbook.Sheets("sheet1").Cells(y, 1) = ws.Cells(x, 1) '<<<<col1
ThisWorkbook.Sheets("sheet1").Cells(y, 2) = ws.Cells(x, 2) '<<<<col2
ThisWorkbook.Sheets("sheet1").Cells(y, 3) = CDate(ws.Cells(x, 1)) '<<<<col3
ThisWorkbook.Sheets("sheet1").Cells(y, 4) = ws.Cells(x, 4) '<<<<col4
y=y+1
Next x
Next ws

wb.Close

End If

Next wbfile
End Sub

Topic6 – Events: Worksheet Events made Easy

a. Intro to Worksheet Events and Selection_Change

Click Sheet1(Sheet1) on the Project Explorer then change into ‘Worksheet” on the upper box.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Address(0, 0) = "C2" Then
MsgBox "You've got cell C2"
Else
MsgBox "Not Cell C2"
End If
End Sub
b. Worksheet Activate Events
Private Sub Worksheet_Activate()
MsgBox "Welcome to Sheet2"
End Sub

c. Worksheet Deactivate Events

Private Sub Worksheet_Deactivate()
Sheets("Sheet3").Visible = False
End Sub

d. BeforeDelete Event
Private Sub Worksheet_BeforeDelete()
MsgBox "Hala Bakit mo binura?"
End Sub

e. BeforeDoubleClick Event
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(0, 0) = "c3" Then
MsgBox "you double clicked c3"
Cancel = True
End If
End Sub

f. BeforeRightClick Event
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(0, 0) = "C3" Then
MsgBox "you double right clicked c3"
Cancel = True
End If
End Sub

g. Calculate Event
Private Sub Worksheet_Calculate()
Columns("a:F").AutoFit
End Sub

h. Disable Events
Sub disableEvents()
Application.EnableEvents = False
End Sub

i. Intro to Change Event

Private Sub Worksheet_Change(ByVal Target As Range)
Stop
End Sub

i. Change Event with EnableEvents toggle

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If Target.Offset(0, -1) = "Destiny" Then
Application.EnableEvents = False
Target = 0.75
Application.EnableEvents = True
End If
End If
End Sub

j. Change Event triggered with custom range using Intersect

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b2:b4")) Is Nothing Then
MsgBox "You changed something in b2:b4"
End If
End Sub

j. FollowHyperlink Event
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
MsgBox Target.Name
End Sub
 Topic7 – Workbook Events

a. Workbook Open Event

Private Sub Workbook_Open()

Dim sh2 As Worksheet

Set sh2 = ThisWorkbook.Sheets(“Sheet2”)

shLR = sh2.Cells(Rows.Count, 1).End(xlUp).Row + 1

sh2.Cells(shLR, 1) = Date
sh2.Cells(shLR, 1) = Time
End Sub

b. Workbook Activate Event

Private Sub Workbook_Activate()

MsgBox "Welcome Back!"
End Sub

c. Workbook Before Save Event

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

answer = MsgBox("Are you sure you want to save?", vbYesNo)

If answer = vbNo Then
Cancel = True
End If

End Sub

d. Workbook After Save Event

Private Sub Workbook_AfterSave(ByVal Success As Boolean)

If Success = True Then
myVAR = "successful"
Else
myVAR = "unsuccessful"
End If
MsgBox "The save was " & myVAR
End Sub

d. Workbook Before Close Event

Private Sub Workbook_BeforeClose(Cancel As Boolean)

answer = MsgBox("Are you sure you want to close?", vbYesNo)
If answer = vbYes Then
Cancel = False
Else
Cancel = True
End If
End Sub

e. Workbook Before Print Event

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
MsgBox "Bawal print, mahal ink, mahal papel, ikaw di mahal, gawa ka iyo spreadsheet tsaka ka print!!"
End Sub

f. Workbook Deactivate Event

Private Sub Workbook_Deactivate()
MsgBox "Balik ka ha?, mamimiss kita!"
End Sub

g. Workbook New Sheet Event

Private Sub Workbook_NewSheet(ByVal Sh As Object) application.displayalerts
MsgBox "You have a new sheet"
Sh.Cells.Font.Bold = True
End Sub

h. Workbook Sheet Activate Event

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Sheet3" Then
Sheets("Sheet3").Visible = False
MsgBox "Uy nawala!"
End If
End Sub

h. Workbook Delete, Double Click, Event

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Sheet3" Then
Sheets("Sheet3").Visible = False
MsgBox "Uy nawala!"
End If
End Sub