VBA Intersect - Eksempler på kryss i Excel VBA - Metoder

Innholdsfortegnelse

Excel VBA kryss

VBA Intersect brukes til å få et områdeobjekt som er et skjæringspunkt mellom to eller flere områder. Minimum to områder skal leveres for å finne skjæringspunktet. Alle de andre argumentene er valgfrie basert på kravet.

Nedenfor er syntaksen til VBA INTERSECT-formelen.

  • Arg1 som Range: Første skjærende område.
  • Arg2 som rekkevidde: andre skjæringsområde.

I eksemplene nedenfor vil vi se noen av de nyttige teknikkene.

Eksempler

Eksempel 1

Bruk for eksempel dataene nedenfor.

Trinn 1: Deklarer variabelen som variant.

Kode:

Sub Intersect_Example () Dim MyValue Som Variant End Sub

Trinn 2: For denne variabelen tildeler du verdien gjennom Intersect-formelen.

Kode:

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

Trinn 3: Velg det første området som B2 til B9.

Kode:

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

Trinn 4: Velg det andre området fra A5 til D5.

Kode:

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

Trinn 5: Vi tester med bare to områder her. Lukk formelen og velg metoden som en VBA-celleadresse.

Kode:

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

Trinn 6: Vis verdien i meldingsboksen i VBA.

Kode:

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

Ok, vi er ferdige og ser hva vi får i meldingsboksen.

Vi fikk resultatet som B5, dvs. celleadressen til skjæringspunktet for det medfølgende området.

Som dette ved hjelp av VBA INTERSECT-metoden, kan vi gjøre mange flere ting.

Eksempel 2

Velg krysscellen

For å velge krysscellen i det medfølgende området, bruk koden nedenfor.

Kode:

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

Dette vil velge krysscellen til det medfølgende området.

Eksempel 3

Fjern innholdet i krysscellen: For å tømme innholdet i krysscellen i det medfølgende området bruker du koden nedenfor.

Kode:

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

Eksempel 4

Endre bakgrunn for cellefarge og skriftfarge for krysscellen: For å endre bakgrunnsfargen til krysscellen og skriftfargen for krysscellens verdi ved hjelp av koden nedenfor.

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 å få skjæringsverdien til området, må vi gi Excel karakter mellom to områder.
  • Ved å bruke VBA-koding kan vi markere, formatere, slette eller endre, og gjøre mange andre ting til skjæringsverdien.
  • Hvis flere rader og kolonner leveres til skjæringsfunksjonen, får vi de to midterste verdiene.

Interessante artikler...