Presjek VBA - Primjeri presijecanja u programu Excel VBA - Metode

Excel VBA presjek

VBA Intersect koristi se za dobivanje objekta raspona koji je sjecište dva ili više raspona. Potrebno je navesti najmanje dva raspona za pronalaženje točke presijecanja raspona. Svi ostali argumenti nisu obvezni na temelju zahtjeva.

Ispod je sintaksa formule VBA INTERSECT.

  • Arg1 kao domet: prvo područje koje se siječe.
  • Arg2 kao domet: drugi domet koji se siječe.

U slijedećim primjerima vidjet ćemo neke korisne tehnike.

Primjeri

Primjer # 1

Na primjer, upotrijebite podatke u nastavku.

Korak 1: Proglasite varijablu varijantom.

Kodirati:

Sub Intersect_Example () Priguši MyValue kao varijantu Kraj Sub

Korak 2: Za ovu varijablu dodijelite vrijednost kroz formulu Intersect.

Kodirati:

Sub Intersect_Example () Dim MyValue kao varijanta MyValue = Intersect (End Sub

Korak 3: Odaberite prvi raspon kao B2 do B9.

Kodirati:

Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), End Sub

Korak 4: Odaberite drugi raspon od A5 do D5.

Kodirati:

Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5") End Sub

Korak 5: Ovdje testiramo sa samo dva raspona. Zatvorite formulu i odaberite metodu kao VBA ćelijska adresa.

Kodirati:

Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Adresa Kraj Sub

Korak 6: Prikažite vrijednost u okviru za poruke u VBA.

Kodirati:

Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Adresa MsgBox MyValue End Sub

U redu, gotovi smo i pogledajte što ćemo dobiti u okviru za poruke.

Rezultat smo dobili kao B5, odnosno adresu ćelije točke presijecanja isporučenog raspona.

Poput ove pomoću metode VBA INTERSECT, možemo učiniti još mnogo toga.

Primjer # 2

Odaberite ćeliju raskrižja

Da biste odabrali presječnu ćeliju isporučenog raspona, upotrijebite donji kod.

Kodirati:

Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Odaberite End Sub

Ovo će odabrati presječnu ćeliju isporučenog raspona.

Primjer # 3

Obriši sadržaj presječne ćelije: Da bi se očistio sadržaj presječne ćelije isporučenog raspona, koristi se donji kod.

Kodirati:

Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). ClearContents End Sub

Primjer # 4

Promijenite boju pozadine i boju fonta ćelije presijecanja: Da biste promijenili boju pozadine ćelije presjeka i boju fonta vrijednosti ćelije presijecanja pomoću donjeg koda.

Kodirati:

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

  • U Excelu, da bismo dobili presječenu vrijednost raspona, trebamo dati razmak između dva raspona.
  • Korištenjem VBA kodiranja možemo istaknuti, formatirati, izbrisati ili promijeniti i učiniti mnoge druge stvari prema vrijednosti presjeka.
  • Ako se više redaka i stupaca isporuči funkciji presijecanja, tada ćemo dobiti srednje vrijednosti.

Zanimljivi članci...