Persimpangan VBA

Persimpangan VBA Excel

VBA Intersect  digunakan untuk mendapatkan julat objek yang merupakan persimpangan dua atau lebih julat. Minimum dua julat harus disediakan untuk mencari titik julat yang bersilang. Semua hujah lain adalah pilihan berdasarkan keperluan.

Berikut adalah sintaks formula VBA INTERSECT.

  • Arg1 sebagai Julat: Julat bersilang pertama.
  • Arg2 sebagai Julat: Julat bersilang kedua.

Dalam contoh di bawah ini kita akan melihat beberapa teknik yang berguna.

Contoh

Anda boleh memuat turun Templat Intersect Excel VBA ini di sini - Templat VBA Intersect Excel

Contoh # 1

Contohnya, gunakan data di bawah.

Langkah 1: Nyatakan pemboleh ubah sebagai Varian.

Kod:

 Sub Intersect_Example () Dim MyValue Sebagai Variasi Akhir Sub 

Langkah 2: Untuk pemboleh ubah ini berikan nilai melalui formula Intersect.

Kod:

 Sub Intersect_Example () Dim My Value Sebagai Variant MyValue = Intersect (End Sub 

Langkah 3: Pilih julat pertama sebagai B2 hingga B9.

Kod:

 Sub Intersect_Example () Dim MyValue Sebagai Varian MyValue = Intersect (Range ("B2: B9"), Sub End 

Langkah 4: Pilih julat kedua dari A5 hingga D5.

Kod:

 Sub Intersect_Example () Dim MyValue Sebagai Varian MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5") End Sub 

Langkah 5: Kami menguji dengan hanya dua julat di sini. Tutup formula dan pilih kaedah sebagai Alamat Sel VBA.

Kod:

 Sub Intersect_Example () Dim MyValue Sebagai Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Alamat Sub Akhir 

Langkah 6: Tunjukkan nilai di kotak mesej di VBA.

Kod:

 Sub Intersect_Example () Dim MyValue Sebagai Varian MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Alamat MsgBox MyValue End Sub 

Ok, kita sudah selesai dan lihat apa yang akan kita dapat di kotak mesej.

Kami mendapat hasilnya sebagai B5 iaitu alamat sel dari titik persimpangan julat yang disediakan.

Seperti ini menggunakan kaedah VBA INTERSECT, kita boleh melakukan banyak perkara lagi.

Contoh # 2

Pilih Sel Persimpangan

Untuk memilih sel persimpangan dari julat yang disediakan, gunakan kod di bawah.

Kod:

 Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Pilih End Sub 

Ini akan memilih sel persimpangan julat yang disediakan.

Contoh # 3

Hapus Kandungan Sel Persimpangan: Untuk membersihkan kandungan sel persimpangan dari julat yang disediakan menggunakan kod di bawah.

Kod:

 Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). ClearContents Akhir Sub 

Contoh # 4

Tukar Latar Warna Sel dan Warna Fon Sel Persimpangan: Untuk menukar warna latar belakang sel persimpangan dan warna fon nilai sel persimpangan menggunakan kod di bawah.

Kod:

 Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Cells.Interior.Color = rgbBlue Intersect (Range ("B2: B9"), Range ("A5: D5" Sel.Font.Color = rgbAliceBlue End Sub 

Ubah Nilai Sel Persilangan: Dengan menggunakan fungsi Intersect, kita juga dapat mengubah nilai sel itu menjadi sesuatu yang lain.

Dalam data di atas, nilai persilangan julat "B2: B9" & "A5: D5" adalah sel B5 iaitu ditandai dengan warna biru. Sekarang dengan menyediakan julat ini ke fungsi bersilang, kita sebenarnya dapat mengubah nilai menjadi sesuatu yang lain.

Kod di bawah akan mengubah nilai dari 29398 menjadi "Nilai Baru".

Kod:

 Sub Intersect_Example3 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Nilai = "Nilai Baru" Sub Akhir 

Jalankan kod di atas kita akan mendapat perkataan "Nilai Baru" sebagai ganti 29398.

Seperti ini, dengan menggunakan fungsi Intersect kita dapat bermain-main dengan nilai kedudukan tengah julat yang disediakan.

Perkara yang Perlu 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.