Excel VBA metszi
A VBA Intersect egy olyan tartomány objektum lekérésére szolgál, amely két vagy több tartomány metszéspontja. A metsző tartománypont megtalálásához meg kell adni a minimum két tartományt. Az összes többi érv a követelmény alapján választható.
Az alábbiakban látható a VBA INTERSECT képlet szintaxisa.
- Arg1 mint tartomány: Az első metsző tartomány.
- Arg2 mint tartomány: második metsző tartomány.
Az alábbi példákban néhány hasznos technikát láthatunk.
Példák
1. példa
Használja például az alábbi adatokat.
1. lépés: Nyújtsa be a változót Változatnak.
Kód:
Sub Intersect_Példa () Dim MyValue mint Variant End Sub
2. lépés: Ehhez a változóhoz rendelje az értéket a Metszés képleten keresztül.
Kód:
Sub Intersect_Példa () Dim MyValue változóként MyValue = Intersect (End Sub
3. lépés: Válassza ki az első tartományt B2-től B9-ig.
Kód:
Sub Intersect_Example () Dim MyValue as Variant MyValue = Intersect (Range ("B2: B9"), End Sub
4. lépés: Válassza ki a második tartományt A5 és D5 között.
Kód:
Al Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5") End Sub
5. lépés: Itt csak két tartományt tesztelünk. Zárja be a képletet, és válassza ki a módszert VBA cellacímként.
Kód:
Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Cím vége Sub
6. lépés: Az érték megjelenítése a VBA üzenetmezőjében.
Kód:
Al Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")).
Ok, készen vagyunk, és megnézzük, mit fogunk kapni az üzenet mezőben.
Az eredményt B5-ként kaptuk, azaz a szállított tartomány metszéspontjának cellacímét.
Így a VBA INTERSECT módszerrel még sok mindent megtehetünk.
2. példa
Válassza ki a Metszéspont cellát
A mellékelt tartomány metszéspontjának kiválasztásához használja az alábbi kódot.
Kód:
Sub Intersect_Példa2 () Metszéspont (tartomány ("B2: B9"), tartomány ("A5: D5")). Válassza ki a Sub Sub végét
Ez kiválasztja a szállított tartomány metszéspontját.
3. példa
A kereszteződés cella tartalmának törlése: A mellékelt tartomány keresztező cellájának tartalmának törléséhez használja az alábbi kódot.
Kód:
Sub Intersect_Példa2 () Metszéspont (tartomány ("B2: B9"), tartomány ("A5: D5")). ClearContents End Sub
4. példa
A cella színének és a kereszteződés cella betűszínének módosítása : A metszés cella háttérszínének és a metszés cella értékének betűszínének megváltoztatásához az alábbi kód segítségével.
Kód:
Sub Metszés_Példa2 () Metszés (Tartomány ("B2: B9"), Tartomány ("A5: D5")). Cellák.Belső.Color = rgbBlue Metszés (Tartomány ("B2: B9"), Tartomány ("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
- Az excelben a tartomány metszésértékének megszerzéséhez szóközt kell adnunk két tartomány között.
- A VBA kódolással kiemelhetjük, formázhatjuk, törölhetjük vagy módosíthatjuk, és sok más dolgot elvégezhetünk a kereszteződés értékéig.
- Ha a több sor és oszlop az intersect függvényhez kerül, akkor megkapjuk a középső két értéket.
