VBA per a cada cel·la del rang a Excel (3 mètodes)

  • Comparteix Això
Hugh West

A les grans bases de dades, vau dedicar la major part del temps a tractar amb intervals i cel·les. De vegades cal repetir la mateixa acció en grans intervals o en un gran nombre de cel·les. Això al mateix temps mata el vostre temps i redueix la vostra eficiència. La solució intel·ligent a aquest problema és crear un Codi de programació VBA que s'executarà per cada cel·la de l'interval i realitzarà la mateixa acció dirigida per vostè. Avui, en aquest article, parlarem de com fer VBA per a cada cel·la de l'interval a Excel.

Baixeu el llibre de pràctiques

Descarregueu aquest llibre de pràctiques per exercir la tasca mentre llegiu aquest article.

Codi VBA per a cada cel·la d'un rang a Excel.xlsx

3 maneres adequades d'aplicar VBA a cada cel·la d'un rang a Excel

Mitjançant un codi VBA, podeu realitzar la mateixa fórmula a cada cel·la d'un rang, una columna o una fila. En aquesta secció, repassarem totes les seccions.

1. Apliqueu VBA per a cada cel·la de l'interval

Considereu una situació en què haureu d'aplicar el mateix codi VBA per a cada cel·la d'una cel·la. rang donat ( B3:F12 ). Per fer-ho construirem un codi VBA. Les instruccions es donen a continuació

Pas 1:

  • Primer, inserirem un botó d'ordres per simplificar la nostra feina . Aneu a la vostra Pestanya Desenvolupador , seleccioneu Insereix i feu clic al botó d'ordres per obtenir-ne un.

  • Tenim el nostre comandamentbotó.

  • Feu clic amb el botó dret al botó d'ordre per obrir les opcions. Seleccioneu i feu clic a Propietats per modificar algunes opcions.

  • Canvieu el títol del botó d'ordres. Aquí canviem el nom a " Fes clic aquí ".

Pas 2:

  • Ara feu doble clic al botó d'ordres per obrir el mòdul VBA . Aquí anotarem el nostre codi VBA per a la tasca.

  • Primer, declararem dues variables. Anomenem els objectes d'interval CL i Rng . Podeu anomenar-los com vulgueu.
4622

  • Assigneu un rang específic mitjançant aquesta ordre,

Defineix Rng = Fulls de treball(“VBA1”).Range(“B3:F12”)

  • Aquí VBA1 és el nom del nostre full de treball i B3:F12 és el nostre interval definit.

  • Ara farem servir el codi per passar per cada cel·la de l'interval. El codi és,
1489
  • Valor = 100 fa referència que retornarà 100 per a cada cel·la de l'interval donat.

  • Així que el nostre codi final es converteix en,
8938
  • Aneu al vostre full de treball principal i feu clic al botó d'ordres per executar VBA per a cada cel·la de l'interval.

Pas 3:

  • Com els valors numèrics, també podem posar valors de text per a cada cel·la de l'interval. En aquest cas, aneu a la finestra de VBA i, en lloc de 100, inseriu el valor de text que voleu executar. El canviatLa línia és
1238

  • Feu clic al botó d'ordres i el codi VBA retornarà aquest valor de text per a cada cel·la de l'interval.

Pas 4:

  • En aquest pas, aprofundirem una mica més. Suposem que volem ressaltar cada cel·la en blanc del nostre interval.

  • Per això, afegiu una nova condició al vostre codi existent. La nova fórmula és,
9754
  • Aquest nou codi ressaltarà la cel·la en blanc amb color vermell. Per tant, el codi complet és:
1985

  • Obteniu el resultat fent clic al botó d'ordres.

Lectures similars:

  • Com utilitzar l'objecte d'interval de VBA a Excel (5 propietats)
  • Utilitza el desplaçament de rang VBA (11 maneres)
  • Com comptar el text a Excel (7 trucs fàcils)

2. Insereix VBA Codi per a cada cel·la d'una columna d'un rang

També podem executar codi VBA per a cada cel·la d'una columna. Suposem que tenim una columna que conté nombres i hem de pintar valors inferiors a 10. Construirem un codi VBA per executar cada cel·la de la columna.

Pas 1:

  • Creeu un botó d'ordres seguint les instruccions que hem comentat.

Pas 2:

  • Feu doble clic al botó d'ordres per obrir la finestra de VBA.
  • Declararem una variable anomenada " c " del tipus llarg. Estem utilitzant la variable de tipus Long aquí perquè Longles variables tenen una capacitat més gran que les variables enteres.
3545

  • A continuació, afegiu la línia de codi que canvia el color de la font de totes les cel·les de la nostra columna a negre.
6642

  • Inseriu el bucle per a aquest codi.
5154

  • En aquest pas, introduirem una condició per pintar els valors que siguin inferiors al valor de la cel·la C4 (10). Introduïu aquest codi per fer-ho.
7904

  • Així que el codi final és,
1716
  • El VBA s'executarà i mostrarà els resultats quan feu clic al botó d'ordres.

3. Escriu un codi VBA per a cada cel·la en una fila d'un rang

També podem executar un codi VBA per a cada cel·la seguida. A la fila donada, hem de realitzar la mateixa acció a cada cel·la de la fila.

Pas 1:

  • Afegiu un botó d'ordres i canvieu-ne el nom a " Feu clic aquí! "

  • Feu doble clic al botó per obriu la finestra de VBA. Anoteu el codi VBA que es proporciona a continuació.
3726
  • El codi passarà per cada cel·la de la fila i s'aplicarà un farciment de color groc a cada cel·la.

  • Feu clic al botó i el nostre resultat és aquí.

Notes ràpides

👉 Si no teniu la vostra pestanya de desenvolupador visible, podeu activar-la amb aquesta instrucció.

Barra d'eines d'accés ràpid personalitzada → Més ordres → Personalitza la cinta → Desenvolupador  → D'acord

Conclusió

Hem passat per tres enfocaments diferents per executar VBA per a cada cel·la d'un interval. Si teniu cap pregunta o consulta, podeu fer comentaris. També podeu consultar els nostres altres articles relacionats amb les tasques d'Excel!

Hugh West és un entrenador i analista d'Excel molt experimentat amb més de 10 anys d'experiència en el sector. És llicenciat en Comptabilitat i Finances i Màster en Administració i Direcció d'Empreses. Hugh té una passió per l'ensenyament i ha desenvolupat un enfocament pedagògic únic que és fàcil de seguir i entendre. El seu coneixement expert d'Excel ha ajudat a milers d'estudiants i professionals de tot el món a millorar les seves habilitats i a destacar en les seves carreres. A través del seu bloc, Hugh comparteix els seus coneixements amb el món, oferint tutorials d'Excel gratuïts i formació en línia per ajudar les persones i les empreses a assolir tot el seu potencial.