Pemahaman Intersect dapat di ilustrasikan dalam gambar berikut :
Gambar di atas dapat dijelaskan bahwa pertemuan antara Range B2:D5 dan range C5:E7 adalah range C5:D5, inilah yang dinamakan dengan intersect.
Untuk menerjemahkan gambar di atas ke dalam bahasa Macro VBA excel, cara sederhananya adalah dengan menuliskan kode berikut ke dalam sebuah Module kemudian jalankan, maka hasilnya ia akan menampilkan alamat dari pertemuan antara sel-sel atau range tersebut
Sub Test1() MsgBox Intersect(Range("B2:D5"), Range("C5:E7")).Address End Sub

Sekarang, mari coba kita rubah salah satu parameter yang digunakan dalam penulisan range diatas menjadi seperti berikut:
Sub Test2() MsgBox Intersect(ActiveCell, Range("C5:E7")).Address End SubJika anda menjalankan baris kode di atas dan jika alamat sel yang anda pilih saat ini tidak berada dalam lingkup Range C5:E7, maka pasti anda akan dihadapkan dengan pesan Run Time Error, hal ini terjadi karena parameter ini tidak mampu untuk membaca dan menemukan hasil pertemuan atau perpotongan sel. sebaliknya, jika sel yang saat ini aktif terpilih ada dalam rentang range tersebut, maka pesan yang berisi alamat sel akan ditampilkan.

Perbedaan mendasar antara module
Sementara untuk module
Ok, untuk mencegah pesan error pada module
Sekarang coba perhatikan penyempurnaan dari module
Sub Test2Lagi() If Intersect(ActiveCell, Range("C5:E7")) Is Nothing Then MsgBox "Coba pilih alamat sel dalam rentang C5:E7" Else MsgBox Intersect(ActiveCell, Range("C5:E7")).Address End If End SubPenggunaan logika IF dengan disertai kata kunci Nothing seperti dalam kode di atas, mengganti pesan Run Time Error dengan kotak pesan (MsgBox) yang bisa kita isi sendiri.

Penggunaan yang paling umum dari metode Intersect ini biasanya digunakan dalam sebuah even ketika sebuah sel berubah, dalam bahasa Macro VBA even ini dikenal dengan even Worksheet_Change.
Penjelasan mengenai cara menggunakan Intersect dalam even ini akan diulas dalam tutorial berikutnya.
Jadi, jangan sampai ketinggalan. Dan silahkan anda subscribe atau bookmark situs ini untuk mengetahui kehebatan microsoft Excel lainnya bersama excelive.com.
Jika anda hanya ingin memilih sel atau range spesifik saja saja, maka silahkan gunakan kode seperti ini untuk menampilkan pesan jika terjadi perubahan pada range (contoh C1:D1) saja.
If Not Intersect(Range("C1:D1"), Range(Target.Address)) Is Nothing Then MsgBox "xcelive" End If
Incoming Excel Search Terms
Cara mudah menggunakan Intersect dalam Macro VBA Excel Mengenal Intersect dalam Microsoft Excel
Menggunakan Intersect untuk menampilkan alamat sebuah sel
Belajar menggunakan keyword NOTHING dalam fungsi logika
Kata kunci NOTHING untuk mengganti pesan error Excel
Terimakasih sudah membaca
Tutorial: Menggunakan Parameter Intersect Dalam Macro VBA Excel
Label: Beginner - Author: excelive
Tutorial: Menggunakan Parameter Intersect Dalam Macro VBA Excel
Label: Beginner - Author: excelive
Masih mau belajar lagi !
Yuk, klik tautan berikut ini :