Cara menggunakan intersect di vba (dengan contoh)
Anda dapat menggunakan metode Intersect di VBA untuk mengembalikan rentang yang mewakili perpotongan dua rentang tertentu.
Berikut adalah cara umum untuk menggunakan metode ini dalam praktik:
Function FindIntersect(range1, range2)
FindIntersect = Application.Intersect(range1, range2)
End Function
Anda kemudian dapat memasukkan fungsi ini langsung ke dalam spreadsheet Excel, menentukan dua rentang, dan fungsi tersebut akan mengembalikan setiap nilai dalam rentang yang mewakili perpotongan kedua rentang tersebut.
Contoh berikut memperlihatkan cara menggunakan fungsi ini dalam praktik dengan kumpulan data berikut di Excel:
Contoh 1: Temukan perpotongan dua rentang (dengan satu sel sebagai hasilnya)
Misalkan kita ingin mengembalikan nilai sel yang mewakili perpotongan antara rentang A2:C2 dan A1:A11 .
Kita dapat mendefinisikan fungsi berikut di VBA:
Function FindIntersect(range1, range2)
FindIntersect = Application.Intersect(range1, range2)
End Function
Kita kemudian dapat mengetikkan fungsi ini langsung ke dalam sel di spreadsheet kita:
Rumusnya mengembalikan nilai Mavs , yang mewakili perpotongan rentang A2:C2 dan A1:A11 :
Contoh 2: Temukan perpotongan dua rentang (dengan hasil beberapa sel)
Misalkan kita ingin mengembalikan seluruh rentang sel yang mewakili perpotongan antara rentang A1:C3 dan A1:B10 .
Kita dapat mendefinisikan fungsi berikut di VBA:
Function FindIntersect(range1, range2)
FindIntersect = Application.Intersect(range1, range2)
End Function
Kita kemudian dapat mengetikkan fungsi ini langsung ke dalam sel di spreadsheet kita:
Rumusnya mengembalikan seluruh rentang nilai persegi panjang yang mewakili perpotongan rentang A1:C3 dan A1:B10 :
Catatan : Anda dapat menemukan dokumentasi lengkap untuk metode VBA Intersect di sini .
Sumber daya tambahan
Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:
VBA: Cara menghitung jumlah kolom yang digunakan
VBA: Cara menghitung baris dalam sebuah tabel
VBA: Cara menghitung jumlah lembar dalam buku kerja