VBA For Microsoft Excel - Lesson 18: Cells Aesthetic Formatting

	Cells Aesthetic Formatting

Cell Formatting With a Font

Introduction

A font is a description of characters designs to represent meaningful (or graphical) characters. A font is an object made of various characteristics, including a name, a size, and a style.

To define a font, the VBA library provides a class named Font. This class is equipped with the necessary characteristics.

Practical Learning: Introducing Cell Formatting

Start Microsoft Excel
On the Ribbon, click Developer
In the Code section, click Record Macro
Set the Macro Name to CreateWorkbook
In the Shortcut Key text box, type W to get Ctrl + Shift + W
Click OK
On the Ribbon, click Stop Recording
In the Code section of the Ribbon, click Macros
In the Macro dialog box, make sure CreateWorkbook is selected and click Edit

Change the code as follows:

Option Explicit

Sub CreateWorkbook()
    ' CreateWorkbook Macro
    ' This macro is used to create a workbook for the
    ' Georgetown Dry Cleaning Services

    ' Keyboard Shortcut: Ctrl+Shift+W
    
    Rem Just in case there is anything on the
    Rem worksheet, delete everything
    Range("A:K").Delete
    Range("1:20").Delete
    
    Rem Create the sections and headings of the worksheet
    Range("B2") = "Georgetown Dry Cleaning Services"
    Range("B5") = "Order Identification"
    Range("B6") = "Receipt #:"
    Range("G6") = "Order Status:"
    Range("B7") = "Customer Name:"
    Range("G7") = "Customer Phone:"
    
    Range("B9") = "Date Left:"
    Range("G9") = "Time Left:"
    Range("B10") = "Date Expected:"
    Range("G10") = "Time Expected:"
    Range("B11") = "Date Picked Up:"
    Range("G11") = "Time Picked Up:"
          
    Range("B13") = "Items to Clean"
    Range("B14") = "Item"
    Range("D14") = "Unit Price"
    Range("E14") = "Qty"
    Range("F14") = "Sub-Total"

    Range("B15") = "Shirts"
    Range("H15") = "Order Summary"
    Range("B16") = "Pants"
    Range("B17") = "None"
    Range("H17") = "Cleaning Total:"
    Range("B18") = "None"
    Range("H18") = "Tax Rate:"
    Range("I18") = "5.75"
    Range("J18") = "%"
    Range("B19") = "None"
    Range("H19") = "Tax Amount:"
    Range("B20") = "None"
    Range("H20") = "Order Total:"
    
    Rem Change the widths and heights of some columns and rows
    Rem In previous lessons, we learned all these things
    Range("E:E, G:G").ColumnWidth = 4
    Columns("H").ColumnWidth = 14
    Columns("J").ColumnWidth = 1.75
    
    Rows("3").RowHeight = 2
    Range("8:8, 12:12").RowHeight = 8
    
    Rem Hide the gridlines
    ActiveWindow.DisplayGridlines = False
End Sub

To return to Microsoft Excel, click the View Microsoft Excel button
To fill the worksheet, press Ctrl + Shift + W
Close Microsoft Excel
When asked whether you want to save, click No

The Name of a Font

To programmatically specify the name of a font, refer to the cell or the group of cells on which you want to apply the font, access its Font object, followed by its Name property. Then assign the name of the font to the cell or group of cells.

Practical Learning: Selecting a Font

Change the code as follows (if you do not have the Rockwell Condensed font, use Times New Roman):

Sub CreateWorkbook()
    ' CreateWorkbook Macro
    ' This macro is used to create a workbook for the
    ' Georgetown Dry Cleaning Services

    ' Keyboard Shortcut: Ctrl+Shift+W
    
    Rem Just in case there is anything on the
    Rem worksheet, delete everything
    Range("A:K").Delete
    Range("1:20").Delete
    
    Rem Create the sections and headings of the worksheet
    Range("B2") = "Georgetown Dry Cleaning Services"
    Range("B2").Font.Name = "Rockwell Condensed"
    
    Range("B5") = "Order Identification"
    Range("B5").Font.Name = "Cambria"
    
    Range("B6") = "Receipt #:"
    Range("G6") = "Order Status:"
    Range("B7") = "Customer Name:"
    Range("G7") = "Customer Phone:"
    
    Range("B9") = "Date Left:"
    Range("G9") = "Time Left:"
    Range("B10") = "Date Expected:"
    Range("G10") = "Time Expected:"
    Range("B11") = "Date Picked Up:"
    Range("G11") = "Time Picked Up:"
          
    Range("B13") = "Items to Clean"
    Range("B13").Font.Name = "Cambria"
    
    Range("B14") = "Item"
    Range("D14") = "Unit Price"
    Range("E14") = "Qty"
    Range("F14") = "Sub-Total"

    Range("B15") = "Shirts"
    
    Range("H15") = "Order Summary"
    Range("H15").Font.Name = "Cambria"
    
    . . . No Change
End Sub

Return to Microsoft Excel and press Ctrl + Shift + W to see the result
Return to Microsoft Visual Basic

The Size of a Font

Besides its name, a font is also known for its size. To programmatically specify the font size of a cell or a group of cells, refer to that cell or the group of cells, access its Font object, followed by its Size property, and assign the desired value to it.

Practical Learning: Setting the Font Size of a Cell

Change the code as follows:

Sub CreateWorkbook()
    ' CreateWorkbook Macro
    ' This macro is used to create a workbook for the
    ' Georgetown Dry Cleaning Services

    ' Keyboard Shortcut: Ctrl+Shift+W
    
    Rem Just in case there is anything on the
    Rem worksheet, delete everything
    Range("A:K").Delete
    Range("1:20").Delete
    
    Rem Create the sections and headings of the worksheet
    Range("B2") = "Georgetown Dry Cleaning Services"
    Range("B2").Font.Name = "Rockwell Condensed"
    Range("B2").Font.Size = 24
    
    Range("B5") = "Order Identification"
    Range("B5").Font.Name = "Cambria"
    Range("B5").Font.Size = 14
    
    . . . No Change
          
    Range("B13") = "Items to Clean"
    Range("B13").Font.Name = "Cambria"
    Range("B13").Font.Size = 14
    
    Range("B14") = "Item"
    Range("D14") = "Unit Price"
    Range("E14") = "Qty"
    Range("F14") = "Sub-Total"

    Range("B15") = "Shirts"
    
    Range("H15") = "Order Summary"
    Range("H15").Font.Name = "Cambria"
    Range("H15").Font.Size = 14
    
    . . . No Change
End Sub

Return to Microsoft Excel and press Ctrl + Shift + W to see the result
Return to Microsoft Visual Basic

The Style of a Font

The style of a font is a technique of drawing the characters of the text. To support font styles, the Font object is equipped with various Boolean properties that are Bold, Italic, Underline, and Strikethrough. Therefore, to grammatically specify the font style of a cell or a group of cells, access the cell or the group of cells, access its Font object, followed by the desired style, and assign the desired Boolean value.

Practical Learning: Formatting With Styles

Change the code as follows:

Sub CreateWorkbook()
    ' CreateWorkbook Macro
    ' This macro is used to create a workbook for the
    ' Georgetown Dry Cleaning Services

    ' Keyboard Shortcut: Ctrl+Shift+W
    
    Rem Just in case there is anything on the
    Rem worksheet, delete everything
    Range("A:K").Delete
    Range("1:20").Delete
    
    Rem Create the sections and headings of the worksheet
    Range("B2") = "Georgetown Dry Cleaning Services"
    Range("B2").Font.Name = "Rockwell Condensed"
    Range("B2").Font.Size = 24
    Range("B2").Font.Bold = True
    
    Range("B5") = "Order Identification"
    Range("B5").Font.Name = "Cambria"
    Range("B5").Font.Size = 14
    Range("B5").Font.Bold = True
    
    . . . No Change
          
    Range("B13") = "Items to Clean"
    Range("B13").Font.Name = "Cambria"
    Range("B13").Font.Size = 14
    Range("B13").Font.Bold = True
    
    Range("B14") = "Item"
    Range("D14") = "Unit Price"
    Range("E14") = "Qty"
    Range("F14") = "Sub-Total"

    Range("B15") = "Shirts"
    
    Range("H15") = "Order Summary"
    Range("H15").Font.Name = "Cambria"
    Range("H15").Font.Size = 14
    Range("H15").Font.Bold = True
    
    . . . No Change
End Sub

Return to Microsoft Excel and press Ctrl + Shift + W to see the result
Return to Microsoft Visual Basic

Text Color

A character or text can use a color to get a better visual representation. The VBA supports colors at different levels. To support colors, the Font object is equipped with a property named Color. To specify the color, assign the desired color to the property. The VBA provides a (limited) list of colors that each can be specified using a named constant. They are:

Color Name	Constant	Value	Color
Black	vbBlack	&h00
Red	vbRed	&hFF
Green	vbGreen	&hFF00
Yellow	vbYellow	&hFFFF
Blue	vbBlue	&hFF0000
Magenta	vbMagenta	&hFF00FF
Cyan	vbCyan	&hFFFF00
White	vbWhite	&hFFFFFF

Therefore, the available colors are vbBlack, vbRed, vbGreen, vbYellow, vbBlue, vbMagenta, vbCyan, and vbWhite. These are standard colors. In reality, a color in Microsoft Windows is represented as a value between 0 and 16,581,375 (in the next lesson, we will know where that number comes from). This means that you can assign a positive number to the Font.Color property and use the equivalent color.

The colors in the Font Color button are represented by a property named ThemeColor. Each one of the colors in the Theme Colors section has an equivalent name in the VBA. If you know the name of the color, assign it to the ThemeColor property.

As another alternative to specify a color, in the next lesson, we will see that you can use a function named RGB to specify a color.

Practical Learning: Specifying the Color of Text

Change the code as follows:

Sub CreateWorkbook()
    ' CreateWorkbook Macro
    ' This macro is used to create a workbook for the
    ' Georgetown Dry Cleaning Services

    ' Keyboard Shortcut: Ctrl+Shift+W
    
    Rem Just in case there is anything on the
    Rem worksheet, delete everything
    Range("A:K").Delete
    Range("1:20").Delete
    
    Rem Create the sections and headings of the worksheet
    Range("B2") = "Georgetown Dry Cleaning Services"
    Range("B2").Font.Name = "Rockwell Condensed"
    Range("B2").Font.Size = 24
    Range("B2").Font.Bold = True
    Range("B2").Font.Color = vbBlue
    
    Range("B3:J3").Interior.ThemeColor = xlThemeColorLight2
    
    Range("B5") = "Order Identification"
    Range("B5").Font.Name = "Cambria"
    Range("B5").Font.Size = 14
    Range("B5").Font.Bold = True
    Range("B5").Font.ThemeColor = 5
    
    . . . No Change
          
    Range("B13") = "Items to Clean"
    Range("B13").Font.Name = "Cambria"
    Range("B13").Font.Size = 14
    Range("B13").Font.Bold = True
    Range("B13").Font.ThemeColor = 5
    
    Range("B14") = "Item"
    Range("D14") = "Unit Price"
    Range("E14") = "Qty"
    Range("F14") = "Sub-Total"
    
    . . . No Change
    
    Range("H15") = "Order Summary"
    Range("H15").Font.Name = "Cambria"
    Range("H15").Font.Size = 14
    Range("H15").Font.Bold = True
    Range("H15").Font.ThemeColor = 5
    
    . . . No Change
    
End Sub

Return to Microsoft Excel and press Ctrl + Shift + W to see the result

Cell Alignment

Cells Merging

To programmatically merge some cells, first select them and access the MergeCells Boolean property. Then assign True or False depending on your intentions.

Practical Learning: Merging Cells

Change the code as follows:

Sub CreateWorkbook()
    
    . . . No Change
    
    Rem Merge the cells H15, I15, H16, and I16
    Range("H15:I16").MergeCells = True
    
    Rem Hide the gridlines
    ActiveWindow.DisplayGridlines = False
End Sub

Cells Content Alignment

To programmatically align the text of a cell or a group of cells, access that cell or the group of cells, access either the HorizontalAlignment or the VerticalAlignment property, and assign the desired value to it.

Practical Learning: Controlling Cells Alignment

Change the code as follows:

Sub CreateWorkbook()
    
    . . . No Change
    
    Rem Merge the cells H15, I15, H16, and I16
    Range("H15:I16").MergeCells = True
    Rem Align the merged text to the left
    Range("H15:H16").VerticalAlignment = xlCenter
    
    Rem Hide the gridlines
    ActiveWindow.DisplayGridlines = False
End Sub

Cells Content Indentation

To programmatically indent the content of a cell or the contents of various cells, refer to that cell or to the group of cells and access its IndentLevel property. Then assign the desired value. Here is an example:

Range("A1").IndentLevel = 5

Cells Borders

The Line Style of a Border

A cell appears as a rectangular box with borders and a background. To programmatically control the borders of a cell or a group of cells, refer to the cell or the group of cells and access its Borders object. This object is accessed as an indexed property. Here is an example:

Range("B2").Borders()

In the parentheses of the Borders property, specify the border you want to change. The primary available values are: xlEdgeBottom, xlEdgeTop, xlEdgeLeft, and xlEdgeRight. Sometimes you may have selected a group of cells and you want to take an action on the line(s) between (among) them. To support this, the Borders property can take an index named xlInsideVertical for a vertical border between two cells or an index named xlInsideHorizontal for a horizontal border between the cells.

After specifying the border you want to work on, you must specify the type of characteristic you want to change. For example, you can specify the type of line you want the border to show. To support this, the Borders object is equipped with a property named LineStyle. To specify the type of line you want the border to display, you can assign a value to the LineStyle property. The available values are xlContinuous, xlDash, xlDashDot, xlDashDotDot, xlDot, xlDouble, xlSlantDashDot, and xlLineStyleNone. Therefore, you can assign any of these values to the property. To assist you with this, you can type LineStyle followed by a period and select the desired value from the list that appears:

Practical Learning: Specifying the Styles of Cells Border

Change the code as follows:

Sub CreateWorkbook()
    ' CreateWorkbook Macro
    ' This macro is used to create a workbook for the
    ' Georgetown Dry Cleaning Services

    ' Keyboard Shortcut: Ctrl+Shift+W
    
    Rem Just in case there is anything on the
    Rem worksheet, delete everything
    Range("A:K").Delete
    Range("1:20").Delete
    
    Rem Create the sections and headings of the worksheet
    Range("B2") = "Georgetown Dry Cleaning Services"
    Range("B2").Font.Name = "Rockwell Condensed"
    Range("B2").Font.Size = 24
    Range("B2").Font.Bold = True
    Range("B2").Font.Color = vbBlue
    
    Range("B5") = "Order Identification"
    Range("B5").Font.Name = "Cambria"
    Range("B5").Font.Size = 14
    Range("B5").Font.Bold = True
    Range("B5").Font.ThemeColor = 5
    
    Rem To draw a thick line, change the bottom
    Rem borders of the cells from B5 to J5
    Range("B5:J5").Borders(xlEdgeBottom).LineStyle = xlContinuous
    
    Range("B6") = "Receipt #:"
    Range("D6:F6").Borders(xlEdgeBottom).LineStyle = xlContinuous
    
    Range("G6") = "Order Status:"
    Range("I6:J6").Borders(xlEdgeBottom).LineStyle = xlContinuous
    
    Range("B7") = "Customer Name:"
    Range("D7:F7").Borders(xlEdgeBottom).LineStyle = xlContinuous
    
    Range("G7") = "Customer Phone:"
    Range("I7:J7").Borders(xlEdgeBottom).LineStyle = xlContinuous
    
    Rem To draw a thick line, change the bottom
    Rem borders of the cells from B5 to J5
    Range("B8:J8").Borders(xlEdgeBottom).LineStyle = xlContinuous
    
    Range("B9") = "Date Left:"
    Range("D9:F9").Borders(xlEdgeBottom).LineStyle = xlContinuous
    
    Range("G9") = "Time Left:"
    Range("I9:J9").Borders(xlEdgeBottom).LineStyle = xlContinuous
    
    Range("B10") = "Date Expected:"
    Range("D10:F10").Borders(xlEdgeBottom).LineStyle = xlContinuous
    
    Range("G10") = "Time Expected:"
    Range("I10:J10").Borders(xlEdgeBottom).LineStyle = xlContinuous
    
    Range("B11") = "Date Picked Up:"
    Range("D11:F11").Borders(xlEdgeBottom).LineStyle = xlContinuous
    
    Range("G11") = "Time Picked Up:"
    Range("I11:J11").Borders(xlEdgeBottom).LineStyle = xlContinuous
    
    Rem To draw a thick line, change the bottom
    Rem borders of the cells from B5 to J5
    Range("B12:J12").Borders(xlEdgeBottom).LineStyle = xlContinuous
          
    Range("B13") = "Items to Clean"
    Range("B13").Font.Name = "Cambria"
    Range("B13").Font.Size = 14
    Range("B13").Font.Bold = True
    
    Range("B14") = "Item"
    Range("D14") = "Unit Price"
    Range("E14") = "Qty"
    Range("F14") = "Sub-Total"
    
    Range("B14:F14").Borders(xlEdgeLeft).LineStyle = xlContinuous
    Range("B14:F14").Borders(xlEdgeTop).LineStyle = xlContinuous
    Range("B14:F14").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("B14:F14").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("C14").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("D14").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("E14").Borders(xlEdgeRight).LineStyle = xlContinuous

    Range("B15") = "Shirts"
    Range("B15").Borders(xlEdgeLeft).LineStyle = xlContinuous
    
    Range("H15") = "Order Summary"
    Range("H15").Font.Name = "Cambria"
    Range("H15").Font.Size = 14
    Range("H15").Font.Bold = True
    
    Range("B16") = "Pants"
    Range("B16").Borders(xlEdgeLeft).LineStyle = xlContinuous
    
    Range("B17") = "None"
    Range("B17").Borders(xlEdgeLeft).LineStyle = xlContinuous
    
    Range("H17") = "Cleaning Total:"
    Range("I17").Borders(xlEdgeBottom).LineStyle = xlContinuous
    
    Range("B18") = "None"
    Range("B18").Borders(xlEdgeLeft).LineStyle = xlContinuous
    
    Range("H18") = "Tax Rate:"
    Range("I18").Borders(xlEdgeBottom).LineStyle = xlContinuous
    
    Range("I18") = "5.75"
    Range("J18") = "%"
    Range("B19") = "None"
    Range("B19").Borders(xlEdgeLeft).LineStyle = xlContinuous
    
    Range("H19") = "Tax Amount:"
    Range("I19").Borders(xlEdgeBottom).LineStyle = xlContinuous
    
    Range("B20") = "None"
    Range("B20").Borders(xlEdgeLeft).LineStyle = xlContinuous
    
    Range("C15").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("C16").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("C17").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("C18").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("C19").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("C20").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("B14:C14").Borders(xlEdgeBottom).LineStyle = xlContinuous
    
    Range("B15:C15").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D15:F15").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D15").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("E15").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("F15").Borders(xlEdgeRight).LineStyle = xlContinuous
    
    Range("B16:C16").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D16:F16").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D16").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("E16").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("F16").Borders(xlEdgeRight).LineStyle = xlContinuous
    
    Range("B17:C17").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D17:F17").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D17").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("E17").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("F17").Borders(xlEdgeRight).LineStyle = xlContinuous
    
    Range("B18:C18").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D18:F18").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D18").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("E18").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("F18").Borders(xlEdgeRight).LineStyle = xlContinuous
    
    Range("B19:C19").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D19:F19").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D19").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("E19").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("F19").Borders(xlEdgeRight).LineStyle = xlContinuous
    
    Range("B20:F20").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D20").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("E20").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("F20").Borders(xlEdgeRight).LineStyle = xlContinuous
    
    Range("H20") = "Order Total:"
    Range("I20").Borders(xlEdgeBottom).LineStyle = xlContinuous
    
    Rem Change the widths and heights of some columns and rows
    Rem In previous lessons, we learned all these things
    Range("E:E, G:G").ColumnWidth = 4
    Columns("H").ColumnWidth = 14
    Columns("J").ColumnWidth = 1.75
    
    Rows("3").RowHeight = 2
    Range("8:8, 12:12").RowHeight = 8
    
    Rem Merge the cells H15, I15, H16, and I16
    Range("H15:I16").MergeCells = True
    Rem Align the merged text to the left
    Range("H15:H16").VerticalAlignment = xlCenter
    
    Range("H16").Borders(xlEdgeBottom).LineStyle = xlContinuous
    
    Rem Hide the gridlines
    ActiveWindow.DisplayGridlines = False
End Sub

The Weight of a Border

After specifying the type of line to apply to a border, you can control the thickness of the line. To support this, the Borders object is equipped with a property named Weight. The available values are xlHairline, xlThin, xlMedium, and xlThick.

Practical Learning: Specifying the Weight of Cells Border

Change the code as follows:

Sub CreateWorkbook()
    ' CreateWorkbook Macro
    ' This macro is used to create a workbook for the
    ' Georgetown Dry Cleaning Services

    ' Keyboard Shortcut: Ctrl+Shift+W
    
    Rem Just in case there is anything on the
    Rem worksheet, delete everything
    Range("A:K").Delete
    Range("1:20").Delete
    
    Rem Create the sections and headings of the worksheet
    Range("B2") = "Georgetown Dry Cleaning Services"
    Range("B2").Font.Name = "Rockwell Condensed"
    Range("B2").Font.Size = 24
    Range("B2").Font.Bold = True
    Range("B2").Font.Color = vbBlue
    
    Range("B5") = "Order Identification"
    Range("B5").Font.Name = "Cambria"
    Range("B5").Font.Size = 14
    Range("B5").Font.Bold = True
    Range("B5").Font.ThemeColor = 5
    
    Rem To draw a thick line, change the bottom
    Rem borders of the cells from B5 to J5
    Range("B5:J5").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B5:J5").Borders(xlEdgeBottom).Weight = xlMedium
    
    Range("B6") = "Receipt #:"
    Range("D6:F6").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D6:F6").Borders(xlEdgeBottom).Weight = xlHairline
    
    Range("G6") = "Order Status:"
    Range("I6:J6").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("I6:J6").Borders(xlEdgeBottom).Weight = xlHairline
    
    Range("B7") = "Customer Name:"
    Range("D7:F7").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D7:F7").Borders(xlEdgeBottom).Weight = xlHairline
    
    Range("G7") = "Customer Phone:"
    Range("I7:J7").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("I7:J7").Borders(xlEdgeBottom).Weight = xlHairline
    
    Rem To draw a thick line, change the bottom
    Rem borders of the cells from B5 to J5
    Range("B8:J8").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B8:J8").Borders(xlEdgeBottom).Weight = xlThin
    
    Range("B9") = "Date Left:"
    Range("D9:F9").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D9:F9").Borders(xlEdgeBottom).Weight = xlHairline
    
    Range("G9") = "Time Left:"
    Range("I9:J9").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("I9:J9").Borders(xlEdgeBottom).Weight = xlHairline
    
    Range("B10") = "Date Expected:"
    Range("D10:F10").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D10:F10").Borders(xlEdgeBottom).Weight = xlHairline
    
    Range("G10") = "Time Expected:"
    Range("I10:J10").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("I10:J10").Borders(xlEdgeBottom).Weight = xlHairline
    
    Range("B11") = "Date Picked Up:"
    Range("D11:F11").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D11:F11").Borders(xlEdgeBottom).Weight = xlHairline
    
    Range("G11") = "Time Picked Up:"
    Range("I11:J11").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("I11:J11").Borders(xlEdgeBottom).Weight = xlHairline
    
    Rem To draw a thick line, change the bottom
    Rem borders of the cells from B5 to J5
    Range("B12:J12").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B12:J12").Borders(xlEdgeBottom).Weight = xlMedium
          
    Range("B13") = "Items to Clean"
    Range("B13").Font.Name = "Cambria"
    Range("B13").Font.Size = 14
    Range("B13").Font.Bold = True
    
    Range("B14") = "Item"
    Range("D14") = "Unit Price"
    Range("E14") = "Qty"
    Range("F14") = "Sub-Total"
    
    Range("B14:F14").Borders(xlEdgeLeft).LineStyle = xlContinuous
    Range("B14:F14").Borders(xlEdgeLeft).Weight = xlThin
    Range("B14:F14").Borders(xlEdgeTop).LineStyle = xlContinuous
    Range("B14:F14").Borders(xlEdgeTop).Weight = xlThin
    Range("B14:F14").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("B14:F14").Borders(xlEdgeRight).Weight = xlThin
    Range("B14:F14").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B14:F14").Borders(xlEdgeBottom).Weight = xlThin
    Range("C14").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("C14").Borders(xlEdgeRight).Weight = xlThin
    Range("D14").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("D14").Borders(xlEdgeRight).Weight = xlThin
    Range("E14").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("E14").Borders(xlEdgeRight).Weight = xlThin

    Range("B15") = "Shirts"
    Range("B15").Borders(xlEdgeLeft).LineStyle = xlContinuous
    Range("B15").Borders(xlEdgeLeft).Weight = xlThin
    
    Range("H15") = "Order Summary"
    Range("H15").Font.Name = "Cambria"
    Range("H15").Font.Size = 14
    Range("H15").Font.Bold = True
    
    Range("B16") = "Pants"
    Range("B16").Borders(xlEdgeLeft).LineStyle = xlContinuous
    Range("B16").Borders(xlEdgeLeft).Weight = xlThin
    
    Range("B17") = "None"
    Range("B17").Borders(xlEdgeLeft).LineStyle = xlContinuous
    Range("B17").Borders(xlEdgeLeft).Weight = xlThin
    
    Range("H17") = "Cleaning Total:"
    Range("I17").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("I17").Borders(xlEdgeBottom).Weight = xlHairline
    
    Range("B18") = "None"
    Range("B18").Borders(xlEdgeLeft).LineStyle = xlContinuous
    Range("B18").Borders(xlEdgeLeft).Weight = xlThin
    
    Range("H18") = "Tax Rate:"
    Range("I18").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("I18").Borders(xlEdgeBottom).Weight = xlHairline
    
    Range("I18") = "5.75"
    Range("J18") = "%"
    Range("B19") = "None"
    Range("B19").Borders(xlEdgeLeft).LineStyle = xlContinuous
    Range("B19").Borders(xlEdgeLeft).Weight = xlThin
    
    Range("H19") = "Tax Amount:"
    Range("I19").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("I19").Borders(xlEdgeBottom).Weight = xlHairline
    
    Range("B20") = "None"
    Range("B20").Borders(xlEdgeLeft).LineStyle = xlContinuous
    Range("B20").Borders(xlEdgeLeft).Weight = xlThin
    
    Range("C15").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("C15").Borders(xlEdgeRight).Weight = xlThin
    Range("C16").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("C16").Borders(xlEdgeRight).Weight = xlThin
    Range("C17").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("C17").Borders(xlEdgeRight).Weight = xlThin
    Range("C18").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("C18").Borders(xlEdgeRight).Weight = xlThin
    Range("C19").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("C19").Borders(xlEdgeRight).Weight = xlThin
    Range("C20").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("C20").Borders(xlEdgeRight).Weight = xlThin
    Range("B14:C14").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B14:C14").Borders(xlEdgeBottom).Weight = xlThin
    
    Range("B15:C15").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B15:C15").Borders(xlEdgeBottom).Weight = xlThin
    Range("D15:F15").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D15:F15").Borders(xlEdgeBottom).Weight = xlHairline
    Range("D15").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("D15").Borders(xlEdgeRight).Weight = xlHairline
    Range("E15").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("E15").Borders(xlEdgeRight).Weight = xlHairline
    Range("F15").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("F15").Borders(xlEdgeRight).Weight = xlThin
    
    Range("B16:C16").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B16:C16").Borders(xlEdgeBottom).Weight = xlThin
    Range("D16:F16").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D16:F16").Borders(xlEdgeBottom).Weight = xlHairline
    Range("D16").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("D16").Borders(xlEdgeRight).Weight = xlHairline
    Range("E16").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("E16").Borders(xlEdgeRight).Weight = xlHairline
    Range("F16").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("F16").Borders(xlEdgeRight).Weight = xlThin
    
    Range("B17:C17").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B17:C17").Borders(xlEdgeBottom).Weight = xlThin
    Range("D17:F17").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D17:F17").Borders(xlEdgeBottom).Weight = xlHairline
    Range("D17").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("D17").Borders(xlEdgeRight).Weight = xlHairline
    Range("E17").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("E17").Borders(xlEdgeRight).Weight = xlHairline
    Range("F17").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("F17").Borders(xlEdgeRight).Weight = xlThin
    
    Range("B18:C18").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B18:C18").Borders(xlEdgeBottom).Weight = xlThin
    Range("D18:F18").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D18:F18").Borders(xlEdgeBottom).Weight = xlHairline
    Range("D18").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("D18").Borders(xlEdgeRight).Weight = xlHairline
    Range("E18").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("E18").Borders(xlEdgeRight).Weight = xlHairline
    Range("F18").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("F18").Borders(xlEdgeRight).Weight = xlThin
    
    Range("B19:C19").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B19:C19").Borders(xlEdgeBottom).Weight = xlThin
    Range("D19:F19").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D19:F19").Borders(xlEdgeBottom).Weight = xlHairline
    Range("D19").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("D19").Borders(xlEdgeRight).Weight = xlHairline
    Range("E19").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("E19").Borders(xlEdgeRight).Weight = xlHairline
    Range("F19").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("F19").Borders(xlEdgeRight).Weight = xlThin
    
    Range("B20:F20").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B20:F20").Borders(xlEdgeBottom).Weight = xlThin
    Range("D20").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("D20").Borders(xlEdgeRight).Weight = xlHairline
    Range("E20").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("E20").Borders(xlEdgeRight).Weight = xlHairline
    Range("F20").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("F20").Borders(xlEdgeRight).Weight = xlThin
    
    Range("H20") = "Order Total:"
    Range("I20").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("I20").Borders(xlEdgeBottom).Weight = xlHairline
    
    Rem Change the widths and heights of some columns and rows
    Rem In previous lessons, we learned all these things
    Range("E:E, G:G").ColumnWidth = 4
    Columns("H").ColumnWidth = 14
    Columns("J").ColumnWidth = 1.75
    
    Rows("3").RowHeight = 2
    Range("8:8, 12:12").RowHeight = 8
    
    Rem Merge the cells H15, I15, H16, and I16
    Range("H15:I16").MergeCells = True
    Rem Align the merged text to the left
    Range("H15:H16").VerticalAlignment = xlCenter
    
    Range("H16").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("H16:I16").Borders(xlEdgeBottom).Weight = xlMedium
    
    Rem Hide the gridlines
    ActiveWindow.DisplayGridlines = False
End Sub

Return to Microsoft Excel and press Ctrl + Shift + W to see the result
Return to Microsoft Visual Basic

The Color of a Border

To programmatically specify the color of a border, access the Borders indexed property of a cell or a group of cells and specify the border whose color you want to change, as we saw in the previous section. To support colors, the Borders object is equipped with a property named Color. To specify the color, assign the desired color to the property. The VBA provides a (limited) list of colors such as vbBlack, vbWhite, vbRed, vbGreen, and vbBlue. In reality, a color in Microsoft Windows is represented as a color between 0 and 16,581,375.

Practical Learning: Controlling the Colors of Cells Borders

Change the code as follows:

Sub CreateWorkbook()
    ' CreateWorkbook Macro
    ' This macro is used to create a workbook for the
    ' Georgetown Dry Cleaning Services

    ' Keyboard Shortcut: Ctrl+Shift+W
    
    . . . No Change
    
    Rem To draw a thick line, change the bottom
    Rem borders of the cells from B5 to J5
    Range("B5:J5").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B5:J5").Borders(xlEdgeBottom).Weight = xlMedium
    Range("B5:J5").Borders(xlEdgeBottom).ThemeColor = 5
    
    . . . No Change
    
    Rem To draw a thick line, change the bottom
    Rem borders of the cells from B5 to J5
    Range("B12:J12").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B12:J12").Borders(xlEdgeBottom).Weight = xlMedium
    Range("B12:J12").Borders(xlEdgeBottom).ThemeColor = 5
          
    . . . No Change
    
    Range("H16").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("H16:I16").Borders(xlEdgeBottom).Weight = xlMedium
    Range("H16:I16").Borders(xlEdgeBottom).ThemeColor = 5
    
    Rem Hide the gridlines
    ActiveWindow.DisplayGridlines = False
End Sub

Return to Microsoft Excel and press Ctrl + Shift + W to see the result
Return to Microsoft Visual Basic

The Cell's Background

A cell has a background color which, by default, is white. If you want to change a background, specify the cell or group of cells, using the Range class. The Range class is equipped with a property named Interior. From this property, you can access the ThemeColor and assign the desired color.

Practical Learning: Painting the Background of Cells

Change the code as follows:

Sub CreateWorkbook()
    ' CreateWorkbook Macro
    ' This macro is used to create a workbook for the
    ' Georgetown Dry Cleaning Services

    ' Keyboard Shortcut: Ctrl+Shift+W
    
    Rem Just in case there is anything on the
    Rem worksheet, delete everything
    Range("A:K").Delete
    Range("1:20").Delete
    
    Rem Create the sections and headings of the worksheet
    Range("B2") = "Georgetown Dry Cleaning Services"
    Range("B2").Font.Name = "Rockwell Condensed"
    Range("B2").Font.Size = 24
    Range("B2").Font.Bold = True
    Range("B2").Font.Color = vbBlue
    
    Range("B3:J3").Interior.ThemeColor = xlThemeColorLight2
    
    Range("B5") = "Order Identification"
    Range("B5").Font.Name = "Cambria"
    Range("B5").Font.Size = 14
    Range("B5").Font.Bold = True
    Range("B5").Font.ThemeColor = 5
    
    Rem To draw a thick line, change the bottom
    Rem borders of the cells from B5 to J5
    Range("B5:J5").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B5:J5").Borders(xlEdgeBottom).Weight = xlMedium
    Range("B5:J5").Borders(xlEdgeBottom).ThemeColor = 5
    
    Range("B6") = "Receipt #:"
    Range("D6:F6").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D6:F6").Borders(xlEdgeBottom).Weight = xlHairline
    
    Range("G6") = "Order Status:"
    Range("I6:J6").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("I6:J6").Borders(xlEdgeBottom).Weight = xlHairline
    
    Range("B7") = "Customer Name:"
    Range("D7:F7").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D7:F7").Borders(xlEdgeBottom).Weight = xlHairline
    
    Range("G7") = "Customer Phone:"
    Range("I7:J7").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("I7:J7").Borders(xlEdgeBottom).Weight = xlHairline
    
    Rem To draw a thick line, change the bottom
    Rem borders of the cells from B5 to J5
    Range("B8:J8").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B8:J8").Borders(xlEdgeBottom).Weight = xlThin
    
    Range("B9") = "Date Left:"
    Range("D9:F9").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D9:F9").Borders(xlEdgeBottom).Weight = xlHairline
    
    Range("G9") = "Time Left:"
    Range("I9:J9").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("I9:J9").Borders(xlEdgeBottom).Weight = xlHairline
    
    Range("B10") = "Date Expected:"
    Range("D10:F10").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D10:F10").Borders(xlEdgeBottom).Weight = xlHairline
    
    Range("G10") = "Time Expected:"
    Range("I10:J10").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("I10:J10").Borders(xlEdgeBottom).Weight = xlHairline
    
    Range("B11") = "Date Picked Up:"
    Range("D11:F11").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D11:F11").Borders(xlEdgeBottom).Weight = xlHairline
    
    Range("G11") = "Time Picked Up:"
    Range("I11:J11").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("I11:J11").Borders(xlEdgeBottom).Weight = xlHairline
    
    Rem To draw a thick line, change the bottom
    Rem borders of the cells from B5 to J5
    Range("B12:J12").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B12:J12").Borders(xlEdgeBottom).Weight = xlMedium
    Range("B12:J12").Borders(xlEdgeBottom).ThemeColor = 5
          
    Range("B13") = "Items to Clean"
    Range("B13").Font.Name = "Cambria"
    Range("B13").Font.Size = 14
    Range("B13").Font.Bold = True
    Range("B13").Font.ThemeColor = 5
    
    Range("B14") = "Item"
    Range("D14") = "Unit Price"
    Range("E14") = "Qty"
    Range("F14") = "Sub-Total"
    
    Range("B14:F14").Borders(xlEdgeLeft).LineStyle = xlContinuous
    Range("B14:F14").Borders(xlEdgeLeft).Weight = xlThin
    Range("B14:F14").Borders(xlEdgeTop).LineStyle = xlContinuous
    Range("B14:F14").Borders(xlEdgeTop).Weight = xlThin
    Range("B14:F14").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("B14:F14").Borders(xlEdgeRight).Weight = xlThin
    Range("B14:F14").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B14:F14").Borders(xlEdgeBottom).Weight = xlThin
    Range("C14").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("C14").Borders(xlEdgeRight).Weight = xlThin
    Range("D14").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("D14").Borders(xlEdgeRight).Weight = xlThin
    Range("E14").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("E14").Borders(xlEdgeRight).Weight = xlThin

    Range("B15") = "Shirts"
    Range("B15").Borders(xlEdgeLeft).LineStyle = xlContinuous
    Range("B15").Borders(xlEdgeLeft).Weight = xlThin
    
    Range("H15") = "Order Summary"
    Range("H15").Font.Name = "Cambria"
    Range("H15").Font.Size = 14
    Range("H15").Font.Bold = True
    Range("H15").Font.ThemeColor = 5
    
    Range("B16") = "Pants"
    Range("B16").Borders(xlEdgeLeft).LineStyle = xlContinuous
    Range("B16").Borders(xlEdgeLeft).Weight = xlThin
    
    Range("B17") = "None"
    Range("B17").Borders(xlEdgeLeft).LineStyle = xlContinuous
    Range("B17").Borders(xlEdgeLeft).Weight = xlThin
    
    Range("H17") = "Cleaning Total:"
    Range("I17").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("I17").Borders(xlEdgeBottom).Weight = xlHairline
    
    Range("B18") = "None"
    Range("B18").Borders(xlEdgeLeft).LineStyle = xlContinuous
    Range("B18").Borders(xlEdgeLeft).Weight = xlThin
    
    Range("H18") = "Tax Rate:"
    Range("I18").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("I18").Borders(xlEdgeBottom).Weight = xlHairline
    
    Range("I18") = "5.75"
    Range("J18") = "%"
    Range("B19") = "None"
    Range("B19").Borders(xlEdgeLeft).LineStyle = xlContinuous
    Range("B19").Borders(xlEdgeLeft).Weight = xlThin
    
    Range("H19") = "Tax Amount:"
    Range("I19").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("I19").Borders(xlEdgeBottom).Weight = xlHairline
    
    Range("B20") = "None"
    Range("B20").Borders(xlEdgeLeft).LineStyle = xlContinuous
    Range("B20").Borders(xlEdgeLeft).Weight = xlThin
    
    Range("C15").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("C15").Borders(xlEdgeRight).Weight = xlThin
    Range("C16").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("C16").Borders(xlEdgeRight).Weight = xlThin
    Range("C17").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("C17").Borders(xlEdgeRight).Weight = xlThin
    Range("C18").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("C18").Borders(xlEdgeRight).Weight = xlThin
    Range("C19").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("C19").Borders(xlEdgeRight).Weight = xlThin
    Range("C20").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("C20").Borders(xlEdgeRight).Weight = xlThin
    Range("B14:C14").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B14:C14").Borders(xlEdgeBottom).Weight = xlThin
    
    Range("B15:C15").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B15:C15").Borders(xlEdgeBottom).Weight = xlThin
    Range("D15:F15").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D15:F15").Borders(xlEdgeBottom).Weight = xlHairline
    Range("D15").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("D15").Borders(xlEdgeRight).Weight = xlHairline
    Range("E15").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("E15").Borders(xlEdgeRight).Weight = xlHairline
    Range("F15").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("F15").Borders(xlEdgeRight).Weight = xlThin
    
    Range("B16:C16").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B16:C16").Borders(xlEdgeBottom).Weight = xlThin
    Range("D16:F16").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D16:F16").Borders(xlEdgeBottom).Weight = xlHairline
    Range("D16").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("D16").Borders(xlEdgeRight).Weight = xlHairline
    Range("E16").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("E16").Borders(xlEdgeRight).Weight = xlHairline
    Range("F16").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("F16").Borders(xlEdgeRight).Weight = xlThin
    
    Range("B17:C17").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B17:C17").Borders(xlEdgeBottom).Weight = xlThin
    Range("D17:F17").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D17:F17").Borders(xlEdgeBottom).Weight = xlHairline
    Range("D17").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("D17").Borders(xlEdgeRight).Weight = xlHairline
    Range("E17").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("E17").Borders(xlEdgeRight).Weight = xlHairline
    Range("F17").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("F17").Borders(xlEdgeRight).Weight = xlThin
    
    Range("B18:C18").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B18:C18").Borders(xlEdgeBottom).Weight = xlThin
    Range("D18:F18").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D18:F18").Borders(xlEdgeBottom).Weight = xlHairline
    Range("D18").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("D18").Borders(xlEdgeRight).Weight = xlHairline
    Range("E18").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("E18").Borders(xlEdgeRight).Weight = xlHairline
    Range("F18").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("F18").Borders(xlEdgeRight).Weight = xlThin
    
    Range("B19:C19").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B19:C19").Borders(xlEdgeBottom).Weight = xlThin
    Range("D19:F19").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("D19:F19").Borders(xlEdgeBottom).Weight = xlHairline
    Range("D19").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("D19").Borders(xlEdgeRight).Weight = xlHairline
    Range("E19").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("E19").Borders(xlEdgeRight).Weight = xlHairline
    Range("F19").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("F19").Borders(xlEdgeRight).Weight = xlThin
    
    Range("B20:F20").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("B20:F20").Borders(xlEdgeBottom).Weight = xlThin
    Range("D20").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("D20").Borders(xlEdgeRight).Weight = xlHairline
    Range("E20").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("E20").Borders(xlEdgeRight).Weight = xlHairline
    Range("F20").Borders(xlEdgeRight).LineStyle = xlContinuous
    Range("F20").Borders(xlEdgeRight).Weight = xlThin
    
    Range("H20") = "Order Total:"
    Range("I20").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("I20").Borders(xlEdgeBottom).Weight = xlHairline
    
    Rem Change the widths and heights of some columns and rows
    Rem In previous lessons, we learned all these things
    Range("E:E, G:G").ColumnWidth = 4
    Columns("H").ColumnWidth = 14
    Columns("J").ColumnWidth = 1.75
    
    Rows("3").RowHeight = 2
    Range("8:8, 12:12").RowHeight = 8
    
    Rem Merge the cells H15, I15, H16, and I16
    Range("H15:I16").MergeCells = True
    Rem Align the merged text to the left
    Range("H15:H16").VerticalAlignment = xlBottom
    
    Range("H16").Borders(xlEdgeBottom).LineStyle = xlContinuous
    Range("H16:I16").Borders(xlEdgeBottom).Weight = xlMedium
    Range("H16:I16").Borders(xlEdgeBottom).ThemeColor = 5
    
    Rem Hide the gridlines
    ActiveWindow.DisplayGridlines = False
End Sub

Return to Microsoft Excel and press Ctrl + Shift + W to see the result
Close the worksheet
When asked whether you want to save, click No