Excel VBA Przecięcie
VBA Intersect służy do uzyskania obiektu zakresu, który jest przecięciem dwóch lub więcej zakresów. Aby znaleźć przecinający się punkt zakresu, należy podać co najmniej dwa zakresy. Wszystkie inne argumenty są opcjonalne w oparciu o wymaganie.
Poniżej znajduje się składnia formuły VBA INTERSECT.
- Arg1 jako zakres: pierwszy przecinający się zakres.
- Arg2 jako zakres: drugi przecinający się zakres.
W poniższych przykładach zobaczymy kilka przydatnych technik.
Przykłady
Przykład 1
Na przykład użyj poniższych danych.
Krok 1: Zadeklaruj zmienną jako wariant.
Kod:
Sub Intersect_Example () Dim MyValue As Variant End Sub
Krok 2: W przypadku tej zmiennej przypisz wartość za pomocą formuły Intersect.
Kod:
Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (End Sub
Krok 3: Wybierz pierwszy zakres od B2 do B9.
Kod:
Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), End Sub
Krok 4: Wybierz drugi zakres od A5 do D5.
Kod:
Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5") End Sub
Krok 5: Testujemy tutaj tylko z dwoma zakresami. Zamknij formułę i wybierz metodę jako adres komórki VBA.
Kod:
Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Address End Sub
Krok 6: Pokaż wartość w oknie komunikatu w VBA.
Kod:
Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Adres MsgBox MyValue End Sub
Ok, skończyliśmy i zobaczymy, co otrzymamy w oknie wiadomości.
Otrzymaliśmy wynik jako B5 czyli adres komórki punktu przecięcia podanego zakresu.
W ten sposób, używając metody VBA INTERSECT, możemy zrobić o wiele więcej rzeczy.
Przykład nr 2
Wybierz komórkę skrzyżowania
Aby wybrać komórkę przecięcia podanego zakresu użyj poniższego kodu.
Kod:
Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Wybierz End Sub
Spowoduje to wybranie komórki przecięcia podanego zakresu.
Przykład nr 3
Wyczyść zawartość komórki skrzyżowania: Aby wyczyścić zawartość komórki przecięcia z podanego zakresu, użyj poniższego kodu.
Kod:
Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). ClearContents End Sub
Przykład 4
Zmień kolor tła komórki i kolor czcionki komórki skrzyżowania: Aby zmienić kolor tła komórki skrzyżowania i kolor czcionki wartości komórki skrzyżowania, użyj poniższego kodu.
Kod:
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
- W programie Excel, aby uzyskać wartość przecięcia zakresu, musimy podać spację między dwoma zakresami.
- Korzystając z kodowania VBA, możemy podświetlać, formatować, usuwać lub zmieniać i robić wiele innych rzeczy z wartością przecięcia.
- Jeśli do funkcji intersect zostanie dostarczonych wiele wierszy i kolumn, otrzymamy dwie środkowe wartości.
