VBA ristuvad - Intersecti näited Exceli VBA-s - Meetodid

Lang L: none (table-of-contents)

Exceli VBA ristuvad

VBA Intersect'i kasutatakse vahemikuobjekti saamiseks, mis on kahe või enama vahemiku ristumiskoht. Ristuva vahemikupunkti leidmiseks tuleks esitada vähemalt kaks vahemikku. Kõik muud argumendid on nõude põhjal valikulised.

Allpool on valemi VBA INTERSECT süntaks.

  • Arg1 vahemikuna: esimene ristuv vahemik.
  • Arg2 vahemikuna: teine lõikuv vahemik.

Allpool toodud näidetes näeme mõnda kasulikku tehnikat.

Näited

Näide 1

Näiteks kasutage allolevaid andmeid.

1. samm: kuulutage muutuja Variantiks.

Kood:

Sub Intersect_Example () Dim MyValue Variant End Sub

2. samm: määrake selle muutuja jaoks väärtus ristmiku valemi kaudu.

Kood:

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

3. samm: valige esimene vahemik B2 kuni B9.

Kood:

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

4. samm: valige teine ​​vahemik A5 kuni D5.

Kood:

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

5. samm: testime siin ainult kahte vahemikku. Sulgege valem ja valige meetod VBA lahtriaadressina.

Kood:

Alam Intersect_Example () Dim MyValue As Variant MinuValue = Intersect (Range ("B2: B9"), Range ("A5: D5")).

6. samm: kuvage väärtus VBA teatekastis.

Kood:

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

Ok, oleme valmis ja näeme, mida me teate kasti saame.

Tulemuseks saime B5, st tarnitud vahemiku ristumispunkti lahtriaadress.

Niimoodi kasutades VBA INTERSECT-meetodit, saame teha veel palju asju.

Näide 2

Valige ristumiskoht

Komplektis oleva vahemiku ristumiskoha valimiseks kasutage allolevat koodi.

Kood:

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

See valib tarnitud vahemiku ristumiskoha.

Näide # 3

Ristmiku lahtri sisu tühjendamine : tarnitud vahemiku ristmiku lahtri sisu kustutamiseks kasutatakse allolevat koodi.

Kood:

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

Näide 4

Ristiku lahtri lahtri tausta ja fondi värvi muutmine: ristumiskoha lahtri taustavärvi ja ristmiku lahtri väärtuse fondi värvi muutmiseks kasutage allolevat koodi.

Kood:

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

  • Excelis on vahemiku ristuvuse saamiseks vaja anda ruumi märk kahe vahemiku vahel.
  • VBA kodeerimise abil saame ristmiku väärtuseni esile tõsta, vormindada, kustutada või muuta ja teha palju muud.
  • Kui ristumisfunktsioonile antakse mitu rida ja veergu, siis saame kaks keskmist väärtust.

Huvitavad Artiklid...