VBA Intersect - Exempel på skärningspunkt i Excel VBA - Metoder

Innehållsförteckning

Excel VBA korsning

VBA Intersect används för att få ett intervallobjekt som är en skärningspunkt mellan två eller flera intervall. Minst två intervall ska tillhandahållas för att hitta skärningspunktens punkt. Alla andra argument är valfria baserat på kravet.

Nedan är syntaxen för VBA INTERSECT-formeln.

  • Arg1 som Range: Första skärningsområde.
  • Arg2 som intervall: andra skärningsområde.

I exemplen nedan kommer vi att se några av de användbara teknikerna.

Exempel

Exempel 1

Använd till exempel nedanstående data.

Steg 1: Förklara variabeln som Variant.

Koda:

Sub Intersect_Example () Dim MyValue As Variant End Sub

Steg 2: Tilldela värdet för denna variabel genom formeln Intersect.

Koda:

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

Steg 3: Välj det första intervallet som B2 till B9.

Koda:

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

Steg 4: Välj det andra intervallet från A5 till D5.

Koda:

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

Steg 5: Vi testar med bara två intervall här. Stäng formeln och välj metoden som en VBA-celladress.

Koda:

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

Steg 6: Visa värdet i meddelandefältet i VBA.

Koda:

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

Okej, vi är klara och ser vad vi får i meddelandefältet.

Vi fick resultatet som B5, dvs. celladressen för skärningspunkten för det medföljande intervallet.

Som detta med VBA INTERSECT-metoden kan vi göra många fler saker.

Exempel 2

Välj korsningscellen

Använd nedanstående kod för att välja korsningscellen i det medföljande intervallet.

Koda:

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

Detta väljer skärningscellen för det medföljande intervallet.

Exempel # 3

Rensa innehållet i korsningscellen: För att rensa innehållet i korsningscellen i det medföljande intervallet använder du nedanstående kod.

Koda:

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

Exempel 4

Ändra bakgrundsfärgen för cellfärgen och teckensnittsfärgen för korsningscellen: För att ändra skärningscellens bakgrundsfärg och teckensnittsfärgen för skärningscellens värde med hjälp av nedanstående kod.

Koda:

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

  • För att få korsningsvärdet för intervallet måste vi i Excel ge mellanslagstecken mellan två områden.
  • Genom att använda VBA-kodning kan vi markera, formatera, radera eller ändra och göra många andra saker för korsningsvärdet.
  • Om de flera raderna och kolumnerna tillförs skärningsfunktionen får vi de två mellersta värdena.

Intressanta artiklar...