Events and Event Procedures were introduced in Excel97. Earlier versions of Excel do not support events.  An Event is an action initiated either by user action or by other VBA code.

 Workbook Open Event

  1. Open the Visual Basic Editor. (Shortcut- F11)
  2. Double click on This Workbook in the Project Explorer.
  3. Choose Workbook from the left drop-down list. Choose Open from the right drop-down list.
  4. Add the following code line to the Workbook Open Event:

MsgBox “Welcome to VBA World!!!”

  1. Save, close and reopen the Excel file.

You will get Message Box Saying “Welcome to VBA World !!! “ at the very beginning once you will open the workbook.

Example to create follow-up worksheet on regular basis

Private Sub Workbook_Open()

Range(“C2”).Activate

Do Until ActiveCell.Value = “”

If (ActiveCell.Value = Date) Or (ActiveCell.Value = Date + 1) Then

ActiveCell.Interior.ColorIndex = 3

ActiveCell.Font.Bold = True

ActiveCell.Offset(0, 1).Value = “Follow Me”

End If

ActiveCell.Offset(1, 0).Activate

Loop

End Sub

Example: Worksheet Change Event

Code added to the Worksheet Change Event will be executed by Excel VBA when you change a cell on a worksheet.

  1. Open the Visual Basic Editor.
  2. Double click on a sheet (for example Sheet1) in the Project Explorer.
  3. Choose Worksheet from the left drop-down list. Choose Change from the right drop-down list.
  4. The Worksheet Change Event listens to all changes on Sheet1.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Value > 80 Then MsgBox “Goal Completed”

End Sub

Example: Worksheet- BeforeDoubleClick Event

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Target.Font.Color = vbRed

End Sub

Example: Adding a comment when a cell value is changed

Public preValue As Variant

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub

Target.ClearComments

Target.AddComment.Text Text:=”Previous Value was ” & preValue & Chr(10) & “Edited on ” & Format(Date, “mm-dd-yyyy”) & Chr(10) & “By ” & Environ(“UserName”)

End Sub

author image

About admin

You Might Also Like...

JavaScript Date and Time
PHP- DATE/TIME FUNCTIONS
Error Handling in PHP
VBA For Excel Hirdesh Bhardwaj

5 Comments

  1. Very much useful link, keep the posts updated..looking forward to get to know more about the e-mail marketing. I have not found such an elaborate detailing regarding this. Thanks for that.

    https://www.engamadurai.com/cat/courier-services/

  2. Signs this wear and tear” problem include sore junctions, ache after improved activity or even extended time frames of inactivity, joint impairment, and also fluid build-up.

  3. Great blog! Do you have any tips and hints for aspiring writers?

    I’m hoping to start my own site soon but I’m a little lost on everything.
    Would you recommend starting with a free platform like WordPress
    or go for a paid option? There are so many options out there that I’m totally overwhelmed ..
    Any suggestions? Thanks!

  4. Trust me the interiors of your home should never be gonna be the
    same again and you will probably love the change these pics result in inside your home.
    , you could possibly be prepared to visit a few prints being bid around thousands of pounds.
    The Microsoft Zune player is probably criticized for starters: its impossibility of use.

  5. I take pleasure in, lead to I discovered just what I used to
    be taking a look for. You’ve ended my 4 day lengthy
    hunt! God Bless you man. Have a great day. Bye

Leave a Reply

Your email address will not be published.

Enjoy the tutorial? Please spread the word :)

Follow by Email
Facebook
Facebook
YouTube86
YouTube