Persimpangan VBA - Contoh Intersect dalam Excel VBA - Kaedah

Isi kandungan

Persimpangan VBA Excel

VBA Intersect digunakan untuk mendapatkan objek jarak yang merupakan persimpangan dua atau lebih jarak. 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

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 MyValue Sebagai Varian 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 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 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 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

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

  • Dalam excel, untuk mendapatkan nilai jarak antara, kita perlu memberikan watak ruang di antara dua julat.
  • Dengan menggunakan pengekodan VBA, kita dapat menonjolkan, memformat, menghapus atau mengubah, dan melakukan banyak perkara lain ke nilai persimpangan.
  • Sekiranya pelbagai baris dan lajur dibekalkan ke fungsi persilangan, maka kita akan mendapat dua nilai tengah.

Artikel menarik...