photosdematures.com

Cerca i substitueix la funció a VBA

Si la vostra feina d’excel implica tasques rutinàries per trobar alguna cosa i substituir-la per alguna cosa, necessiteu aquest article a qualsevol preu. Perquè després de llegir aquest article, probablement estalviareu el 80% del vostre temps aprenent aquesta tècnica de codificació VBA. Cercar i reemplaçar en Excel és una eina que s’utilitza sovint i també podem implementar el mateix amb VBA. En el nostre article anterior “Trobada VBA”, us vam mostrar com utilitzar el mètode FIND a VBA. En aquest article, us mostrarem com utilitzar el mètode VBA "Cerca i substitució".

Seguiu l'article per aprendre aquesta tècnica.

Sintaxi de cerca i substitució de VBA

Per utilitzar el mètode Cerca i reemplaça a VBA, hem de seguir els passos següents. En primer lloc, hem seleccionat l'interval de cel·les, de manera que mencioneu l'interval de cel·les mitjançant l'objecte RANGE a VBA.

Ara poseu un punt (.) Per veure la llista IntelliSense.

Seleccioneu el mètode Substitueix a la llista.

Podem veure l’enorme llista de paràmetres del mètode Replace. Ara veurem cada explicació dels paràmetres a continuació.

• Què: Això no és res més que el que hem de trobar per substituir el valor.
• Substitució: Amb el valor trobat, quin hauria de ser el valor nou que s'ha de substituir.
• Mira: Es tracta d’esmentar si volem mirar tot el contingut o només la part del contingut. Aquí podem subministrar dos paràmetres "xlWhole" i "xlPart".
• Ordre de cerca: Es tracta d’esmentar l’ordre de cerca de files o columnes. Aquí podem subministrar dos paràmetres "xlByRows" i "xlByColumns".
• Match Case: El contingut que cerquem distingeix entre majúscules o minúscules. Si l'argument que distingeix entre majúscules i minúscules és CERT o bé FALS.
• Format de cerca: També podem cercar el contingut mitjançant el format del valor que busquem.
• Substitueix el format: També podem substituir un format per un altre.

Exemples de cerca i substitució de VBA a Excel

A continuació es mostren alguns exemples del mètode Cerca i reemplaçament d'Excel VBA.

Podeu descarregar aquesta plantilla Excel de Cerca i substitució de VBA aquí: plantilla Excel de cerca i substitució de VBA

Exemple 1: VBA Cerca i substitueix la paraula

D’acord, vegem l’exemple següent per entendre el mètode VBA Find and Replace. Mireu les dades següents.

Pas 1: Primer esmenteu el rang de cel·les que substituïm. En aquest exemple, l'interval és de A1 a B15, de manera que el codi serà Interval ("A1: B15").

Codi:

 Substitueix Substitueix_exemple1 () Interval ("A1: B15") Finalitza sub 

Pas 2: Ara poseu un punt per veure la llista IntelliSense.

Pas 3: Seleccioneu el mètode Substitueix a la llista IntelliSense.

Pas 4: Esmenta quin paràmetre com a "setembre".

Codi:

Interval ("A1: B15"). Substitueix què: = "setembre"

Pas 5: A continuació, el paràmetre Substitueix per hauria de ser el nou valor que substituïm per "desembre".

Codi:

Rang ("A1: D4"). Substitueix Què: = "Setembre", Substitució: = "Desembre"

D'acord, a partir d'ara ignora tots els altres paràmetres. Ara executeu el codi VBA per veure el mètode de reemplaçament amb VBA.

Per tant, ha substituït tot el setembre per la paraula "desembre".

Exemple 2: substitució de majúscules i minúscules

L'exemple més avançat del mètode VBA Cerca i reemplaça utilitzarà un mètode de substitució sensible a majúscules i minúscules. Per a aquest exemple, he creat aquestes dades de mostra tal com es mostra a la imatge següent.

Tenim dues dades de cel·les en majúscules "HOLA". Sempre que tinguem un "HOLA" en majúscules, s'hauria de substituir per la nova paraula "Hiii".

Com és habitual, escriviu el codi, mencioneu primer què heu de trobar i què heu de substituir.

Codi:

 Sub Substitueix_Exemple2 () Rang ("A1: D4"). Substitueix Què: = "HOLA", Substitució: = "Hiii" Final Sub 

Ara, per al següent argument "Match Case", escriviu la condició com a TRUE.

Codi:

Rang ("A1: D4"). Substitueix Què: = "HOLA", Substitució: = "Hiii", MatchCase: = True 

Ara executeu el codi que substituirà només el majúscul "HOLA" per "Hiii".

Imagineu que no heu aplicat l'argument Match Case a VBA, llavors substituirà tots els "Hola" a "Hiii".

Nota: He eliminat l'argument Match Case aquí, per defecte el valor de l'argument MATCH CASE és FALS.

Com podem veure a la imatge anterior, ha substituït totes les paraules "hola" per "hiii".

Per tant, sempre que vulguem utilitzar criteris MATCH CASE hauríem d’aplicar l’argument com a “TRUE” i, per defecte, aquest valor de l’argument és “FALS”. Així, podem utilitzar el mètode "FIND & REPLACE" per trobar alguna cosa i substituir el valor trobat per una altra.