Katakanlah kita mulai dengan:
Begitu A1 dan B1 memiliki konstanta dan C1 memiliki formula. Tempatkan makro acara ini di area kode lembar kerja:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A As Range, B As Range, C As Range, AC As Range
Set A = Range("A1")
Set B = Range("B1")
Set C = Range("C1")
Set AC = Union(A, B, C)
With Application
If Intersect(AC, Target) Is Nothing Then Exit Sub
If .WorksheetFunction.CountBlank(AC) <> 1 Then Exit Sub
.EnableEvents = False
If A = "" Then
A = C / B
ElseIf B = "" Then
B = C / A
Else
C = A * B
End If
.EnableEvents = True
End With
End Sub
Jelas A1 melalui C1 (sebagai blok) .
Lalu masukkan dua nilai.
Karena ini adalah kode lembar kerja, sangat mudah untuk menginstal dan otomatis digunakan:
- klik kanan nama tab di dekat bagian bawah jendela Excel
- pilih View Code - ini menampilkan jendela VBE
- rekatkan barang-barang di dan tutup jendela VBE
Jika Anda memiliki masalah, cobalah terlebih dahulu di lembar kerja percobaan.
Jika Anda menyimpan buku kerja, makro akan disimpan bersamanya.
Jika Anda menggunakan versi Excel di kemudian 2003, Anda harus menyimpan
file sebagai .xlsm daripada .xlsx
Untuk menghapus makro:
- buka jendela VBE seperti di atas
- hapus kode
- tutup jendela VBE
Untuk mempelajari lebih lanjut tentang makro secara umum, lihat:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
dan
http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx
Untuk mempelajari lebih lanjut tentang Makro Acara (kode lembar kerja), lihat:
http://www.mvps.org/dmcritchie/excel/event.htm
Makro harus diaktifkan agar ini berfungsi!