VBA Hanapin at Palitan | Paano Makahanap at Palitan ang mga Salita sa Excel VBA?

Hanapin at Palitan ang Pag-andar sa VBA

Kung ang iyong excel job ay nagsasangkot ng mga gawain sa gawain sa paghahanap ng isang bagay at pagpapalit ng isang bagay kung gayon kailangan mo ang artikulong ito sa anumang gastos. Dahil pagkatapos mabasa ang artikulong ito marahil ay makatipid ka ng 80% ng iyong oras sa pamamagitan ng pag-aaral ng diskarteng ito sa pag-coding ng VBA. Ang Find and Change in excel ay madalas na ginagamit na tool at maipapatupad namin ang pareho sa VBA din. Sa aming naunang artikulong "VBA Find" ipinakita namin sa iyo kung paano gamitin ang FIND na pamamaraan sa VBA. Sa artikulong ito, ipapakita namin sa iyo kung paano gamitin ang pamamaraang "Maghanap at Palitan" ng VBA.

Sundin ang artikulo upang malaman ang diskarteng ito.

VBA Hanapin at Palitan ang Syntax

Upang magamit ang paraan ng Paghahanap at Palitan sa VBA kailangan naming sundin ang mga hakbang na ibinigay sa ibaba. Una, napili namin ang saklaw ng mga cell, kaya banggitin ang saklaw ng mga cell sa pamamagitan ng paggamit ng RANGE object sa VBA.

Ngayon maglagay ng isang tuldok (.) Upang makita ang listahan ng IntelliSense.

Piliin ang palitan na paraan mula sa listahan.

Maaari naming makita ang malaking listahan ng parameter ng pamamaraang palitan. Ngayon makikita namin ang bawat pagpapaliwanag ng parameter sa ibaba.

  • Ano: Ito ay walang anuman kundi kung ano ang kailangan nating hanapin upang mapalitan ang halaga.
  • Kapalit: Sa nahanap na halaga kung ano dapat ang bagong halaga na mapalitan.
  • Tingnan Sa: Ito ay upang banggitin kung nais nating tingnan ang buong nilalaman o bahagi lamang ng nilalaman. Maaari naming ibigay ang dalawang mga parameter dito "xlWhole" & "xlPart".
  • Order sa Paghahanap: Ito ay upang banggitin ang order ng paghahanap alinman sa mga hilera o haligi. Maaari naming ibigay ang dalawang mga parameter dito "xlByRows" & "xlByColumns".
  • Kaso ng Pagtutugma: Ang nilalaman na aming hinahanap ay sensitibo sa kaso o hindi. Kung ang kaso na sensitibong argumento ay TUNAY o hindi MALI.
  • Format ng Paghahanap: Maaari din tayong maghanap ng nilalaman sa pamamagitan ng pag-format ng halagang hinahanap natin.
  • Palitan ang Format: Maaari naming palitan ang isang format sa isa pang format pati na rin.

Mga halimbawa ng VBA Hanapin at Palitan sa Excel

Nasa ibaba ang ilang mga halimbawa ng paraan ng Paghahanap at Palitan ng Excel VBA.

Maaari mong i-download ang VBA na Hanapin at Palitan ang Template ng Excel dito - VBA Hanapin at Palitan ang Template ng Excel

Halimbawa # 1 - VBA Hanapin at Palitan ang Salita

Ok, tingnan natin ang sumusunod na halimbawa upang maunawaan ang Paraan ng Paghahanap at Palitan ng VBA. Tingnan ang sumusunod na data.

Hakbang 1: Una banggitin ang Saklaw ng mga cell na pinapalitan namin. Sa halimbawang ito ang Saklaw ay mula sa A1 hanggang B15, kaya ang saklaw ay magiging Saklaw ("A1: B15").

Code:

 Sub Change_Example1 () Saklaw ("A1: B15") End Sub 

Hakbang 2: Ngayon maglagay ng tuldok upang makita ang listahan ng IntelliSense.

Hakbang 3: Piliin ang palitan na pamamaraan mula sa listahan ng IntelliSense.

Hakbang 4: Nabanggit Kung anong parameter ang bilang "Setyembre".

Code:

Saklaw ("A1: B15"). Palitan Ano: = "Setyembre"

Hakbang 5: Susunod na Palitan ng parameter ay dapat ang aming bagong halaga na pinapalitan namin ng ibig sabihin ay "Disyembre".

Code:

Saklaw ("A1: D4"). Palitan Ano: = "Setyembre", Kapalit: = "Disyembre"

Ok, hanggang ngayon ay huwag pansinin ang lahat ng iba pang mga parameter. Patakbuhin ngayon ang VBA code upang makita ang kapalit na pamamaraan sa VBA.

Kaya, pinalitan nito ang buong Setyembre ng salitang "Disyembre".

Halimbawa # 2 - Kapalit na Sensitibo sa Kaso

Ang mas advanced na halimbawa ng pamamaraan ng VBA Find & Change ay gumagamit ng case sensitive replacement na pamamaraan. Para sa halimbawang ito, nilikha ko ang sample na data na ito tulad ng ipinakita sa imaheng nasa ibaba.

Mayroon kaming dalawang data ng cell sa mga malalaking titik na "HELLO". Kung saan man mayroon tayong kabiserang "HELLO" dapat itong mapalitan ng bagong salitang "Hiii".

Tulad ng dati, isulat ang code, banggitin kung ano ang hahanapin at kung ano ang palitan muna.

Code:

 Sub Change_Example2 () Saklaw ("A1: D4"). Palitan Ano: = "HELLO", Kapalit: = "Hiii" End Sub 

Ngayon para sa susunod na argumento na "Match Case" isulat ang kundisyon bilang TUNAY.

Code:

Saklaw ("A1: D4"). Palitan Ano: = "HELLO", Kapalit: = "Hiii", MatchCase: = Tama 

Patakbuhin ngayon ang code papalitan lamang nito ang kapital na "HELLO" sa "Hiii".

Isipin na hindi mo nailapat ang argumento ng Match Case sa VBA pagkatapos ay papalitan nito ang lahat ng "Hello" sa "Hiii".

Tandaan: Inalis ko ang argument ng Match Case dito, bilang default na MATCH CASE na halaga ng argument ay MALI.

Tulad ng nakikita natin sa larawan sa itaas ay pinalitan nito ang lahat ng mga salitang "hello" sa "hiii".

Kaya, tuwing nais naming gumamit ng mga pamantayan sa MATCH CASE dapat naming ilapat ang argumento bilang "TUNAY" at bilang default, ang halagang ito sa argumento ay "MALI". Tulad nito, maaari naming gamitin ang pamamaraang "HANAPIN AT PALIHIN" upang makahanap ng isang bagay at palitan ang nahanap na halaga ng iba pa.