Interseksyon ng VBA | Mga halimbawa ng Intersect sa Excel VBA | Paraan

Interseksyon ng Excel VBA

Interseksyon ng VBA ay ginagamit upang makakuha ng isang saklaw na bagay na isang intersection ng dalawa o higit pang saklaw. Ang minimum ng dalawang saklaw ay dapat na ibigay upang mahanap ang intersecting range point. Ang lahat ng iba pang mga argumento ay opsyonal batay sa kinakailangan.

Nasa ibaba ang syntax ng formula ng VBA INTERSECT.

  • Arg1 bilang Saklaw: Unang saklaw ng intersecting.
  • Arg2 bilang Saklaw: Pangalawang saklaw ng intersecting.

Sa mga halimbawa sa ibaba makikita namin ang ilan sa mga kapaki-pakinabang na diskarte.

Mga halimbawa

Maaari mong i-download ang VBA Intersect Excel Template dito - VBA Intersect Excel Template

Halimbawa # 1

Halimbawa, gamitin ang data sa ibaba.

Hakbang 1: Ipahayag ang variable bilang Variant.

Code:

 Sub Intersect_Example () I-dim ang AkingValue Bilang Variant End Sub 

Hakbang 2: Para sa variable na ito italaga ang halaga sa pamamagitan ng formula na Intersect.

Code:

 Sub Intersect_Example () I-dim ang MyValue Bilang Variant MyValue = Intersect (End Sub 

Hakbang 3: Piliin ang unang saklaw bilang B2 hanggang B9.

Code:

 Sub Intersect_Example () I-dim ang MyValue Bilang Variant MyValue = Intersect (Saklaw ("B2: B9"), End Sub 

Hakbang 4: Piliin ang pangalawang saklaw mula A5 hanggang D5.

Code:

 Sub Intersect_Example () I-dim ang AkingValue Bilang Variant MyValue = Intersect (Saklaw ("B2: B9"), Saklaw ("A5: D5") End Sub 

Hakbang 5: Sinusubukan lamang namin ang may dalawang saklaw dito. Isara ang formula at piliin ang pamamaraan bilang isang VBA Cell Address.

Code:

 Sub Intersect_Example () I-dim ang MyValue Bilang Variant MyValue = Intersect (Saklaw ("B2: B9"), Saklaw ("A5: D5")). Address End Sub 

Hakbang 6: Ipakita ang halaga sa kahon ng mensahe sa VBA.

Code:

 Sub Intersect_Example () I-dim ang MyValue Bilang Variant MyValue = Intersect (Saklaw ("B2: B9"), Saklaw ("A5: D5")). Address MsgBox MyValue End Sub 

Ok, tapos na kami at makita kung ano ang makukuha natin sa kahon ng mensahe.

Nakuha namin ang resulta bilang B5 ibig sabihin, cell address ng intersection point ng ibinigay na saklaw.

Tulad nito gamit ang pamamaraan ng VBA INTERSECT, marami pa tayong makakagawa ng mga bagay.

Halimbawa # 2

Piliin ang Intersection Cell

Upang mapili ang intersection cell ng ibinigay na saklaw gamitin ang code sa ibaba.

Code:

 Sub Intersect_Example2 () Intersect (Saklaw ("B2: B9"), Saklaw ("A5: D5")). Piliin ang End Sub 

Pipiliin nito ang intersection cell ng ibinigay na saklaw.

Halimbawa # 3

I-clear ang Nilalaman ng Intersection Cell: Upang ma-clear ang nilalaman ng intersection cell ng ibinigay na saklaw ay gumagamit ng code sa ibaba.

Code:

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

Halimbawa # 4

Baguhin ang Background ng Kulay ng Cell at Kulay ng Font ng Intersection Cell: Upang mabago ang kulay ng background ng intersection cell at ang kulay ng font ng halaga ng intersection cell gamit ang code sa ibaba.

Code:

 Sub Intersect_Example2 () Intersect (Saklaw ("B2: B9"), Saklaw ("A5: D5")). Mga Cell. Panloob. Color = rgbBlue Intersect (Saklaw ("B2: B9"), Saklaw ("A5: D5" )). Mga Cell. Font.Color = rgbAliceBlue End Sub 

Baguhin ang Halaga ng Intersection Cell: Gamit ang pag-andar ng Intersect maaari din nating baguhin ang halaga ng cell na iyon sa iba pa.

Sa data sa itaas, ang intersect na halaga ng saklaw na "B2: B9" & "A5: D5" ay cell B5 ibig sabihin ay minarkahan ng asul na kulay. Ngayon sa pamamagitan ng pagbibigay ng saklaw na ito upang mag-intersect ang pag-andar, maaari talaga nating baguhin ang halaga sa iba pa.

Babaguhin ng code sa ibaba ang halaga mula sa 29398 sa "Bagong Halaga".

Code:

 Sub Intersect_Example3 () Intersect (Saklaw ("B2: B9"), Saklaw ("A5: D5")). Halaga = "Bagong Halaga" End Sub 

Patakbuhin ang code sa itaas makukuha namin ang salitang "Bagong Halaga" sa lugar ng 29398.

Tulad nito, sa pamamagitan ng paggamit ng pag-andar ng Intersect maaari kaming maglaro sa paligid na may halagang nasa gitnang posisyon ng ibinigay na saklaw.

Bagay na dapat alalahanin

  • Sa excel upang makuha ang intersect na halaga ng saklaw, kailangan naming bigyan ang space character sa pagitan ng dalawang saklaw.
  • Sa pamamagitan ng paggamit ng VBA coding maaari nating mai-highlight, i-format, tanggalin o baguhin, at gawin ang maraming iba pang mga bagay sa halaga ng intersection.
  • Kung ang maramihang mga hilera at haligi na ibinigay sa intersect function pagkatapos ay makukuha namin ang gitnang dalawang halaga.