Macros excel

MANUAL BÁSICO PARA EMPEZAR A TRABAJAR CON MACROS
DE VISUAL BASIC PARA EXCEL
Introducción al Visual Basic
José Pedro García Sabater

2
ÍNDICE
1 INTRODUCCION (a propósito de Visual Basic)........................................................4
2 OBJETIVOS......................................................................................................................5
3 DESARROLLO DE LOS EJEMPLOS.........................................................................5
3.1 Creación de un “botón” que al apretarlo escriba HOLA..................................5
3.2 Acumulación de “HOLA”’s en la misma celda. ..................................................6
3.3 Acumulación de texto en varias diagonales sucesivas.........................................7
3.4 Programación de series de Fibonacci....................................................................8
4 NUEVOS EJEMPLOS: OBTENCIÓN DE NÚMEROS PRIMOS........................19
5 CONCLUSIONES ..........................................................................................................24
6 ANEXO (Sentencias y funciones habituales)..............................................................25
6.1 Problemas con variables (¿porqué no se dejan definir las variables?)..........25
6.1.1 Option Explicit: ..............................................................................................25
6.1.2 Dim…. As [Integer, Double, String, Boolean,…]: ......................................25
6.2 Condición If…, etc. (diversas posibilidades):.....................................................25
6.2.1 Select Case.......................................................................................................25
6.2.2 Ejemplos de utilización..................................................................................25
6.3 Bucles: For... To ... Next / Do While... Loop / Do Loop… Until (Utilización y
posibles problemas):...........................................................................................................26
6.3.1 Do... Loop Until ..............................................................................................26
6.3.2 Do While... Loop.............................................................................................26
6.3.3 For... To... Next...............................................................................................27
6.3.4 With..................................................................................................................28
6.4 Coordenadas polares: ¿Cómo pasar de coordenadas cartesianas (x, y) a
polares (r, )?:.....................................................................................................................28
6.4.1 Radio (calculado a partir de las coordenadas x e y de los puntos en
cuestión) r = RaizCuadrada(x^2+y^2):.......................................................................28
6.4.2 Angulo (calculado a partir de las coordenadas x e y de los puntos en
cuestión) = Arctan (x/y): .....................................................................................29
6.5 Cambiar criterios de ordenación:........................................................................29
6.6 Menús… ...................................................................................................................30
6.7 Para Ordenar ..........................................................................................................30
6.8 Quitar el signo de los números convertidos en string:......................................30
6.9 Cuando queremos poner referencias relativas a variables en la fórmula:....30
6.10 Temporizador: ........................................................................................................31
6.11 Funciones:................................................................................................................31
6.12 Zoom de la ventana:...............................................................................................31
6.13 Para cancelar el botón:..........................................................................................31
6.14 Procedimiento que empieza con un formulario: ...............................................31
6.15 Otro modo de cambiar el color: ...........................................................................31
6.16 Para abrir un formulario:.....................................................................................31
6.17 Para ocultar un formulario:..................................................................................32
6.18 Procedimiento que empieza automáticamente:.................................................32
6.19 Borrar Menu:..........................................................................................................32

3
6.20 Crear Rango:...........................................................................................................32
6.21 Comparar fechas:...................................................................................................32
6.22 Entero y Logaritmo:...............................................................................................32
6.23 Poner bordes:..........................................................................................................33
6.24 Pregunta un número:.............................................................................................33
6.25 Ventana de mensajes: ............................................................................................33
6.26 Formula con referencias relativas:......................................................................33
6.27 Se mueve a la siguiente celda a la derecha:........................................................33
6.28 Pegado transpuesto:...............................................................................................33
6.29 Copiar un rango de una página a otra:...............................................................34
6.30 Definición de Rango Automático:........................................................................34
6.31 Cálculo de Máximo:...............................................................................................34
6.32 Formato interior de Celda:...................................................................................34
6.33 Enteros aleatorios entre límites:...........................................................................34
6.34 Suprimir los cuadraditos en un texto importado:.............................................35
6.35 Seleccionar los caracteres en una celda Excel: ..................................................36
6.36 Insertar automáticamente retornos de carro en un texto:...............................37
6.37 Comodines de búsqueda:.......................................................................................37
6.38 Extraer el código postal de una dirección: .........................................................38
6.39 Reemplazar un carácter en una variable: ..........................................................40
6.40 Reemplazo complejo conservando los 0:.............................................................40
6.41 Espacios que no lo son:..........................................................................................41
6.42 Lista de las letras del alfabeto:.............................................................................41
6.43 Suprimir espacios:..................................................................................................41
6.44 Quitar la primera palabra de une frase:.............................................................42
6.45 Conversión de números en letras:........................................................................42
6.46 Extraer una cadena de texto en medio de otra:.................................................42
6.47 Quitar los números de una cadena de caracteres: ............................................42
6.48 Buscar una cadena de caracteres en otra:..........................................................43
6.49 Trocear una frase sin cortar las palabras: .........................................................44
6.50 Última palabra de una frase:................................................................................45
6.51 Inserción de un carácter especial:........................................................................45
6.52 Borrar el carácter de la derecha:.........................................................................45
6.53 Comprobar la presencia de una cadena de caracteres:....................................45

4
1 INTRODUCCION (a propósito de Visual Basic)
Visual Basic para aplicaciones es una combinación de un entorno de programación integrado
denominado Editor de Visual Basic y del lenguaje de programación Visual Basic, permitiendo
diseñar y desarrollar con facilidad programas en Visual Basic. El término “para aplicaciones” hace
referencia al hecho de que el lenguaje de programación y las herramientas de desarrollo están
integrados con las aplicaciones del Microsoft Office (en este caso, el Microsoft Excel), de forma
que se puedan desarrollar nuevas funcionalidades y soluciones a medida, con el uso de estas
aplicaciones.
El Editor de Visual Basic contiene todas las herramientas de programación necesarias para
escribir código en Visual Basic y crear soluciones personalizadas.
Este Editor, es una ventana independiente de Microsoft Excel, pero tiene el mismo aspecto que
cualquier otra ventana de una aplicación Microsoft Office, y funciona igual para todas estas
aplicaciones. Cuando se cierre la aplicación, consecuentemente también se cerrará la ventana del
Editor de Visual Basic asociada.

5
2 OBJETIVOS
Lo que se pretende con este manual es presentar de una manera práctica, diferentes utilidades,
funciones, sentencias…, en el Editor de Visual Basic, y que con posterioridad serán útiles para el
desarrollo del ejercicio concreto de que consta la práctica.
Así, tomando ejemplos sencillos, se irán mostrando sucesivamente las diferentes utilidades a
realizar o utilizar. Como, cómo definir un botón de ejecución de programa, cómo dar valores a
celdas de la página de Microsoft Excel (mediante un programa definido en el Editor de Visual
Basic), cómo definir e introducir bucles y condiciones,…
3 DESARROLLO DE LOS EJEMPLOS
3.1 Creación de un “botón” que al apretarlo escriba HOLA.
Vamos a crear un botón, que al hacer clic sobre él, muestre en la celda A1 la expresión “HOLA”.
Para ello, en primer lugar, se instalará en el documento de Microsoft Excel, el Cuadro de
Controles (Menú Ver -> Barra de Herramientas -> Cuadro de Controles). En él se tomará el
icono representando un botón, desplegándose en la Hoja1, por ejemplo, del documento Excel.

6
Una vez hecho esto, se pulsará dos veces sobre dicho botón para accede así al Editor de Visual
Basic, con el que se realizará el pequeño programa requerido, tal y como sigue:
3.2 Acumulación de “HOLA”’s en la misma celda.
Ahora vamos a cambiar el programa anterior, cambiando una de las líneas de programa, para
hacer que cada vez que se hiciera un clic en el botón, se acumulara un nuevo “HOLA” (igual que
podría ser cualquier otro valor numérico o cadena de caracteres) al anterior. De esta forma, se
identificará el contenido de la primera celda como un contador, acumulándose, en cada clic sobre
el botón, una nueva cadena de texto en dicha celda contador.

7
3.3 Acumulación de texto en varias diagonales sucesivas.
Ahora, continuando el ejemplo anterior, vamos a definir una lista en varias diagonales, en las que
se mostrará el texto previamente definido (“BENVINGUT”). En la nueva versión del programa
anterior, se podrá observar cómo utilizar la función “condición” (representada por la función if) y el
bucle (mediante la aplicación de la función for, entre otras opciones).
Así, para hacer que la palabra “BENVINGUT” aparezca colocada siguiendo varias diagonales un
número determinado de veces. Se definen, inicialmente, dos variables contador como enteros
(función Dim… As Integer), y que representan además los índices de las celdas de la Hoja de
Cálculo (filas y columnas). Se define el texto en la primera celda. Seguidamente, se define la
condición de que la suma de los índices de celda (variables contadores) sean números pares, con
la utilización de la función mod (función resto, dividiendo el número requerido por dos, si el resto es
0, el número es par), así se tendrían definidas las diferentes diagonales. Esta “condición” estaría
colocada dentro de un doble bucle for (bucle anidado), en el que el valor de cada nueva celda de
la diagonal, tendrá el mismo valor que la anterior.

8
3.4 Programación de series de Fibonacci.
Programación de una serie numérica (en este caso la de Fibonacci), con el diagrama de barras
correspondiente. En este caso, vamos a desarrollar un programa que cumplirá las siguientes
características:
Utilización de una serie de Fibonacci de números aleatorios.
Se tomarán exclusivamente la cifra de unidades de los números de la serie anterior.
Se ordenarán estos valores del mayor al menor (para poder trabajar con ellos)
Se mostrará cómo realizar el diagrama de barras correspondiente a la serie anterior (cada barra
con el tamaño y el color correspondiente al número de la serie)
Y en él, se utilizarán además las funciones y opciones del Editor de Visual Basic / Microsoft
Office siguientes:
Cambio de nombre de un botón
Utilización y grabación de macros
Utilización de la función Call para llamar a una función definida en otro lugar.
Cambio de color
La serie de Fibonacci cumple que cada elemento de la serie es el resultado de la suma de los dos
precedentes, es decir: an+2 = an+1 + an
Así, se introducirá la fórmula anterior mediante la utilización de un bucle Do While…Loop (una de
las opciones posibles), previa definición de los dos valores iniciales. De esta forma, se van a definir
estos valores iniciales como aleatorios; para ello, se va a utilizar la función de generación de

9
números aleatorios rnd (tal y como se ve en el programa) para evitar números excesivamente
grandes o en coma flotante, tomando la variable como int, para evitar la aparición de decimales.
Además, se ve como se utiliza la función With, para definir la selección de color. Este código se ha
tomado del de la macro grabada a partir del cambio de color de una celda cualquiera (mediante la
utilización de la opción del menú Cambio de color)
Pero, ¿qué es una macro?, y, ¿cómo se graba una macro?
En primer lugar, se debería considerar que una macro es un pequeño programa ejecutable desde
la Hoja de Cálculo, y que realiza funciones repetitivas o comunes en la normal ejecución de la
actividad con la herramienta de cálculo. Así, y en el caso particular de grabar una macro para
poder cambiar de color una serie de celdas de la Hoja de Cálculo, se procede de la siguiente
forma. En el menú, se toma la opción Herramientas, y en ésta, Grabar macro. Acto seguido, se
realiza la acción a grabar en la macro, en este caso, cambiar de color el color de una columna de

10
la hoja de cálculo.
En el paso anterior se veía, en el código definido por la macro, la opción Range; en ésta se define
el rango de aplicabilidad de la acción seleccionada, en este caso el cambio de color.
Así, y una vez se tiene este código ya definido, se puede trabajar sobre él para conseguir que cada
celda de dicha columna tenga un color diferente al de los demás, pero elegido de forma aleatoria.
De esta forma se haría:
Se cambian los valores de color obtenidos de la macro, por valores aleatorios, mediante la función
random (rnd). Este código podría copiarse en el código de programa de un botón, para ver como
se cambiaría el color aleatoriamente, cada vez que se hiciera clic sobre el segundo botón.

11
Siguiendo el paso anterior, se ve claramente el efecto del cambio aleatorio de color al hacer clic
sobre el botón. Pero, ¿cómo le hemos cambiado el nombre al botón?
Para ello, se selecciona el modo diseño del cuadro de controles, una vez así, se haría un clic
con el botón derecho del ratón, sobre el botón al que se le quiere cambiar el nombre. Acto seguido,
se selecciona la opción propiedades.

12
Una vez mostradas las acciones anteriores, se va a pasar a definir el ejemplo concreto. Así, y
como ya habíamos dicho, vamos a definir el código de programa necesario para por un lado
generar la serie de Fibonacci de términos aleatorios, y por el otro, tomar de los valores de la serie
anterior exclusivamente las cifras correspondientes a las unidades.
Aquí pueden observarse dos bloques diferenciados de programa, cada uno para un botón diferente
(que se pueden ver en la transparencia siguiente). En el primero se crea una serie de Fibonacci, tal
y como ya se ha explicado, y acto seguido, se reduce cada uno de los números de dicha serie a su
cifra de unidades. Esta sería el resto obtenido de dividir dicho número de la serie original, por 10.

13
Esto se consigue con la utilización de la función mod. Todo ello dentro de su correspondiente
bucle para ir tomando todos los valores de la serie.
Se ve el resultado obtenido. Primero, haciendo clic en el primer botón, se obtendría la serie, y
seguidamente, haciendo clic sobre el segundo botón, se obtiene la cifra correspondiente a la cifra
de unidades de la serie de Fibonacci anterior.
Ahora, se deberá definir una función que tome una serie de números y los ordene de mayor a
menor. Esto se haría mediante la grabación de una macro llamada ordenar, en la que se graba la
acción de ordenar (función perteneciente al menú datos de la barra de menú) de mayor a menor
los valores de la primera columna, se obtiene el código de programa necesario para implementar
un tercer botón, por ejemplo (código que se ve abajo)

14
Serie numérica resultante de ordenar la serie de cifras unidad de la serie de Fibonacci (en la
transparencia anterior), y obtenida al hacer el clic sobre el tercer botón.
Este seria el último del conjunto de programas individuales (definidos mediante botones), con el se
conseguiría el objetivo buscado.
En la página siguiente se muestra el código correspondiente al diagrama de barras
correspondiente a los valores de la serie anterior.
Este código muestra, después de un corto programa para borrar el diagrama que pueda existir con
anterioridad (obtenido a partir del código de la macro grabada durante el borrado de un diagrama
con las dimensiones requeridas, dándole al color el valor “sin relleno”), como hacer el diagrama de
barras.
Primeramente, se define que el número de celdas a colorear (barras del diagrama), sea igual al
número de la serie en cada fila. Después, se define una condición para evitar colorear una celda de
la primera columna, cuando se tuviera un cero. Además, se define que el color corresponda al
número presente en cada celda, pero evitando el negro (correspondiente al 0), y el blanco
(correspondiente al 1)

15
Tras lo definido anteriormente, y haciendo clic sobre el cuarto botón, se obtendría el diagrama de
Gantt correspondiente a la serie previamente calculada, cambiando cada vez que se ejecutara todo
el proceso completo. Botón 1 -> Botón 2 -> Botón 3 -> Botón 4

16
Una vez realizado lo anterior, vamos a mostrar como emplear la función de Visual Basic, Call. Con
esta función lo que pretendemos, es poder hacer llamadas desde dentro de un programa a otro
que puede ser utilizado varias veces, y de esta forma, evitaríamos tener que definir el programa
correspondiente cada vez.
En este caso, vemos como una vez definida la serie de Fibonacci (de la misma forma que ya se ha
visto previamente en varias ocasiones, siguiendo el mismo ejemplo), se introducen tres llamadas a
otras tantas funciones independientes previamente definidas (como se ha visto en las
transparencias precedentes), mediante la función call.

17
Así, una vez calculada mediante el bucle Do While la serie de Fibonacci, se llamaría inicialmente a
la función Reducció. Esta, como ya se ha visto, tomaría el resultado anterior, “reduciéndolo” a la
cifra de unidades correspondiente a cada uno de los elementos de la serie anterior.
Se vería, de la misma forma que se veía en un punto anterior, como con la utilización de la función
resto mod, entre 10, conseguimos tomar o “reducir” la cifra correspondiente a las unidades de los
elementos de la serie de Fibonacci previamente calculada.
A continuación, se llama a la función Ordrenar, que realizará la ordenación de los elementos de la
serie numérica previamente calculada, de mayor a menor (siendo este código obtenido, como ya
se había explicado, a partir de la grabación de una macro utilizando la función ordenar del menú).
Tomando como rango de elementos a ordenar, la primera columna (A), desde la celda 1 a la 15, en
este caso.

18
La última llamada realizada desde la función principal, sería la realizada a la función encargada de
definir el diagrama de barras, en tamaño y en color, además de definir otra subfunción que se
encargaría de borrar el diagrama anterior, cada vez que se hiciera clic en el botón para obtener
una nueva serie y un nuevo diagrama de barras.
Como ya se ha explicado antes, se definiría una función encargada de tomar el valor de cada uno
de los elementos de la serie en la columna A, luego, y mientras ésta fuera diferente de 0, se
entraría en el bucle, en el se definiría el tamaño y el color de la barra en función del número de la
serie en cada posición.

19
4 NUEVOS EJEMPLOS: OBTENCIÓN DE NÚMEROS PRIMOS
Una vez visto todo lo realizado previamente, se va a pasar a describir estos nuevos ejemplos. En
ellos, vamos a mostrar cómo hacer dos programas, el primero para saber si un número es primo, y
el segundo, para obtener listas de números primos.
Para esto, en el primer programa, mostraremos que funciones se deben utilizar para declarar
menús de trabajo, y cómo trabajar con ellas, además de cómo llamar a otras funciones sin utilizar
la función que se había visto previamente para este propósito (función call). En el segundo
programa, veremos de que forma se podrán declarar listas de números primos, en un número
indicado previamente por nosotros mismos.
Vamos a ver ahora que es lo que deberemos hacer para poder declarar y utilizar menús de trabajo,
aplicándolo de manera práctica para poder declarar si un número dado al programa es primo o no.
Como se puede ver en la pantalla anterior del Editor de Visual Basic, el programa previamente
descrito se ha dividido en dos partes. En la parte que vemos aquí (declarada a partir del botón)
mediante la función InputBox, se declarará un menú que se verá en la página de la Hoja de
Cálculo del Microsoft Excel, presentando el texto “DIME UN NUMERO”, identificado con la
variable numero definida como string. Esta cadena (que recibe el número que se introduciría
desde teclado) mediante la función Val, registrará el valor numérico deseado que se pasaría a la
otra función (la que calcularía si dicho número es primo o no).
Una vez hecho esto, dentro de una condición if, y utilizando la función MsgBox (esta función, al
igual que la previamente definida InputBox, tiene como misión el mostrar en pantalla un mensaje
en forma de menú de Windows, pero ahora presentando un resultado determinado y definido
desde programa) se mostraría un mensaje sobre la Hoja de Cálculo, diciendo si el número
previamente introducido es primo o no.

20
Tal como se ha visto previamente, tomando el valor de la variable valor se llama a la función
esprimo (x), donde la variable x equivale al valor enviado valor. Así, definiendo esta función como
Boolean, la cual daría como resultado una respuesta verdadera o falsa (true o false), se entraría
en un bucle Do While (que utiliza como condiciones que el número introducido es inicialmente
primo, para entrar en el bucle, y que el último número por el que se dividirá el introducido, para
comprobar si es primo o no, deberá ser menor o igual a la raíz cuadrada del introducido). En este
bucle, dentro se pondría una condición if, en la que indica que para que un número no sea primo,
el resto de dividirlo por otro menor que él debe ser cero.
Como se puede comprobar, al trabajar con variables Booleanas, se devuelve o recibe un True o un
False, que en función de la definición de la condición if del siguiente programa (el definido por el
botón), se dará como resultado lo correspondiente al si (if) o al sino (else).
Ahora se ve como quedaría en la pantalla de la hoja de Excel lo expuesto previamente. Se ve, en
la página siguiente, como al hacer clic sobre el botón, aparecería el menú pidiendo un número, y
acto seguido se diría si éste es primo o no.

21
Ahora se van a definir los dos programas necesarios para obtener un número determinado de
números primos, siguiendo el mismo esquema previamente definido. Primero se ve como se define
con la función InputBox, un nuevo menú en el que se pide el número de números primos deseado.
Además, se incluye una línea de código para poder borrar cada vez que se haga clic sobre el botón
(para que salga un nuevo menú) el listado previo de números primos.

22
Esta llamada mediante la función Call, se hace a una macro grabada mientras se seleccionaba
toda la columna A y se borraba su contenido, como se puede ver.
Aquí se puede observar el segundo programa, llamado por el anterior, y pasándole el número de
números primos a generar (tamaño de la lista) empezando por el 2.
Aquí se ve como una vez se recibe la información de la otra función, se definen dos contadores
para controlar los dos bucles. El primero controlaría la acumulación de números primos hasta la
cantidad indicada (x), y a continuación, al igual que antes, definiendo la variable primo como
booleana, se entra al segundo bucle (encargado del cálculo de los primos) suponiendo que la
primera entrada es un número primo (2 es primo) y que además el número por el que se divida
cada número para comprobar que sea primo, deberá ser inferior a la raíz cuadrada de dicho
número.
Finalmente, con una condición, se irían acumulando en la columna los diferentes números primos
encontrados hasta llegar a la cantidad deseada.

23
Aquí se verá ahora el resultado deseado.

24
5 CONCLUSIONES
Una vez presentados y explicados los ejemplos anteriores, esperamos que sirvan de ayuda real a
la realización de los problemas concretos de los que consta esta práctica. También, y porque no,
esperamos que este pequeño manual pueda llegar a servir como herramienta de inicio de otros
posibles futuros trabajos encaminados en esta materia.
Esperamos, de la misma forma, que la exposición haya sido suficientemente sencilla y clarificadora
de lo que inicialmente se pretendía y se presentaba como objetivos.

25
6 ANEXO (Sentencias y funciones habituales)
En estos anexos al manual de prácticas de la asignatura Programación y Control de Producción, se
incluyen gran parte de las preguntas y dudas que han ido surgiendo durante la realización de estas
prácticas, así como las aportaciones de diversos alumnos, y diversas sentencias, procedimientos y
soluciones recopiladas con anterioridad.
6.1 Problemas con variables (¿porqué no se dejan definir las variables?)
6.1.1 Option Explicit:
Con esta aplicación, se avisaría en caso de no tener definida una variable, o en caso de utilizar
datos de páginas diferentes a la activa.
6.1.2 Dim…. As [Integer, Double, String, Boolean,…]:
Con esto queda la variable perfectamente definida, si no se pusiera no ocurriría posiblemente
nada, salvo que se utilizaría una mayor cantidad de memoria de la necesaria, al definirse
instantáneamente en el momento de utilizarla como de tipo Value.
6.2 Condición If…, etc. (diversas posibilidades):
If … Then … / If … Then … Else … / If … Then … ElseIf … Then … ¿Cuando poner el EndIf?,
¿cuando no?, ¿cuando se deberían usar los: (dos puntos)?
Las instrucciones If...Then...Else se pueden presentar en varios formatos, con unas características
determinadas. Normalmente, se presentan anidadas en tantos niveles como sea necesario. Esto,
sin embargo, puede hacer menos legible el código, por lo que es aconsejable utilizar una
instrucción Select Case en vez de recurrir a múltiples niveles de instrucciones If...Then...Else
anidadas (únicamente en caso de que el excesivo número de anidamientos pudiera dar problemas
en la legibilidad del programa, o errores en la depuración de éste).
Así, si realizamos la condición en varias líneas de código, será necesario cerrar el anidamiento con
un End If; instrucción que no se usaría en caso de realizar la condición en un sola línea (If Then,
condición cierta).
6.2.1 Select Case
En este caso, esta instrucción será más útil que la Condición If..., cuando se ejecute uno de varios
grupos de instrucciones, dependiendo del valor de una expresión condición a cumplir.
6.2.2 Ejemplos de utilización
Ahora se presentan una serie de ejemplos prácticos, con los que aclarar y facilitar el uso de las
condiciones If en la programación en Visual Basic.
Básicamente, en el ejemplo siguiente se observa, como se deberían de utilizar los anidamientos
consecutivos de If… Then, ElseIf… Then y Else. Se observa aquí, cómo se utilizaría el End If,
siempre en el caso del anidamiento de condiciones, y no en el caso de escribir la condición If
(general) en una sola línea.

26
If b > 0 And c > 0 Then
Hoja1.Cells(i, 8) = a
Else
If b > 0 And c < 0 Then
Hoja1.Cells(i, 8) = a + 360
Else
End If
End If
6.3 Bucles: For... To ... Next / Do While... Loop / Do Loop… Until (Utilización
y posibles problemas):
Las estructuras de bucle también son conocidas por el nombre de estructuras de control.
Permitiendo la repetición de determinadas acciones.
Uno de los errores más comunes que se producen en la utilización de bucles de este tipo, es la no
inicialización de las variables utilizadas como contadores de iteraciones. Así que habrá de prestar
una atención especial en este punto. Una opción para evitar este posible error, sería la definición al
principio del programa, como primera línea de código de éste, el ya comentado Option Explicit.
A continuación se presentan las diferentes opciones que permite el Visual Basic para definir
bucles, es decir, repetición y/o acumulación de acciones determinadas, entre unos límites
definidos. La no definición de estos límites concretos, sería otro error común y más problemático, al
producirse la entrada en bucles infinitos, que bloquean el módulo de cálculo de nuestro ordenador.
6.3.1 Do... Loop Until
Esta estructura de control se puede usar para ejecutar un bloque de instrucciones un número
indefinido de veces. Las instrucciones se repiten hasta que una condición llegue a ser True.
Un ejemplo podría ser el siguiente:
Sub ComPrimeroUntil ()
contador = 0
miNum = 20
Do Until miNum = 10
miNum = miNum - 1
contador = contador + 1
Loop
MsgBox "El bucle se ha repetido " & contador & " veces."
End Sub
6.3.2 Do While... Loop
Siguiendo lo explicado en el punto inicial, otro error común sería el no introducir la línea de
acumulación del contador (por ejemplo: i=i+1), con lo que el bucle entraría una vez en el cálculo,
quedándose colgado en este punto.
En este caso, las instrucciones se repiten mientras una condición sea True (al contrario que
con el Do… Loop Until.

27
Este tipo de bucle se utilizaría mayormente en caso de deber cumplirse una condición marcada por
el While. Así, en este tipo de bucles, se puede dar el caso de que no se entre desde el primer
momento, debido al no cumplimiento de esta condición.
Ejemplo de utilización de esta función (hay que fijarse en la inicialización previa de la variable
contador i):
i = 5
Do While Hoja1.Cells(i, 2) <> ""
b = Hoja1.Cells(i, 5)
c = Hoja1.Cells(i, 6)
d = (b ^ 2) + (c ^ 2)
a = Sqr(d)
i = i + 1
Loop
6.3.3 For... To... Next
Mediante la palabra clave Step, se puede aumentar o disminuir la variable contador en el valor que
se desee (For j = 2 To 10 Step 2).
Se pueden anidar bucles For...Next, colocando un bucle For...Next dentro de otro. Para ello, hay
que proporcionar a cada bucle un nombre de variable único como su contador. La siguiente
construcción es correcta:
For i = 1 To 10
For j = 1 To 10
...
Next j
Next i
Si omite un contador en una instrucción Next, la ejecución continúa como si se hubiera incluido. Se
produce un error si se encuentra una instrucción Next antes de su instrucción For correspondiente.
Al contrario de lo que se comentaba para los bucles Do … While, los bucles For …, se ejecutarán
hasta agotar el intervalo de acumulación del contador, es decir, siempre se entraría en el bucle, y
no se pararía de ejecutar hasta no terminar el contador.
Un ejemplo concreto podría ser el siguiente:
For i = 1 To 15
x = Hoja1.Cells(i, 1)
If x <> 0 Then
For j = 2 To x + 1
Hoja1.Cells(i, j).Select
With Selection.Interior
.ColorIndex = x + 2
.Pattern = xlSolid
End With
Next j
End If
Next i
Donde se ve como se deben anidar varios bucles consecutivos, y como se introducen funciones
condicionales como la If, y otras estructuras de control, como el With, que pasamos a comentar a
continuación.

28
6.3.4 With
Estructura de control, que permite ejecutar una serie de instrucciones sin necesidad de
recalificar un objeto, es decir, sobre el mismo objeto cada vez; entendiendo por objeto toda
combinación de código y datos que se pueden tratar como una unidad, por ejemplo, un
control, un formulario o un componente de una aplicación. Cada objeto se define por una
clase.
Así, un ejemplo de utilización de la función With, sería el siguiente, donde ha sido anidada dentro
de la estructura de un bucle For, y mediante la opción Select (utilizada para trabajar en entornos
gráficos), se adjudicaría a cada celda de la columna identificada por el contador j, un color y un
tipo de letra determinado.
For j = 2 To x + 1
Hoja1.Cells(i, j).Select
With Selection.Interior
.ColorIndex = x + 2
.Pattern = xlSolid
End With
Next j
6.4 Coordenadas polares: ¿Cómo pasar de coordenadas cartesianas (x, y) a
polares (r, )?:
6.4.1 Radio (calculado a partir de las coordenadas x e y de los puntos en cuestión) r =
RaizCuadrada(x^2+y^2):
Para este caso, se definiría la estructura de control siguiente (o bucle), definida mediante la
utilización de la función DoWhile… Loop. En ella se definirían una serie de variables que
acumularían los valores previamente definidos en celdas de la Hoja de Cálculo, para realizar la
operación de calcular la raíz cuadrada de la suma de los cuadrados de los catetos opuesto y
contiguo del triángulo definitorio del ángulo a calcular. Posteriormente, se le daría dicho valor a otra
variable, que estaría encargada de ir dándole dichos valores a las celdas correspondientes de la
Hoja de cálculo anterior.
i = 5
d = (b ^ 2) + (c ^ 2)
a = Sqr(d)
i = i + 1
Loop

29
6.4.2 Angulo (calculado a partir de las coordenadas x e y de los puntos en cuestión)
= Arctan (x/y):
Se considera el mismo proceso anterior, pero en este caso, y para poder presentar los
valores del ángulo correspondiente en grados entre 0º y 360º, puesto que Excel sólo los
presenta en valores entre 90º y -90º, se utiliza la estructura condicional que se puede
observar en el programa.
i = 5
d = c/b
a = (180 / PI) * Atn(d)
If b > 0 And c > 0 Then
Else
If b > 0 And c < 0 Then
Else
End If
End If
i = i + 1
Loop
Hay que darse cuenta, que se utiliza la condición anidada If ... Then ... Else ... End If, porque
Excel, da valores de ángulo en el plano de las X positivas (1º y 4º cuadrantes), por lo que para
poder tener una visión clara de la posición de cada punto en función de su ángulo (tenerlo marcado
de 0º a 360º), se debería sumar 180 a los valores de ángulo obtenidos de los puntos situados en el
2º y 3º cuadrantes, y 360 a aquellos situados en el 4º cuadrante.
6.5 Cambiar criterios de ordenación:
Aquí se puede ver cómo se podrían definir criterios de ordenación (ascendente o descendente), en
función de la necesidad del programador, y respecto a una columna o rango predefinida.
Application.AddCustomList ListArray:=Range("J2:J21")
numlista = Application.CustomListCount
Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=numlista + 1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Application.DeleteCustomList ListNum:=numlista

30
6.6 Menús…
Se definen menús específicos tomándolos como variables definidas como barras de comandos de
control, o de otros tipos, y dándoles a su vez los nombres correspondientes a estos menús de
trabajo.
Dim MenuAyuda As CommandBarControl
Dim MenuNuevo As CommandBarPopup
Dim Plan As CommandBarControl
Call BorrarMenu
Set MenuAyuda = CommandBars(1).FindControl(ID:=30010)
If MenuAyuda Is Nothing Then
Set MenuNuevo = CommandBars(1).Controls.Add(Type:=msoControlPopup,
Temporary:=True)
Else
Set MenuNuevo = CommandBars(1).Controls.Add(Type:=msoControlPopup,
Before:=MenuAyuda.Index, Temporary:=True)
End If
MenuNuevo.Caption = "Plan de Recuento"
Set Plan = MenuNuevo.Controls.Add(Type:=msoControlButton)
Plan.Caption = "Plan de Recuento"
Plan.OnAction = "CalculaPlan"
6.7 Para Ordenar
Básicamente, se busca lo mismo que cuando se hablaba del cambio de criterios de ordenación.
Range ("D18:F23").Select
Selection.Sort Key1:=Range("D19"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
6.8 Quitar el signo de los números convertidos en string:
Estas líneas de código sirven para poder tomar números positivos siempre, aunque se introdujeran
negativos (por error o cálculo), a través de un menú, cálculo,… El resultado sería semejante a la
utilización de la función del Editor de Visual Basic, Abs (numero) (que devuelve el valor absoluto
de todo número introducido entre paréntesis.
nombre = Str(i)
nombre = Right(nombre, Len(nombre) - 1)
6.9 Cuando queremos poner referencias relativas a variables en la fórmula:
Referencias que corresponderían con los valores de la celda correspondiente de la Hoja de Cálculo
con la que se está trabajando.
DESREF (C11; 0; SI (C6>$C$3;-$C$3;-C6); 1; 1)

31
6.10 Temporizador:
Función encargada de dar un intervalo de tiempo, previamente a la obtención de un resultado, o
por otra razón necesitada por el programador.
Dim ppio As Single
ppio = Timer
Do While ppio + 10 > Timer
Loop
6.11 Funciones:
Definición de funciones (con la forma que se requiera, sea Integer para entero, o de cualquier otro
tipo), dentro del programa, en el Editor de Visual Basic, con la intención de tenerlas definidas a
parte de la programación del botón en la Hoja de Cálculo, o para una rellamada a posteriori, por
ejemplo con la función Call.
function fact(x) as integer
end function
6.12 Zoom de la ventana:
Zoom, agrandará o empequeñecerá la presentación del formulario preseleccionado, en la ventana
activa de trabajo.
ActiveWindow.Zoom = 25
6.13 Para cancelar el botón:
Bastaría con introducir la orden siguiente:
End
6.14 Procedimiento que empieza con un formulario:
Sub Prevision_Userform()
CommandButton1.Caption = "Previsión"
End Sub
6.15 Otro modo de cambiar el color:
Esta es una de las opciones válidas para el cambio de color, en una celda, o en cualquier otro
objeto seleccionado. Hay que considerar, que en este caso se realizaría mediante una graduación
de los tres colores básicos disponibles (rojo, verde y azul), aunque también podría hacerse
mediante valores numéricos globales, representando las mezclas correspondientes de estos
colores básicos.
Label10.BackColor = RGB (242, 148, 150)
6.16 Para abrir un formulario:
Línea de código que mostraría / abriría un formulario, que en este caso ha sido llamado Prevision.
frmPrevision.show

32
6.17 Para ocultar un formulario:
frmPrevision.Hide
Ambas sentencias (la 7.16 y la 7.17), sencillas como se puede comprobar, se refieren a la apertura
de formularios referentes a objetos de terminados. También estarían aquí relacionados los
UserForm.
6.18 Procedimiento que empieza automáticamente:
Este procedimiento, abriría…
Sub auto_open ()
6.19 Borrar Menu:
En este caso se borraría un menú previamente creado (ver el punto previo 7.6, por ejemplo), en
este caso, el menú “Nuevo Análisis”.
On Error Resume Next
CommandBars (1).Controls ("Nuevo Análisis").Delete
6.20 Crear Rango:
Aquí se crearía un rango, sin tener que seleccionarlo previamente en la página de trabajo de la
Hoja de Cálculo, desde la celda B5.
rango = Str (nuevoprod - 1)
rango = "B5:D" + Right(rango, Len(rango) - 1)
6.21 Comparar fechas:
xxxxxxxx……
(fecha = "1 / 1 / 1")
6.22 Entero y Logaritmo:
Con la sintaxis siguiente, se transforman números reales logarítmicos (obtenidos mediante la
función logaritmo Log), en un número entero; para utilizarlo, por ejemplo, en el caso de disponer
de poca memoria para una variable, o por necesidad de trabajar con números pequeños.
aux = Int(Log(X) / Log(2))
Esta transformación (no sería una transformación en sí mismo, sino que se tomaría simplemente la
parte entera del número real) de un número real en otro entero, se ha visto también utilizada en
este manual en el caso de trabajar con series de números aleatorios, para obtener así números sin
la coma flotante, y por consiguiente, más manejables.

33
6.23 Poner bordes:
Aquí, se puede observar otra utilización de la función With como estructura de control, para a
través de la función Select, darle un formato gráfico determinado al rango de la Hoja de Cálculo
con la que se está trabajando. En este caso, el formato gráfico buscado, sería el de un borde a un
texto o zona de texto, con un tipo de línea, grosor y color determinados.
With Selection.Borders (xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
6.24 Pregunta un número:
Otra nueva utilización de los cuadros de mensaje para captación de datos (o menús) del tipo
Inputbox, para, en este caso capturar una cantidad determinada con la que el programa en
cuestión realizará los cálculos deseados.
string=Inbutbox ("dime un numero")
6.25 Ventana de mensajes:
Lo mismo que en el punto anterior, pero en este caso, mostrando un mensaje determinado en la
Hoja de Cálculo de trabajo.
Msgbox ("Hola")
6.26 Formula con referencias relativas:
xxxxxxx…….
activecell.formular1c1="R [-1] C [-1]"
6.27 Se mueve a la siguiente celda a la derecha:
Sentencia explícita, para seleccionar una celda contigua a la tomada previamente en la Hoja de
Cálculo de trabajo, como celda activa donde tomar o mostrar datos.
activecell.next.select
6.28 Pegado transpuesto:
Línea de código resultante de la grabación de la macro correspondiente a la selección de la opción
de pegado especial transpuesto, para poder copiar una fila en una columna o viceversa. Opción
presente en la barra de menú de la Hoja de Cálculo.
Selection.Pastespecial transpose:=true

34
6.29 Copiar un rango de una página a otra:
Con esta opción se copiarán los datos presentes en el rango seleccionado en la página de trabajo
(en este caso la Hoja1), en el rango seleccionado correspondiente en la página siguiente de la
Hoja de Cálculo, o Hoja2.
hoja1.Range(rango).copy destination:=hoja2.range(rango)
6.30 Definición de Rango Automático:
Este método, tomaría la celda activa de la Hoja de Cálculo de trabajo, en realidad, se le daría la
celda activa deseada, se le daría así mismo, la celda activa final del rango deseado de trabajo, y
finalmente se le indicaría, si dicha selección del rango se debe realizar hacia arriba o hacia abajo
(como es este el caso).
(ActiveCell, Activecell.end (xldown))
6.31 Cálculo de Máximo:
Aplicación del Editor de Visual Basic, mediante la que se calcularía directamente el valor máximo
del rango de la Hoja de Cálculo de trabajo previamente seleccionado.
Application.Max (Rango)
6.32 Formato interior de Celda:
Con este código de programa, se le daría a la celda activa, o seleccionada (o al rango activo o
seleccionado), en su interior, unos valores determinados de grado de color, y de formato de texto.
Selection.Interior.ColorIndex=34
Selection.Interior.Pattern=xlsolid
6.33 Enteros aleatorios entre límites:
Para producir enteros aleatorios en un intervalo dado, usa esta fórmula:
Int ((Límite_superior - límite_inferior + 1) * Rnd + límite_inferior)
Aquí, límite_superior es el número mayor del intervalo y límite_inferior es el número menor del
intervalo.
Nota Para repetir secuencias de números aleatorios, llame a la función Rnd con un argumento
negativo antes de utilizar la función Randomize con un argumento numérico. Al utilizar la
instrucción Randomize con el mismo valor de número no se repite la secuencia anterior.

35
6.34 Suprimir los cuadraditos en un texto importado:
Se ha importado en la columna A un texto desde otro programa pero todo aparece lleno de
pequeños cuadraditos que se deberían suprimir.
Para ello, se puede utilizar esta macro para conocer los códigos de los caracteres que los generan.
Sub acode()
For i = 1 To 255
Range("a" & i) = Chr(i)
Next
End Sub
Para reemplazar estos caracteres por un espacio, se puede utilizar esta otra macro:
Sub Macro1Cuadrados()
Dim c
For Each c In Range("A1:" & _
Range("A1").SpecialCells(xlCellTypeLastCell).Address)
For i = 1 To 31
Application.StatusBar = c.Address & " " & i
On Error Resume Next
Range(c.Address) = Application.Substitute(c, Chr(i), " ")
'Err.Clear
'Resume
Next
Range(c.Address) = Application.Substitute(c, Chr(127), " ")
Next
Application.StatusBar = False
End Sub

36
6.35 Seleccionar los caracteres en una celda Excel:
Cómo elegir por orden alfabético creciente o decreciente una celda Excel que contenga una
cadena de caracteres?
Para esto, se puede utilizar esta función de T. Shuttleworth con algunas modificaciones:
Option Compare Text
Function SortString(ByVal iRange, Optional Creciente As Boolean = True)
Dim i%, j%, sTemp$
For j = 1 To Len(iRange) - 1
For i = 1 To Len(iRange) - 1
If Mid(iRange, i, 1) > Mid(iRange, i + 1, 1) Then
sTemp = Mid(iRange, i, 1)
Mid(iRange, i, 1) = Mid(iRange, i + 1, 1)
Mid(iRange, i + 1, 1) = sTemp
End If
Next j
Next i
If Creciente = False Then
For i = Len(iRange) To 1 Step -1
SortString = SortString & Mid(iRange, i, 1)
Next
Exit Function
End If
SortString = iRange
End Function
También se puede utilizar esta solución mediante fórmula MATRICIAL utilizando la
XLL (morefun.xll) (se puede cargar en: http://longre.free.fr)
{=MCONCAT(TRIV(STXT(A1;SIGUIENTE(NBCAR(A1);1);1);;1))}

37
6.36 Insertar automáticamente retornos de carro en un texto:
Al introducir texto mediante una macro en una celda, se pretende que este texto sea cortado cada
100 caracteres, pero sin cortar las palabras.
El texto en cuestión podría ser truncado con la macro siguiente:
Function Corte(TxTronque As String, LgMax As Integer) As String
Dim i As Integer
Dim p As Integer
Dim FinLigne As Long
p = 1
i = 0
Do While i < Len(TxCorte)
FinLigne = InStr(p, TxCorte, Chr(10))
If FinLigne > LgMax Then
i = i + LgMax
Else: i = FinLigne + LgMax
End If
Do While Mid(TxCorte, i, 1) <> " "
i = i - 1
If i = 0 Then
If FinLigne = 0 Then i = p + LgMax: Exit Do
i = FinLigne + LgMax: Exit Do
End If
Loop
Mid(TxCorte, i, 1) = vbCr
i = i + LgMax
p = i + 1
Loop
Corte = TxCorte
End Function
6.37 Comodines de búsqueda:
Existen comodines en Excel para reemplazar los caracteres en una búsqueda?
El operador * puede reemplazar un grupo de caracteres, y el comodín ? uno solo.
==> La utilización en la función búsqueda de * y de ? puede causar desórdenes importantes en los
ficheros. Así, si se busca por ejemplo la palabra "completándola" y se quieren recuperar todas las
posibilidades de escritura con los acentos o no, se utilizarían los comodines * y ? de la siguiente
forma "complet?ndola" o "complet*a"
El método siguiente reemplaza el contenido de todas las celdas seleccionadas por la palabra de
reemplazamiento:
- seleccionar una columna de textos
- reemplazar todas las palabras "ejemplo" por "*" ===> OK
- después, reemplazar todos los "*" por la palabra "ejemplo" ===> borrando todas las celdas
conteniendo el * y reemplazándolo por la palabra "ejemplo" solo == > DESASTRE
Se debe señalar que la forma más rápida para vaciar una hoja es reemplazar * par "" (se puede
probar aunque sin grabarlo)

38
6.38 Extraer el código postal de una dirección:
Pongamos por ejemplo que se dispone de las siguientes direcciones postales francesas
presentadas de la forma siguiente:
SA DUDU 85130 LA VERRIE
DUPONT 49300 ANGERS
De qué forma se podrían extraer los CP?
Mediante un pequeño cálculo matricial. Atención, las fórmulas se deben presentar sin retorno a la
línea...
{=1*STXT(A1;EQUIV(0;(ESERROR(STXT(A1;LINEA(INDIRECT("1:"&NBCAR(A1)));1)*1)*1);0);NB
CAR(A1)-SUMA((ESERROR(STXT(A1;LINEA(INDIRECT("1:"&NBCAR(A1)));1)*1)*1)))}
Y esta es la explicación:
Preámbulo: Esta fórmula es una fórmula genérica para extraer un, y sólo un, valor numérico
contenido en una cadena de caracteres y no es específica a la extracción de un código postal.
Objetivo del juego: con la función STXT, extraer de una cadena a partir de una posición P, un
número N de caracteres : =STXT(A1;P;N)
La función STXT reenviando texto, en = 1*STXT(A1;P;N) el 1*. sirve simplemente para transformar
el resultado en numérico y podría ser remplazado (más largo) por =CNUM(STXT(A1;P;N)
Con respecto a la cuestión sobre el Código Postal, la fórmula podría resumirse en:
= 1*STXT(A1;P;5)
=1*STXT(A1;EQUIV(0;(ESERROR(STXT(A1;LINEA(INDIRECT("1:"&NBCAR(A1)));1)*1)*
1);0);5)
Para terminar (?) con el CP se podría, para extraerlo de una cadena como la siguiente:
12,Av zaza 75000 PARIS ou 125 ter..etc.
Hacer llevar la extracción sobre una parte (derecha) de la cadena y no sobre la cadena entera
remplazando, en la fórmula, A1 (cadena completa) por =DERECHA (A1; NBCAR (A1)-5)
El -5 ha sido fijado arbitrariamente: se puede suponer, sin grandes riesgos, que todo aquello
concerniente al número de la calle, está delante del 5º carácter. Lo que podría dar:
=1*STXT(DERECHA(A1;NBCAR(A1)-5); EQUIV(0;(ESERROR(STXT(DERECHA(A1;NBCAR(A1)-
5); LINEA(INDIRECT("1:"&NBCAR(A1)));1)*1)*1);0);5)
Volviendo a la fórmula genérica tomando como ejemplo en A1
:
DUPONT Marcel 75000 PARIS
[A] ** Obtención de P en la fórmula =1*STXT(A1;P;N)
P ha sido obtenido mediante:
=EQUIV (0;(ESERROR(STXT(A1;LINEA(INDIRECT("1:"&NBCAR(A1)));1)*1)*1);0)
que reenvía 15 (posición de la 1ª cifra (el 7))
[A-1] ** zzz del EQUIV :
=EQUIV (valor buscado ; matriz de búsqueda ; tipo de búsqueda. La matriz de búsqueda (2°
argumento) es obtenido par:
(ESERROR(STXT(A1;LINEA(INDIRECT("1:"&NBCAR(A1)));1)*1)*1)
que reenvía una matriz de constantes :
{1;1;1;1;1;1;1;1;1;1;1;1;1;1;0;0;0;0;0;1;1;1;1;1;1}
=EQUIV(0;{1;1;1;1;1;1;1;1;1;1;1;1;1;1;0;0;0;0;0;1;1;1;1;1;1};0)
reenvía entonces 15 ya que el 1° cero(valor buscado) en la matriz de constantes es en 15ª posición
(búsqueda exacta por el 3° argumento = 0)
[A-1-1] ** zzz del (ESERROR(STXT(...[A-1-1-1] ** zzz del LINEA(INDIRECT("1:"&NBCAR(A1)))

39
Esto permite, en internet, de proporcionar una tabla de constantes representando los números de 1
a NBCAR(A1)
Resultado :
{1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16;17;18;19;20;21;22;23;24;25}
[A-1-1-2] ** zzz del STXT(A1;LINEA(INDIRECT(.STXT(A1;
{1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16;17;18;19;20;21;22;23;24;25};1)
El STXT reenvía (en forma matricial) 1 carácter (3° argumento = 1) partiendo sucesivamente de la
posición 1, a la 2,… hasta la 25 de la cadena A1
Resultado :{"D";"U";"P";"O";"N";"T";" ";"M";"a";"r";"c";"e";"l";" ";"7";"5";"0";"0";"0";" ";"P";"A";"R";"I";"S"}
Estamos así en:
(ESERROR({"D";"U";"P";"O";"N";"T";" ";"M";"a";"r";"c";"e";"l";" ";"7";"5";"0";"0";"0";"
";"P";"A";"R";"I";"S"}*1)*1) [A-1-1-3] ** zzz de este resultado {"D";"U";"P";"O";"N";"T"; "
";"M";"a";"r";"c";"e";"l";" ";"7";"5";"0";"0";"0";" ";"P";"A";"R";"I";"S"}*1
Multiplicando cada elemento de la matriz por 1, los caracteres no numéricos va a reenviar un valor
de error (#VALOR!) y se obtendría la matriz:
{#VALOR!;#VALOR!;#VALOR!;#VALOR!;#VALOR!;#VALOR!;#VALOR!;#VALOR!;
#VALOR!;#VALOR!;#VALOR!;#VALOR!;#VALOR!;#VALOR!;7;5;0;0;0;#VALOR!;#VALOR!;#VALOR
!;#VALOR!;#VALOR!;#VALOR!}
Si se comprueba cada elemento de la matriz con ESERROR:
ESERROR({#VALOR!;#VALOR!;#VALOR!;#VALOR!;#VALOR!;#VALOR!;#VALOR!;#V
ALOR!;#VALOR!;#VALOR!;#VALOR!;#VALOR!;#VALOR!;#VALOR!;7;5;0;0;0;#VALOR!;#VALOR!;#
VALOR!;#VALOR!;#VALOR!;#VALOR!})
se obtiene:
{VERDADERO;VERDADERO;VERDADERO;VERDADERO;VERDADERO;VERDADERO;VERDAD
ERO;VERDADERO;VERDADERO;VERDADERO;VERDADERO;VERDADERO;VERDADERO;VER
DADERO;FALSO;
FALSO;FALSO;FALSO;FALSO;VERDADERO;VERDADERO;VERDADERO;VERDADERO;VERDA
DERO;VERDADERO}
Y si se multiplica por 1 este resultado, la matriz se transformará en matriz de 1 y 0 (recuerda
VERDADERO = 1 y FALSO = 0)
Así el resultado utilizado como 2° argumento del EQUIV:
{1;1;1;1;1;1;1;1;1;1;1;1;1;1;0;0;0;0;0;1;1;1;1;1;1}
[B] ** Obtención de N en la fórmula =1*STXT(A1;P;N)
NBCAR(A1)+1-SUMA( (ESERROR(STXT(A1;LINEA(INDIRECT("1:"&NBCAR(A1))); 1)*1)*1))
Ver el capítulo precedente para la parte
(ESERROR(STXT(A1;LINEA(INDIRECT("1:"&NBCAR(A1)));1)*1)*1)
Se tiene entonces:
N = NBCAR(A1)-SOMME({1;1;1;1;1;1;1;1;1;1;1;1;1;1;0;0;0;0;0;1;1;1;1;1;1})
Resultado: =25-20
La suma equivale al número de caracteres no numéricos y así, la diferencia entre el nº total de
caracteres de la cadena (NBCAR(A1)) y la suma, dado el nº de caracteres a extraer (3° argumento
de la función STXT)
En el paso se comprende porque la fórmula no es válida si, en la cadena, hay varios "sectores"
numéricos !
Bonus:
Mientras que el valor numérico incluido en la cadena, pueda ser un valor decimal
Ej.: “Zaza ha comido 24,56 croquetas”
Si hay coherencia entre el separador decimal del sistema y el presente en la cadena, es suficiente
con añadir +1 al NBCAR presente en el 3° argumento de STXT:
{=1*(STXT(A1;EQUIV(0;(ESERROR(STXT(A1;LINEA(INDIRECT("1:"&NBCAR(A1)));1)*1
)*1);0);NBCAR(A1)+1-SUMA((ESERROR(STXT(A1;LINEA(INDIRECT("1:"&NBCAR(A1)))
;1)*1)*1))))}

40
Si el separador decimal del sistema es <> del presente en la cadena, utilizar SUBSTITUE y añadir
también +1 al NBCAR presente en el 3° argumento de STXT:
Para un separador decimal del sistema = el punto y coma en la cadena:
{=1*(STXT(SUBSTITUE(A1;",";".");EQUIV(0;(ESERROR(STXT(A1;LINEA(INDIRECT("1
:"&NBCAR (A1)));1)*1)*1);0); NBCAR (A1)+1-SUMA ((ESERROR (STXT (A1; LINEA (INDIRE
CT("1:"&NBCAR(A1)));1)*1)*1))))}
6.39 Reemplazar un carácter en una variable:
Cómo reemplazar en una variable un punto y coma por una coma?
Por ejemplo, si en A1 hay: "B1;B2;B3"
y en el código, MiVariable=range("A1").value, cómo reemplazarla en MiVariable sin tocar la celda
A1?
Se tiene que pasar por una macro:
Sub reemplazo()
Dim MiVariable As String
MiVariable = "fdfdfd;fdf;df"
MiVariable = Replace(ZoneCach, ";", ",")
MsgBox MiVariable
End Sub
Atención esto no funciona con Excel 97. En ese caso se debe utilizar
MiVariable=Application.Substitute(MiVariable, ";", ",")
6.40 Reemplazo complejo conservando los 0:
En una columna en formato texto cuando se aplica la función reemplazar el valor siguiente **85
por nada sobre un número del tipo **850005256325 los 0 desaparecen ( 5256325 ). Cómo
evitarlo?
Por defecto... y cuando la búsqueda de "reemplazar” del Excel sea demasiado “inteligente” ...
Sub remplt()
txtSup = InputBox("Que cadena de caracteres" _ & "deseas suprimir?")
txtRemp = InputBox("Por cual desea reemplazarla?")
Application.ScreenUpdating = False
For Each c In Selection
c.Value = Replace(c.Value, txtSup, txtRemp)
Next c
End Sub
La función Replace no está disponible para la versión Excel 97. Hay que reemplazarla por la
función Substitute
Sub remplt()
txtSup = Application.InputBox("Que cadena de caracteres"_& "deseas suprimir?")
txtRemp = Application.InputBox("Por cual desea reemplazarla?")
Application.ScreenUpdating = False
For Each c In Selection
c.value=Application.Substitute(c.Value, txtSup, txtRemp)
'c.Value = Replace(c.Value, txtSup, txtRemp) 'No disponible Excel 97
Next c
End Sub

41
6.41 Espacios que no lo son:
Aparecen espacios extraños en ciertas celdas y se querría suprimirlas.
Un espacio de este tipo en una celda por una barra espaciadora, da un chr(32). Puede venir
provocado al importar datos, que este espacio sea un chr (160).
Se puede probar lo siguiente:
dim MonRange as range
dim Mot as string
Mot=chr(160)
set MonRange=Range("A1:A50")
MonRange.Replace What:=mot, Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
6.42 Lista de las letras del alfabeto:
Cómo conseguir una lista de letras del alfabeto que se incremente automáticamente?
Añadir esta lista como macro:
Sub AnadirListaPers()
Application.AddCustomList ListArray:=Array("A", "B", "C", "D", "E", "F", "G", "H", _
"I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
MsgBox "La nueva lista es la número : " & Application.CustomListCount
End Sub
Así se podrá incrementar una serie manualmente en Excel, además de lo demandado.
Para poner al día la lista circulante:
Private Sub UserForm_Initialize()
Dim NuListe As Byte
NuListe = 5
For n = 1 To UBound(Application.GetCustomListContents(NuListe))
ComboBox1.AddItem Application.GetCustomListContents(NuListe)(n)
Next n
End Sub
6.43 Suprimir espacios:
Macro para suprimir los espacios que se encuentran delante de las cifras cortadas-pegadas a partir
de una web
Sub menage()
For Each cellule In ActiveSheet.UsedRange
cellule.Value = LTrim(cellule.Value)
Next
End Sub

42
6.44 Quitar la primera palabra de une frase:
Cómo suprimir la primera palabra de una frase? (separada del resto por un espacio)
Supongamos que A1 contiene "Bon dia companys", entonces utilizaríamos la fórmula siguiente:
=STXT(A1;BUSQUEDA(" ";A1;1)+1;NBCAR(A1))
devolvería "companys".
6.45 Conversión de números en letras:
Cómo convertir números en letras? 218 en doscientos diez y ocho...
Direcciones para tele cargar los macros:
Versión auto extraíble (lanza el fichero de ayuda al final de la extracción):
http://perso.wanadoo.fr/frederic.sigonneau/office/Nb2Words.exe
Versión zipp:
http://perso.wanadoo.fr/frederic.sigonneau/office/Nb2Words.zip
Código fuente:
http://perso.wanadoo.fr/frederic.sigonneau/office/SrcWrdXl.zip
6.46 Extraer una cadena de texto en medio de otra:
Ante textos del tipo: blablabla > texto a extraer cualquiera <123
Sabiendo que los únicos puntos de referencia son los < y > (únicos en el texto) y el número fijo de
caracteres después del <
…
=STXT(A1;BUSCA(">";A1)+1;NBCAR(A1)-BUSCA(">";A1)-4)
o sino, también podría funcionar:
=SUSTITUYE(STXT(A1;ENCUENTRA(">";A1)+1;999);"<123";)
6.47 Quitar los números de una cadena de caracteres:
Es posible, en una celda, eliminar la cifra que sigue a un nombre?
Por ejemplo: en una tabla, se tienen los nombres siguientes con un número (sin espacio) ZAZA1,
ZAZA2 etc. ...
El objetivo es el de encontrar ZAZA, quitando los números y sabiendo que a veces se pueden
encontrar también ZAZA11, ZAZA252 y hasta ZA345ZA.
Function onlylettre(s As String)
For a = 1 To Len(s)
If Mid(s, a, 1) <= 9 Then
Else
onlylettre = onlylettre + Mid(s, a, 1)
End If
Next
End Function

43
Atención: si una cifra se encuentra en el medio de la palabra igualmente se suprime.
O incluso: (aquí se conserva en lugar de quitar)
Range("B1")= Left(Range("A1"),4)
Si se quieren conservar las referencias del tipo ZA353ZA
Function onlyyou(zaza)
num = Len(zaza)
start:
If IsNumeric(Right(zaza, 1)) Then
zaza = Left (zaza, Len (zaza) - 1)
num = num - 1
GoTo start
End If
onlyyou = zaza
End Function
6.48 Buscar una cadena de caracteres en otra:
Se abre un fichero de texto y se lee línea a línea: debiéndose verificar que cada vez que se pasara
de línea (retstring) se tuviera la cadena de caracteres ".htm". Cómo se haría?
Por ejemplo, para buscar una “a” en hablar
position = instr([inicio],"hablar","a")
“inicio” es un número falcutativo, que permite iniciar la búsqueda en lugares diferentes del de inicio
de la cadena
Si la cadena buscada se encuentra, el resultado es la posición del primer carácter de la cadena
buscada en la cadena comprobada. Como esta función diferencia entre mayúsculas y minúsculas,
se debería, o comprobar las dos, o comprobarlo todo en mayúsculas o todo en minúsculas.
Pudiéndose obtener algo así:
Do While f.AtEndOfStream <> True
retstring= f.ReadLine
position = instr(ucase(f.Readline);".HTM")
if position > 0 then
Instructions s'il a ".HTM"
else
Instruction si pas ".HTM"
end if
Loop

44
O esto otro, que vendría a ser lo mismo:
Do While f.AtEndOfStream <> True
retstring= f.ReadLine
position = instr(lcase(f.Readline);".htm")
if position > 0 then
Instructions s'il a ".htm"
else
Instruction si pas ".htm"
end if
Loop
6.49 Trocear una frase sin cortar las palabras:
Se querría cortar una frase, sin cortar las palabras, de tal manera que cada trozo de frase, puesto
en celdas adyacentes, no comportara más de 20 caracteres.
Public Sub Parse20PerCell()
Dim bigString As String
Dim tempStr As String
Dim
cell As Range
Dim pos As Integer
Set cell = Range("A1")
bigString = cell.Text
Do While bigString <> ""
Set cell = cell.Offset(0, 1)
If Len(bigString) < 21 Then
cell.Value = Trim(bigString)
bigString = ""
Else
tempStr = Right(StrReverse(bigString), 21)
pos = InStr(tempStr, " ")
If pos = 0 Then
MsgBox "More than 20 contiguous characters between spaces."
Else
cell.Value = Trim(StrReverse(Mid(tempStr, pos + 1, 255)))
bigString = Mid(bigString, 22 - pos, 255)
End If
End If
Loop
End Sub
Otra solución:
El número máximo de caracteres de la frase es, en este ejemplo, supongámoslo inferior a 1000 y el
número de celdas en las que el texto se tiene que repartir se supone inferior a 100.

45
Sub test1()
Set rng = Sheets(1).Range("A1")
iTotal = Mid(rng, k + 1, 1000) & " "
For j = 2 To 100
For i = 21 To 1 Step -1
If Mid(iTotal, i, 1) = " " Then
k = i
Exit For
End If
Next
rng (1, j).Value = Mid (iTotal, 1, k - 1)
iTotal = Mid (iTotal, k + 1, 1000)
Next
End Sub
6.50 Última palabra de una frase:
Cómo conseguir con una fórmula de la hoja extraer la última palabra de una frase?
=RIGHT(A1,MATCH(" ",MID(A1,LEN(A1)-ROW(INDIRECT("1:"&LEN(A1))),1),0))
6.51 Inserción de un carácter especial:
Cómo inserir fácilmente un "carácter especial" en Excel si no se conoce su código?
Se podría crear un botón personalizado, y afectarle el procedimiento siguiente:
Sub TableCaract()
Shell "CHARMAP.EXE", vbNormalFocus
End
Sub
Atención, la tabla de caracteres es un componente opcional de Windows, se debe verificar que
esté bien instalado en el ordenador.
6.52 Borrar el carácter de la derecha:
Cómo borrar el carácter situado más a la derecha en una celda?
Por ejemplo, si el texto se encuentra en B10
=LEFT(B10;NBCAR(B10)-1)
6.53 Comprobar la presencia de una cadena de caracteres:
Cómo verificar que una cadena de caracteres se encuentre en una celda o en una variable?
=NB.SI(A1;"*texte*")=1
Reenvía TRUE si la cadena de caracteres (texto) se encuentra en la celda A1

Macros excel

Más contenido relacionado

Destacado (17)

Similar a Macros excel (20)

Último (14)

Macros excel