VBA Intersect - Contoh Intersect di Excel VBA - Metode

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

Contoh 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 dari 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

Change the Value of the Intersection Cell: Using the Intersect function, we can also change the value of that cell into something else.

In the above data, the intersect value of the range “B2:B9” & “A5:D5” is cell B5 i.e., marked with blue color. Now by supplying this range to intersect function, we can actually change the value to something else.

The below code will change the value from 29398 to “New Value.”

Code:

Sub Intersect_Example3() Intersect(Range("B2:B9"), Range("A5:D5")).Value = "New Value" End Sub

Run the code above. We will get the word “New Value” in place of 29398.

Like this, by using the Intersect function, we can play around with the middle position value of the supplied range.

Things to Remember

  • Pada excel, untuk mendapatkan nilai intersect dari range, kita perlu memberi karakter spasi di antara dua range.
  • Dengan menggunakan pengkodean VBA, kita dapat menyorot, memformat, menghapus atau mengubah, dan melakukan banyak hal lain pada nilai persimpangan.
  • Jika beberapa baris dan kolom dipasok ke fungsi intersect, maka kita akan mendapatkan dua nilai tengah.

Artikel yang menarik...