Susunan kode macro VBA pada worksheet Excel di bawah ini memungkinkan anda untuk menjumlahkan entri bilangan dalam sel yang sama serta dapat menampilkan kotak pesan berupa peringatan bahwa hanya angka saja yang diizinkan  dimasukkan ke dalam sel tersebut.

Kode ini mungkin bermanfaat untuk anda contohnya dalam mencatat hasil penjumlahan entri bilangan secara otomatis tanpa harus membuat deretan bilangan-bilangan yang panjang dalam kolom ataupun baris.


Dalam contoh kode macro di bawah ini sel-sel dalam kolom kedua atau kolom B dapat memproses bilangan yang dimasukkan ke dalamnya kecuali sel B1. Adapun langkah-langkahnya seperti yang ditunjukkan pada gambar, jika sel B2 dimasukkan angka 1 kemudian anda menambahkan lagi sel tersebut dengan angka 1 maka Excel otomatis akan menghasilkan 2.

Berikut ini contoh kode macro yang dapat anda tuliskan ke dalam kode worksheet:
Private Sub Worksheet_Change(ByVal X As Range)
If X.Address = "$B$1" Then Exit Sub
If X.Column <> 2 Or X.Cells.Count > 1 Then Exit Sub
If IsEmpty(X) Then Exit Sub
If IsNumeric(X.Value) = False Then
Application.EnableEvents = False
Application.Undo
Application.EnableEvents = True
MsgBox "Mohon masukkan nilai berupa angka saja.", _
vbExclamation, _
"Perhatian!"
Exit Sub
End If
Dim Y As Double, Z As Double
Z = X.Value
Application.EnableEvents = False
Application.Undo
Y = X.Value
X.Value = Y + Z
Application.EnableEvents = True
End Sub