VBA kryds - Eksempler på skæringspunkt i Excel VBA - Metoder

Indholdsfortegnelse

Excel VBA krydser

VBA Intersect bruges til at hente et områdeobjekt, der er et skæringspunkt mellem to eller flere områder. Mindst to områder skal leveres for at finde det krydsende områdepunkt. Alle de andre argumenter er valgfri baseret på kravet.

Nedenfor er syntaksen for VBA INTERSECT-formlen.

  • Arg1 som rækkevidde: Første skæringsområde.
  • Arg2 som rækkevidde: Andet skæringsområde.

I nedenstående eksempler vil vi se nogle af de nyttige teknikker.

Eksempler

Eksempel nr. 1

Brug f.eks. Nedenstående data.

Trin 1: Erklær variablen som variant.

Kode:

Sub Intersect_Example () Dim MyValue Som Variant End Sub

Trin 2: Til denne variabel tildeles værdien gennem formen Intersect.

Kode:

Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (End Sub

Trin 3: Vælg det første interval som B2 til B9.

Kode:

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

Trin 4: Vælg det andet interval fra A5 til D5.

Kode:

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

Trin 5: Vi tester med kun to intervaller her. Luk formlen, og vælg metoden som en VBA-celleadresse.

Kode:

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

Trin 6: Vis værdien i meddelelsesboksen i VBA.

Kode:

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

Okay, vi er færdige og ser hvad vi får i meddelelsesboksen.

Vi fik resultatet som B5, dvs. celleadressen til skæringspunktet for det leverede interval.

Som dette ved hjælp af VBA INTERSECT-metoden kan vi gøre mange flere ting.

Eksempel 2

Vælg krydsningscelle

Brug nedenstående kode for at vælge krydsningscellen i det leverede område.

Kode:

Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Vælg End Sub

Dette vælger krydsningscellen i det leverede interval.

Eksempel 3

Ryd indhold af krydsningscellen: For at rydde indholdet af krydsningscellen i det leverede område bruger nedenstående kode.

Kode:

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

Eksempel 4

Skift cellefarvebaggrund og skrifttypefarve på skæringscelle: For at ændre baggrundsfarven på skæringscellen og fontfarven på skæringscelleværdien ved hjælp af nedenstående kode.

Kode:

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

  • For at få den krydsende værdi af området i Excel skal vi give mellemrumskarakter mellem to områder.
  • Ved at bruge VBA-kodning kan vi fremhæve, formatere, slette eller ændre og gøre mange andre ting til skæringsværdien.
  • Hvis de flere rækker og kolonner leveres til skæringsfunktionen, får vi de midterste to værdier.

Interessante artikler...