seychellesartprojects.org

„Excel VBA“ susikerta

VBA sankirta  naudojama norint gauti diapazono objektą, kuris yra dviejų ar daugiau diapazonų sankirta. Norint rasti susikertantį diapazono tašką, reikia pateikti mažiausiai du diapazonus. Visi kiti argumentai yra neprivalomi, atsižvelgiant į reikalavimą.

Žemiau pateikiama VBA INTERSECT formulės sintaksė.

• Arg1 kaip diapazonas: pirmasis susikertantis diapazonas.
• Arg2 kaip diapazonas: antrasis susikertantis diapazonas.

Toliau pateiktuose pavyzdžiuose pamatysime keletą naudingų metodų.

Pavyzdžiai

Šį „VBA Intersect Excel“ šabloną galite atsisiųsti čia - „VBA Intersect Excel“ šablonas

1 pavyzdys

Pavyzdžiui, naudokite toliau pateiktus duomenis.

1 veiksmas: paskelbkite kintamąjį kaip „Variant“.

Kodas:

 Sub Intersect_Example () Dim MyValue As Variant End Sub 

2 žingsnis: Šiam kintamajam priskirkite vertę naudodami „Intersect“ formulę.

Kodas:

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

3 žingsnis: Pasirinkite pirmąjį diapazoną nuo B2 iki B9.

Kodas:

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

4 žingsnis: Pasirinkite antrą diapazoną nuo A5 iki D5.

Kodas:

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

5 žingsnis: čia bandome tik su dviem diapazonais. Uždarykite formulę ir pasirinkite metodą kaip VBA langelio adresą.

Kodas:

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

6 žingsnis: parodykite vertę pranešimų laukelyje VBA.

Kodas:

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

Gerai, mes baigėme ir pamatysime, ką gausime pranešimų laukelyje.

Rezultatą gavome kaip B5, ty tiekiamo diapazono susikirtimo taško langelio adresą.

Panašiai, naudodami VBA INTERSECT metodą, galime padaryti daug daugiau dalykų.

2 pavyzdys

Pasirinkite sankirtos langelį

Norėdami pasirinkti tiekiamo diapazono sankirtos langelį, naudokite žemiau pateiktą kodą.

Kodas:

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

Tai pasirinks tiekiamo diapazono sankirtos langelį.

3 pavyzdys

Išvalyti susikirtimo langelio turinį : Norėdami išvalyti tiekiamo diapazono sankirtos langelio turinį, naudokite toliau pateiktą kodą.

Kodas:

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

4 pavyzdys

Keisti susikirtimo langelio langelio spalvos fono ir šrifto spalvą: Norėdami pakeisti sankirtos langelio fono spalvą ir sankirtos langelio vertės šrifto spalvą naudodami žemiau pateiktą kodą.

Kodas:

 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 

Keiskite susikirtimo langelio vertę: naudodamiesi funkcija „Susikerta“, mes taip pat galime pakeisti tos ląstelės vertę į kažką kitą.

Pirmiau pateiktuose duomenyse diapazono „B2: B9“ ir „A5: D5“ sankirtinė vertė yra langelis B5, ty pažymėtas mėlyna spalva. Pateikdami šį diapazoną susikirtimo funkcijai, mes iš tikrųjų galime pakeisti vertę į kažką kitą.

Žemiau pateiktas kodas pakeis vertę iš 29398 į „Nauja vertė“.

Kodas:

 Sub Intersect_Pavyzdys3 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Reikšmė = "New Value" Pabaiga Sub 

Paleiskite aukščiau esantį kodą, vietoje 29398 gausime žodį „Nauja vertė“ .

Panašiai, naudodamiesi „Intersect“ funkcija, mes galime žaisti su tiekiamo diapazono vidurinės padėties verte.

Ką reikia atsiminti

• „Excel“ programoje, norėdami gauti diapazono sankirtos vertę, tarp dviejų diapazonų turime suteikti tarpo ženklą.
• Naudodami VBA kodavimą, mes galime paryškinti, suformatuoti, ištrinti ar pakeisti ir padaryti daug kitų dalykų iki sankirtos vertės.
• Jei kelios eilutės ir stulpeliai pateikiami susikirtimo funkcijai, gausime vidurines dvi reikšmes.