Skip to main content

New Article

How to SUM by matching partial text in Excel

Post a Comment

How to change the font style in Excel VBA

Assume that you have a data table which is located in cell range A1:B6 and sheet name is HomeWork. It is completely clean formatted. The task is how to format this table from Excel VBA?

Image 1: Sample data


Exercise:

1) Font style "Comic Sans MS"
2) Font size 25
3) Font color Blue
4) Bold, Italic and Underline
5) A1:A6 alignment Left and B1:B6 alignment right
6) Background color A1:B1 Gray as a header


Solutions:

First of all you need to create a SUB (subordinates) function and then write codes. I've used Exercise1 as sub function name. And step by step I'm going to show you how can you do this:

Sub exercise1()
       ' enter some commands here
End Sub


Answer 1: Font style "Comic Sans MS"

Write the below codes for font style changing:

Sub exercise1()
       Worksheets("HomeWork").Range("A1:B6").Font.Name = "Comic Sans MS"
End Sub

Image 2: Font style changed


Answer 2: Font size 25

Write the below codes for font size changing:

Sub exercise1()
        Worksheets("HomeWork").Range("A1:B6").Font.Name = "Comic Sans MS"
        Worksheets("HomeWork").Range("A1:B6").Font.Size = 15
End Sub

Image 3: Font size changed


Answer 3: Font Color Blue

Write the below codes for font color changing:

Sub exercise1()
      Worksheets("HomeWork").Range("A1:B6").Font.Name = "Comic Sans MS"
      Worksheets("HomeWork").Range("A1:B6").Font.Size = 15
      Worksheets("HomeWork").Range("A1:B6").Font.Color = RGB(0,0,255)
End Sub

Image 4: Font color changed


Answer 4: Font in Bold, Italic and Underline

Write the below codes for font bold, italic and underline:

Sub exercise1()
     Worksheets("HomeWork").Range("A1:B6").Font.Name = "Comic Sans MS"
     Worksheets("HomeWork").Range("A1:B6").Font.Size = 15
     Worksheets("HomeWork").Range("A1:B6").Font.Color = RGB(0,0,255)
     Worksheets("HomeWork").Range("A1:B6").Font.Bold = True
     Worksheets("HomeWork").Range("A1:B6").Font.Italic = True
     Worksheets("HomeWork").Range("A1:B6").Font.Underline = True
End Sub

Image 5: Font in Bold, Italic and Underlined


Answer 5: Set alignment A1:A6 to left and B1:B6 to right

Write the below codes for changing alignment:

Sub exercise1()
     Worksheets("HomeWork").Range("A1:B6").Font.Name = "Comic Sans MS"
     Worksheets("HomeWork").Range("A1:B6").Font.Size = 15
     Worksheets("HomeWork").Range("A1:B6").Font.Color = RGB(0,0,255)
     Worksheets("HomeWork").Range("A1:B6").Font.Bold = True
     Worksheets("HomeWork").Range("A1:B6").Font.Italic = True
     Worksheets("HomeWork").Range("A1:B6").Font.Underline = True
     Worksheets("HomeWork").Range("A1:A6").HorizontalAlignment = xlLeft
     Worksheets("HomeWork").Range("B1:B6").HorizontalAlignment = xlRight
End Sub


Image 6: Alignment changed


Answer 6: Background color A1:B1 Gray as a header

Write the below codes for changing alignment:

Sub exercise1()
     Worksheets("HomeWork").Range("A1:B6").Font.Name = "Comic Sans MS"
     Worksheets("HomeWork").Range("A1:B6").Font.Size = 15
     Worksheets("HomeWork").Range("A1:B6").Font.Color = RGB(0,0,255)
     Worksheets("HomeWork").Range("A1:B6").Font.Bold = True
     Worksheets("HomeWork").Range("A1:B6").Font.Italic = True
     Worksheets("HomeWork").Range("A1:B6").Font.Underline = True
     Worksheets("HomeWork").Range("A1:A6").HorizontalAlignment = xlLeft
     Worksheets("HomeWork").Range("B1:B6").HorizontalAlignment = xlRight
     Worksheets("HomeWork").Range("A1:B1").Interior.Color = RGB(200,200,200)
End Sub


Image 7: Background color changed
Labels:

Popular posts from this blog

How to display an image in worksheet based on a List or based on IF condition?

Excel can show image on worksheet based on a specific IF condition. So, how to do it? Simple follow the below steps: Step by Step: Step 1: Insert images in your Excel Worksheet. Here I've inserted 5 different types of balls, Football, Cricket, Pool, Basketball, Tennis ball. Note that, All balls are placed into different cell. These are placed in Picture sheet. Image 1: 5 balls placed in 5 different cells and covered photo's wide and height Step 2: In the report sheet, design the report as you wish. I've designed in my way like below: Image 2: Kids asking to Donald Duck, which ball need to throw now Step 3: Make a drop down list "Games" in E6 cell in Report sheet from Data Validation. which is as below: Football Cricket Pool Basketball Tennis You can do an IF function here in E6 in Report sheet, which will meet a certain condition and returned Football, Cricket, Pool, Basketball or Tennis. Step 4: Now the tricky part is...
Read more

Value Paste and Formula Paste

In many case, in our professional life, we need to do Copy and Value Paste or Copy and Formula Paste in all most always. Those employees, who works under MIS Department, have to do it lots of time in a single day to prepare reports. It is very time costing task in Office. Many of us use Excel Menubar to do it, others are using Keyboard Shortcut by pressing ALT key (like for Value Paste Press ALT+H+V+V and for Formula Paste Press ALT+H+V+F ). But did you noticed that, these two ways strongly need your attention to do this task. More clearly, if you choose Value Paste from Menubar , then what you need to do? First you should take the mouse in Hand Wheel the mouse in Home menu Then Click on Paste Then you pressure your eyes to find the Value Paste icon And then Click on it to paste it These all steps can take more than 1 second. Am I right? Below is an image of this process: Image 1: Value Paste from Home Menu On the other hand, if you choose the shortcut f...
Read more

Cumulative Closing Balance like a Bank Statement in PivotTable

A Bank Employee in many case needs to calculate the Closing Balance after each transaction in PivotTable like a Bank Statement . But with the help of Calculated Field of a PivotTable , you can only calculate Field with Field . It's not possible to use a formula in Calculated Field where you can mention a single cell with Relative Reference Cell . Because a PivotTable acts like a Table format where you can work with Field or Column Name . A Helping Column (A regular column, that helps to get a partial result where formula applied) can be a good idea. But there is an option in PivotTable by which you can Calculate Cumulative . In this article I will show you, how you can do it. Calculating with Formula: Assume that, you have an Excel file with Debit and Credit transaction of an Account . Image 1: Sample Bank Statement In a Bank Statement , Month wise Cumulative Balance is important. In the Excel sheet, as above, it is very easy to use a formula and calc...
Read more