Excel VBA se intersectează
VBA Intersect este folosit pentru a obține un obiect de interval care este o intersecție de două sau mai multe domenii. Pentru a găsi punctul de intersecție trebuie furnizat cel puțin două intervale. Toate celelalte argumente sunt opționale pe baza cerinței.
Mai jos este sintaxa formulei VBA INTERSECT.
- Arg1 ca Range: Prima gamă care se intersectează.
- Arg2 ca Range: Al doilea interval de intersecție.
În exemplele de mai jos vom vedea câteva dintre tehnicile utile.
Exemple
Exemplul nr. 1
De exemplu, utilizați datele de mai jos.
Pasul 1: Declarați variabila ca Variantă.
Cod:
Sub Intersect_Example () Dim MyValue As Variant End Sub
Pasul 2: Pentru această variabilă atribuiți valoarea prin formula Intersectează.
Cod:
Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (End Sub
Pasul 3: Selectați primul interval ca B2 la B9.
Cod:
Sub Intersect_Example () Dim MyValue as Variant MyValue = Intersect (Range ("B2: B9"), End Sub
Pasul 4: Selectați al doilea interval de la A5 la D5.
Cod:
Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5") End Sub
Pasul 5: Testăm aici doar două game. Închideți formula și selectați metoda ca adresă de celulă VBA.
Cod:
Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Adresă End Sub
Pasul 6: Afișați valoarea în caseta de mesaj din VBA.
Cod:
Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Adresă MsgBox MyValue End Sub
Ok, am terminat și vedem ce vom primi în caseta de mesaje.
Am obținut rezultatul ca B5, adică adresa celulei punctului de intersecție al intervalului furnizat.
Astfel, folosind metoda VBA INTERSECT, putem face multe alte lucruri.
Exemplul nr. 2
Selectați celula de intersecție
Pentru a selecta celula de intersecție a intervalului furnizat utilizați codul de mai jos.
Cod:
Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Selectați End Sub
Aceasta va selecta celula de intersecție a intervalului furnizat.
Exemplul nr. 3
Ștergeți conținutul celulei de intersecție: pentru a șterge conținutul celulei de intersecție a intervalului furnizat, utilizați codul de mai jos.
Cod:
Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). ClearContents End Sub
Exemplul # 4
Schimbați fundalul culorii celulei și culoarea fontului celulei de intersecție: Pentru a schimba culoarea de fundal a celulei de intersecție și culoarea fontului valorii celulei de intersecție utilizând codul de mai jos.
Cod:
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
- În Excel, pentru a obține valoarea de intersecție a intervalului, trebuie să dăm caracter spațial între două intervale.
- Prin utilizarea codificării VBA, putem evidenția, formata, șterge sau modifica și putem face multe alte lucruri până la valoarea de intersecție.
- Dacă mai multe rânduri și coloane sunt furnizate funcției de intersecție, atunci vom obține cele două valori din mijloc.
