Presečišče Excel VBA
VBA Intersect se uporablja za pridobitev predmeta obsega, ki je presečišče dveh ali več obsegov. Navesti je treba najmanj dva obsega, da najdemo točko preseka. Vsi drugi argumenti so neobvezni glede na zahtevo.
Spodaj je sintaksa formule VBA INTERSECT.

- Arg1 kot obseg: prvo sekajoče se območje.
- Arg2 kot obseg: drugo presečišče.
V spodnjih primerih bomo videli nekaj uporabnih tehnik.

Primeri
Primer # 1
Na primer, uporabite spodnje podatke.

1. korak: Spremenljivko razglasite za Variant.
Koda:
Sub Intersect_Example () Dim MyValue As Variant End Sub

2. korak: Za to spremenljivko vrednost dodelite s formulo Intersect.
Koda:
Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (End Sub

3. korak: Izberite prvo območje kot B2 do B9.
Koda:
Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Obseg ("B2: B9"), End Sub

4. korak: Izberite drugo območje od A5 do D5.
Koda:
Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5") End Sub

5. korak: Tu preizkušamo samo dva obsega. Zaprite formulo in izberite metodo kot naslov celice VBA.
Koda:
Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (obseg ("B2: B9"), obseg ("A5: D5")). Naslov End Sub

Korak 6: V polju za sporočila v VBA pokažite vrednost.
Koda:
Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Naslov MsgBox MyValue End Sub

Ok, končali smo in poglejte, kaj bomo dobili v okencu za sporočila.

Rezultat smo dobili kot B5, tj. Naslov celice presečišča dobavljenega obsega.
Tako kot z metodo VBA INTERSECT lahko naredimo še veliko več stvari.
2. primer
Izberite Intersection Cell
Če želite izbrati presečišče dobavljenega obsega, uporabite spodnjo kodo.
Koda:
Sub Intersect_Example2 () Presečišče (obseg ("B2: B9"), obseg ("A5: D5")). Izberite End Sub
S tem boste izbrali presečišče dobavljenega obsega.

3. primer
Počisti vsebino presečne celice: Za brisanje vsebine presečne celice dobavljenega obsega uporablja spodnjo kodo.
Koda:
Sub Intersect_Example2 () Presečišče (obseg ("B2: B9"), obseg ("A5: D5")). ClearContents End Sub
Primer # 4
Spremenite barvo ozadja celice in barvo pisave celice križišča: Če želite spremeniti barvo ozadja presečišča in barvo pisave vrednosti presečišča, uporabite spodnjo kodo.
Koda:
Sub Intersect_Example2 () Presečišče (obseg ("B2: B9"), obseg ("A5: D5")). Celice.Interior.Color = rgbBlue Intersect (obseg ("B2: B9"), obseg ("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
- Če želimo dobiti presečno vrednost obsega, moramo v Excelu med dvema obsegoma dati presledek.
- Z uporabo kodiranja VBA lahko označimo, oblikujemo, izbrišemo ali spremenimo in naredimo marsikaj drugega do vrednosti presečišča.
- Če je več vrstic in stolpcev dobavljenih za funkcijo seka, bomo dobili srednji dve vrednosti.