Perpotongan VBA Excel
VBA Intersect digunakan untuk mendapatkan objek range yang merupakan perpotongan dari dua range atau lebih. Minimum dua rentang harus disediakan untuk menemukan titik jangkauan yang berpotongan. Semua argumen lainnya bersifat opsional berdasarkan persyaratan.
Di bawah ini adalah sintaks rumus VBA INTERSECT.
- Arg1 sebagai Range: Jarak perpotongan pertama.
- Arg2 sebagai Range: Jarak berpotongan kedua.
Dalam contoh di bawah ini kita akan melihat beberapa teknik yang berguna.
Contoh
Anda dapat mengunduh Template Excel Intersect VBA ini di sini - Template VBA Intersect ExcelContoh 1
Misalnya, gunakan data di bawah ini.
Langkah 1: Deklarasikan variabel sebagai Variant.
Kode:
Sub Intersect_Example () Redupkan Nilai Saya Sebagai Sub Akhir Varian
Langkah 2: Untuk variabel ini tetapkan nilai melalui rumus Intersect.
Kode:
Sub Intersect_Example () Redupkan MyValue Sebagai Varian MyValue = Intersect (End Sub
Langkah 3: Pilih rentang pertama sebagai B2 hingga B9.
Kode:
Sub Intersect_Example () Redupkan MyValue Sebagai Varian MyValue = Intersect (Range ("B2: B9"), End Sub
Langkah 4: Pilih rentang kedua dari A5 hingga D5.
Kode:
Sub Intersect_Example () Redupkan MyValue Sebagai Varian MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5") End Sub
Langkah 5: Kami menguji hanya dengan dua rentang di sini. Tutup rumus dan pilih metode sebagai Alamat Sel VBA.
Kode:
Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Alamat Akhir Sub
Langkah 6: Tampilkan nilai di kotak pesan di VBA.
Kode:
Sub Intersect_Example () Redupkan Nilai Saya Sebagai Varian MyValue = Persimpangan (Rentang ("B2: B9"), Rentang ("A5: D5")). Alamat MsgBox MyValue End Sub
Ok, kita selesai dan lihat apa yang akan kita dapatkan di kotak pesan.
Kami mendapatkan hasil sebagai B5 yaitu alamat sel dari titik potong dari rentang yang disediakan.
Seperti ini dengan menggunakan metode VBA INTERSECT, kita dapat melakukan lebih banyak hal.
Contoh # 2
Pilih Sel Intersection
Untuk memilih sel persimpangan dari rentang yang disediakan gunakan kode di bawah ini.
Kode:
Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Pilih End Sub
Ini akan memilih sel persimpangan dari rentang yang disediakan.
Contoh # 3
Hapus Konten Sel Persimpangan: Untuk menghapus konten sel persimpangan dari rentang yang disediakan menggunakan kode di bawah ini.
Kode:
Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). ClearContents End Sub
Contoh # 4
Ubah Background Warna Sel dan Warna Font Sel Persimpangan: Untuk mengubah warna latar belakang sel persimpangan dan warna font nilai sel persimpangan menggunakan kode di bawah ini.
Kode:
Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Cells.Interior.Color = rgbBlue Intersect (Range ("B2: B9"), Range ("A5: D5" )). Cells.Font.Color = rgbAliceBlue End Sub
Ubah Nilai Sel Interseksi: Menggunakan fungsi Intersect kita juga dapat mengubah nilai sel itu menjadi sesuatu yang lain.
Pada data di atas, nilai perpotongan dari range “B2: B9” & “A5: D5” adalah sel B5 yaitu ditandai dengan warna biru. Sekarang dengan menyediakan fungsi perpotongan rentang ini, kita sebenarnya dapat mengubah nilai ke nilai lain.
Kode di bawah ini akan mengubah nilai dari 29398 menjadi “Nilai Baru”.
Kode:
Sub Intersect_Example3 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Nilai = "Nilai Baru" End Sub
Jalankan kode di atas kita akan mendapatkan kata "Nilai Baru" di tempat 29398.
Seperti ini, dengan menggunakan fungsi Intersect kita bisa bermain-main dengan nilai posisi tengah dari range yang disediakan.
Hal-hal untuk diingat
- In excel to get the intersect value of the range, we need to give space character in between two ranges.
- By using VBA coding we can highlight, format, delete or change, and do many other things to the intersection value.
- If the multiple rows and columns supplied to the intersect function then we will get the middle two values.