Excel VBA Kesişim
VBA Intersect , iki veya daha fazla aralığın kesişimi olan bir aralık nesnesi elde etmek için kullanılır. Kesişen menzil noktasını bulmak için minimum iki aralık sağlanmalıdır. Diğer tüm bağımsız değişkenler gereksinime göre isteğe bağlıdır.
Aşağıda VBA INTERSECT formülünün sözdizimi verilmiştir.
- Arg1 as Range: İlk kesişen aralık.
- Arg2 as Range: İkinci kesişen aralık.
Aşağıdaki örneklerde yararlı tekniklerden bazılarını göreceğiz.
Örnekler
Örnek 1
Örneğin, aşağıdaki verileri kullanın.
Adım 1: Değişkeni Değişken olarak bildirin.
Kod:
Sub Intersect_Example () Dim MyValue As Variant End Sub
Adım 2: Bu değişken için değeri Kesişim formülü aracılığıyla atayın.
Kod:
Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (End Sub
Adım 3: İlk aralığı B2 ila B9 olarak seçin.
Kod:
Alt Kesişim_Örneği () Değişken Olarak Dim MyValue MyValue = Kesişim (Aralık ("B2: B9"), Son Alt
Adım 4: A5'den D5'e kadar ikinci aralığı seçin.
Kod:
Alt Kesişim_Örneği () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5") End Sub
Adım 5: Burada sadece iki aralıkla test ediyoruz. Formülü kapatın ve yöntemi VBA Hücre Adresi olarak seçin.
Kod:
Alt Kesişim_Örneği () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Address End Sub
Adım 6: VBA'daki mesaj kutusunda değeri gösterin.
Kod:
Alt Kesişim_Örneği () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Adres MsgBox MyValue End Sub
Tamam, bitirdik ve mesaj kutusuna ne alacağımızı gördük.
Sonucu B5 olarak aldık, yani sağlanan aralığın kesişme noktasının hücre adresi.
VBA INTERSECT yöntemini kullanarak bunun gibi, daha birçok şey yapabiliriz.
Örnek 2
Kesişim Hücresini Seçin
Verilen aralığın kesişim hücresini seçmek için aşağıdaki kodu kullanın.
Kod:
Alt Kesişim_Örneği2 () Kesişim (Aralık ("B2: B9"), Aralık ("A5: D5")). Son Alt
Bu, sağlanan aralığın kesişim hücresini seçecektir.
Örnek 3
Kesişim Hücresinin Net İçeriği: Sağlanan aralığın kesişim hücresinin içeriğini temizlemek için aşağıdaki kodu kullanır.
Kod:
Alt Kesişim_Örneği2 () Kesişim (Aralık ("B2: B9"), Aralık ("A5: D5")). ClearContents End Sub
Örnek 4
Kesişim Hücresinin Hücre Rengi Arka Planını ve Yazı Tipi Rengini Değiştirin: Aşağıdaki kodu kullanarak kesişim hücresinin arka plan rengini ve kesişim hücresi değerinin yazı tipi rengini değiştirmek için.
Kod:
Alt Kesişim_Örneği2 () Kesişim (Aralık ("B2: B9"), Aralık ("A5: D5")). Hücreler.Interior.Color = rgbBlue Kesişim (Aralık ("B2: B9"), Aralık ("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
- Excel'de, aralığın kesişme değerini elde etmek için iki aralık arasında boşluk karakteri vermemiz gerekir.
- VBA kodlamasını kullanarak, kesişim değeri üzerinde vurgulayabilir, biçimlendirebilir, silebilir veya değiştirebilir ve daha birçok şey yapabiliriz.
- Kesişim işlevine birden çok satır ve sütun sağlanırsa, ortadaki iki değeri elde ederiz.
