Manual Basico Visual Basic para Excel

MANUAL BASICO PARA EMPEZAR A
TRABAJAR CON MACROS DE VISUAL

BASIC PARA EXCEL
Introduccin al Visual Basic
* * ROGLE
Reengineering Operations
GroupWork Logistics Excellence
[MANUAL BSICO PARA EMPEZAR A TRABAJAR CON MACROS

DE VISUAL BASIC PARA EXCEL
20 de febrero de
2014
ndice
1.
INTRODUCCION (a propsito de Visual Basic)..........................................4
2.
OBJETIVOS................................................................................................ 4
3.
DESARROLLO DE LOS EJEMPLOS..............................................................5

3.1.
Creacin de un "botn" que al apretarlo escriba HOLA....................5
3.2.
Acumulacin de "HOLA"'s en la misma celda...................................6
3.3.
Acumulacin de texto en varias diagonales sucesivas.....................7
3.4.
Programacin de series de Fibonacci...............................................8
4.
NUEVOS EJEMPLOS: OBTENCIN DE NMEROS PRIMOS........................18
5.
CONCLUSIONES..................................................Error! Marcador no
definido.
6.
ANEXO (Sentencias y funciones habituales)...........................................23

6.1.
Problemas con variables (por qu no se dejan definir las variables?)

24
6.1.1.
Option Explicit:.........................................................................24
6.1.2.
Dim.... As [Integer,.............................Double, String, Boolean...]:

24
6.2.
Condicin If..., etc. (diversas posibilidades):.....................................24
6.2.1.
Select Case............................................................................... 25
6.2.2. Ejemplos de utilizacin.............................................................25

6.3. Bucles: For... To ... Next/Do While... Loop/Do Loop. Until (Utilizacin y
posibles
problemas): ............................................................................................... 25
6.3.1.
Do... Loop Until.........................................................................25
6.3.2.
Do While... Loop........................................................................26
6.3.3.
For... To... Next ........................................................................ 26
6.3.4. With ........................................................................................ 27

6.4. Coordenadas polares: Cmo pasar de coordenadas cartesianas
(x,y) a polares (r,a)?: 28
6.4.1. Radio (calculado a partir de las coordenadas x e y de los puntos
en cuestin) r =
RaizCuadrada(xA2+yA2):.........................................................................28
6.4.2. ngulo (calculado a partir de las coordenadas x e y de los puntos
en cuestin) a=Arctan (x/y):...................................................................28
6.5.
Cambiar criterios.........................................................de
ordenacin:
29
6.6.
Mens.............................................................................................. 29

20 de febrero de
2014
6.7.
Para Ordenar................................................................................... 30
6.8.
Quitar el signo de losnmeros........................convertidos en string:

30
* * ROGLE

20 de febrero de
2014
6.9. Cuando queremos poner referencias relativas a variables en la
frmula:.................................................................................................... 30
6.10.
Temporizador:...............................................................................30
6.11.
Funciones:.................................................................................... 30
6.12.
Zoom de la ventana:....................................................................31
6.13.
Para cancelar el botn:................................................................ 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:...........................................................31
6.18.
Procedimiento que empieza automticamente:...........................31
6.19.
Borrar Menu:................................................................................32
6.20.
Crear Rango:................................................................................ 32
6.21.
Entero y Logaritmo:......................................................................32
6.22.
Poner bordes: ............................................................................. 32
6.23.
Pregunta un nmero:...................................................................33
6.24.
Ventana de mensajes:..................................................................33
6.25.
Se mueve a la siguiente celda a la derecha:................................33
6.26.
Pegado transpuesto: .................................................................. 33
6.27.
Copiar un rango de una pgina a otra:.........................................33
6.28.
Definicin de Rango Automtico: ............................................... 33
6.29.
Clculo de Mximo:......................................................................33
6.30.
Formato interior de Celda: ......................................................... 34
6.31.
Enteros aleatorios entre lmites:..................................................34
6.32.
Suprimir los cuadraditos en un texto importado:.........................34
6.33.
Seleccionar los caracteres en una celda Excel:............................35
6.34.
Insertar automticamente retornos de carro................en un texto:

36
6.35.
Comodines de bsqueda:.............................................................36
6.36.
Extraer el cdigo postal de una direccin: Error! Marcador no
definido.
2
* * R0GLE
6.37.
20 de febrero de
2014
Reemplazar un carcter en una variable:.................................... 37
6.38.
Reemplazo complejo conservando los 0:.....................................37
6.39.
Espacios que no lo son:.............................Error! Marcador no
definido.
6.40.
Suprimir espacios: ...................................................................... 38
6.41.
Lista de las letras del alfabeto:....................................................38
6.42.
Conversin de nmeros en letras:............Error! Marcador no
definido.
6.43.
Extraer una cadena de texto en medio de................................otra:

38
6.44.
Quitar los nmeros de una cadena de caracteres:.......................39
6.45.
Buscar una cadena de caracteres en otra:...................................39
6.46.
Trocear una frase sin cortar las palabras:.....................................40
6.47.
ltima palabra de una frase:........................................................41
6.48.
Insercin de un carcter especial:............Error! Marcador no
definido.
6.49.
Borrar el carcter de la derecha:..................................................41
6.50.
Comprobar la presencia de una....................cadena de caracteres:

41
7. Ejercicios Visual Basic.............................................................................. 41
* * ROGLE

20 de febrero de
1. 2014
INTRODUCCION (a propsito de Visual Basic)
Visual Basic para aplicaciones es una combinacin de un entorno de
programacin integrado denominado Editor de Visual Basic y del lenguaje
de programacin Visual Basic, permitiendo disear y desarrollar con facilidad
programas en Visual Basic. El trmino "para aplicaciones" hace referencia al
hecho de que el lenguaje de programacin y las herramientas de desarrollo
estn 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 programacin
necesarias para escribir cdigo 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 aplicacin Microsoft
Office, y funciona igual para todas estas aplicaciones. Cuando se cierre la
aplicacin, consecuentemente tambin se cerrar la ventana del Editor de
Visual Basic asociada.
Este manual ha sido elaborado por Jos Pedro Garca Sabater con la
colaboracin de Gongal Bravo i Reig y Alberto Lpez Gozalbes a lo largo de
diversas versiones de la hoja de clculo Microsoft Excel. Es posible que a lo
largo del mismo se hallen algunas inexactitudes ligadas entre otras razones a
la evolucin de Excel. Si encuentran errores sera estupendo que nos lo
hicieran saber para as corregirlos.
2.
OBJETIVOS
El documento est inicialmente dirigido a alumnos de ingeniera que con

mnimos conocimientos de programacin pueden entender cmo funciona el
VBA de Excel.
No se pretende ensear a programar, slo a utilizar el entorno y a sacar
partido al mnimo conocimiento en programacin que tienen mis alumnos de
ingeniera.
Lo que se pretende con este manual es presentar de una manera prctica,
diferentes utilidades, funciones, sentencias..., en el Editor de Visual Basic, y
que con posterioridad sern tiles para el desarrollo del ejercicio concreto de
que consta la prctica.
Los ejemplos son sencillos e incluso un poco tontos, y desde luego intiles en
s mismos.
En cada ejemplo se presentan una o varias funcionalidades.
Tomando ejemplos sencillos, se irn mostrando sucesivamente las diferentes
utilidades a realizar o utilizar. Son utilidades bsicas cmo definir un botn de
ejecucin de programa, cmo dar valores a celdas de la pgina de Microsoft
Excel (mediante un programa definido en el Editor de Visual Basic), cmo

20 de febrero de
2014
definir
e introducir bucles y condiciones,.
* * ROGLE
20 de febrero de
2014
[MANUAL
BSICO
PARA EMPEZAR A TRABAJAR CON MACROS
DESARROLLO
DE LOS
EJEMPLOS
3.
3.1. Creacin de un botn que al apretarlo escriba HOLA.

Vamos a crear un botn, que al hacer clic sobre l, muestre en la celda A1 la
expresin "HOLA".
A\ A
HOLA
3
4_|
1
2
Botn 1
61
Para ello, en primer
lugar, se instalar en el documento de Microsoft Excel, el men
Programador (Men Archivo -> Opciones -> Personalizar cinta de
Guardar como
Guardar
Adobe PDF
como
Imprimir
Compartir
Exportar
d
opciones y se selecciona la casilla Programador).
Una vez hecho esto, aparecer la pestaa Desarrollador desde la que se
pueden aadir los botones dentro de la pestaa.
En l se tomar el icono que representa a un botn, desplegndose en la
Hoja1, por ejemplo, del documento Excel. De los dos botones que hay (tanto
en formularios como en ActiveX), se seleccionar el de Controles de
ActiveX, ya que de este modo se podr cambiar el color y otras opciones del
propio botn.
* * ROGLE
JLAS
20 de febrero de
2014
DE DATOS
VISUAL BASIC
PARA
EXCEL DESARROLLAD OR A
REVISAR
VISTA
E*
nentos
M
|g|i0p
[S] Propiedades Q! Ver

BTT
cdigo
Insertar Modo
T
[j] Ejecutar cuadro de dilogo
Diseo
Controles de formulario
1011
?| A
1 Sil
ntroles ActiveX
n P1 lbil
AQ
gir
Una vez hecho esto, se pulsar dos veces sobre dicho botn para acceder as
al Editor de Visual Basic, con el que se realizar el pequeo programa
requerido, tal y como sigue:
| Com man d Button 1
Prvate 5lt ComuandEut t o nl_C1ic k()

Hojal.Cells(1, 1) = "HOLA"
End Siib
3.2. Acumulacin de HOLA's en la misma celda.

Ahora vamos a cambiar el programa anterior, cambiando una de las lneas de
programa, para hacer que cada vez que se haga un clic en el botn, se
acumule un nuevo "HOLA" (igual que podra ser cualquier otro valor numrico
o cadena de caracteres) al anterior. De esta forma, se identificar el contenido
de la primera celda como un contador, acumulndose, en cada clic sobre el
botn, una nueva cadena de texto en dicha celda contador.
* * ROGLE
20 de febrero de
2014
[MANUAL BSICO PARA
AETRABAJAR CON MACROS
ABC EMPEZAR
D
DE
VISUAL
BASIC
PARA
EXCEL
HaLAHOLAHOLAHOLAHOLA
HOLA
3
4
5
6
CommandButtanl
3.3. Acumulacin de texto en varias diagonales sucesivas.

Continuando el ejemplo anterior, vamos a definir una lista en varias
diagonales, en las que se mostrar el texto previamente definido
("BIENVENIDO"). En la nueva versin del programa anterior, se podr observar
cmo utilizar la funcin "condicin" (representada por la funcin if) y el bucle
(mediante la aplicacin de la funcin for, entre otras opciones).
As, para hacer que la palabra "BIENVENIDO" aparezca colocada siguiendo
varias diagonales un nmero determinado de veces. Se definen, inicialmente,
dos variables contador como enteros (funcin Dim... As Integer), y que
representan adems los ndices de las celdas de la Hoja de Clculo (filas y
columnas). Se define el texto en la primera celda. Seguidamente, se define la
condicin de que la suma de los ndices de celda (variables contadores) sean
nmeros pares, con la utilizacin de la funcin mod (funcin resto, dividiendo
el nmero requerido por dos, si el resto es 0, el nmero es par), as se tendran
definidas las diferentes diagonales. Esta "condicin" estara 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.
| Com mar d Bu ttor 1
Prvate Siib ComuandBnt t o nl_C1ic k()

Diir. i As Integer
Diir. j As Integer
Hojal. Cells (1, 1) = "BIENVENIDO"
For i = 2 To 8
For ] = 1 lo i
If {(i + j } Mod 2 ) = 0 Tren
Hojal.Cells (i, j) = Hojal.Cells(1, 1)
End If Next j Next i
End Slb
* * ROGLE
20 de febrero de
2014
L [BIENVENIDO
BIENVENIDO
3 BIENVENIDO
glfhiuminn
BIENVENI
1
DO
;
Lommanatsuuoni
5 BIENVENIDO
BIENVENI
3
DO
BIENVENIDO
7 BIENVENIDO
1
BIENVENIDO
)0
BIENVENIDO
BIENVENIDO
BIENVENIDO
BIENVENIDO
BIENVENIDO
BIENVENIDO
0
3.4. Jugando con las series de Fibonacci.
En este caso, vamos a desarrollar cdigo que cumplir las siguientes
caractersticas:
Utilizacin de una serie de Fibonacci de nmeros aleatorios.
Se tomarn exclusivamente la cifra de unidades de los nmeros
de la serie anterior.
Se ordenarn estos valores de mayor a menor (para poder trabajar con
ellos).
Se mostrar cmo realizar el diagrama de barras correspondiente
a la serie anterior (cada barra con el tamao y el color
correspondiente al nmero de la serie).
Y en l, se utilizarn adems las funciones y opciones del Editor de Visual
Basic / Microsoft Office siguientes:
- Cambio de nombre de un botn.
- Utilizacin y grabacin de macros.
- Utilizacin de la funcin Call para llamar a una funcin 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 frmula anterior mediante la utilizacin de un bucle Do
While...Loop (una de las opciones posibles), previa definicin de los dos
valores iniciales. De esta forma, se van a definir estos valores iniciales como
aleatorios; para ello, se va a utilizar la funcin de generacin de nmeros
aleatorios rnd (tal y como se ve en el programa). Se evitan nmeros
excesivamente grandes o en coma flotante, tomando la variable como int,
para evitar la aparicin de decimales. Adems, se ve cmo se utiliza la
* * ROGLE
20 de febrero de
2014
funcin With, para definir la seleccin de color. Este cdigo se ha tomado del
de la macro grabada a partir del cambio de color de una celda cualquiera
(mediante la utilizacin de la opcin del men Cambio de color).
* * ROGLE
20 de febrero de
2014
Hajal.Cells(1, 2 )
Int(Rnd() * 10) Hajal.Cells(2, 2 )
Int(Rnd() * 10)
1=1
Do While i < 2 1
Hojal.Cells(i +2 , 2 ) = Hojal.Cells(i + 1, 2 ) + Hojal.Cells(i, 2 )
Hojal.Cells (i, 2 ).Select With Selection.Interior
.Colorlndex = Int(Rnd() * 10)
.Pattern = xlSolid End Witn i =
i + 1 If (i = 21) lien
Hajal.Cells(21, 2 ).Select Witn
Selection.Interior
.Colorlndex = Int(Rnd() * 10)
.Pattern = xlSolid End Witn
Pero, qu es una macro?, y cmo se graba una macro?

En primer lugar, se debera considerar que una macro es un pequeo
programa ejecutable desde la Hoja de Clculo, y que realiza funciones
repetitivas o comunes en la normal ejecucin de la actividad con la
herramienta de clculo. As, y en el caso particular de grabar una macro para
poder cambiar de color una serie de celdas de la Hoja de Clculo, se procede
de la siguiente forma. En el men, se toma la opcin Desarrollador, y en
sta, Grabar macro. Acto seguido, se realiza la accin a grabar en la macro,
en este caso, cambiar de color el color de una columna de la hoja de clculo.
Abriendo la opcin de Visual Basic, la macro grabada quedara reflejada de la

siguiente manera:
General}
10
* * R0GLE
20 de febrero de
2014
DE
BASIC PARA EXCEL
SabVISUAL
Macros()
I
Macros Macro
Range("Al :AIO"}.Select Witn

Selection.Interior .Pattern = xlSolid
.PatternColorlndex = xlAutoniatic .
Tneir.eColor = xlTneir.eColorAccentfi
.TintAndSnade = 0.399975585192419
.PatternTintAndSnade = 0 End Witn End Sub
En el paso anterior se ve, en el cdigo definido por la macro, la opcin

Range; esto define el rango de aplicabilidad de la opcin escogida con el
cdigo, en ese caso el cambio de color de las celdas A1 hasta la A10.
Adems se le puede cambiar el nombre al botn para que deje de "llamarse"
CommandButtonl y as poder ponerle el nombre deseado y cambiar otras
propiedades como el color del botn. Pero, cmo se consigue cambiar el
nombre al botn?
Para ello, se selecciona el Modo Diseo del cuadro de controles de la pestaa

Desarrollador, una vez ah, se hara clic con el botn derecho del ratn, sobre
el botn al que se le quiere cambiar el nombre. Acto seguido, se selecciona la
opcin Propiedades y dentro de estas se cambia la opcin Caption.
11
* * ROGLE
DISEO DE PAGINA
ilativas
FORMULAS
DATOS
c? EJ
REVISAR VISTA DESARRO [ti

Propiedades Q! Ver cdigo
ft
Complementos Complementos
ros
20 de febrero de
2014
Insertar
COM
Modo
| [3 Ejecutar cuadro de dilogo
Diseo
Controles
Complementos
IL
CommandB. CommandBut - I
Alfabtica | por categoras |
(Name) ______ CommandButt
i
Accelerator
1 Autoload
False
=INCRUSTAR("Forms.CommandButton.l";'"')
CommandButtonl
Propiedades
<3s
Cortar
(F[3) Copiar
QJ
ve^ooigo
[H| Propiedades
Objeto
Botn
de
comando
Agrupar
Ordenar
^ Formato de control...
AutoSize
BackColor
False
&H800000(
Backs tyle
Caption
Enabled
Font
ForeColor
1 - fmBackStyl
CommandButt
i
True
Calibri
&H800000
Height
Left
Locked
Mouselcon
MousePointer
Picture
PicturePosition
Placement
45
135,75
True
(Ninguno)
0
fmMousePc
(Ninguno)
7
fmPicturePi
2
PrintObject
True
Shadow
False
[TakeFocusOnCliTrue
Top
39
Visible
True
Width
154,5____
Wordwrap
False
Una vez mostradas las acciones anteriores, se va a pasar a definir el ejemplo

concreto. As, y como ya habamos dicho, vamos a definir el cdigo de
programa necesario para por un lado generar la serie de Fibonacci de
trminos aleatorios, y por el otro, tomar de los valores de la serie anterior
exclusivamente las cifras correspondientes a las unidades.
|commandButton2
jL] |ciick
Prvate Sub CoinmandButtonl_Cliclc ()

Hojal.Cells(1, 2) = Int(Rnd() * 10)
Hojal.Cells(2, 2) = Int(Rnd() * 10)
1
'Generacin de la serie de Fibonacci

Do While i < 21
Hojal.Cells(i + 2, 2) = Hojal.Cells(i + 1, 2) + Hojal.Cells(i, 2)
Hojal.Cells(i, 2).Select i = i + 1
Loop End Sub
Prvate Sub CommandButton2_Clic)c ()
i = 1
'Generacin de la serie anterior reducida a la unidad
Do While i < 23
Hojal.Cells(i, 2) = Hojal.Cells(i, 2) Mod 10 i = i + 1
Loop
I
End Sub
Aqu pueden observarse dos bloques diferenciados de programa, cada uno

para un botn diferente (que se pueden ver en la transparencia siguiente). En
el primero se crea una serie de
12
* * ROGLE
20 de febrero de
2014
DE VISUAL
BASIC
PARA EXCEL
Fibonacci, tal y como
ya se ha
explicado,
y acto seguido, se reduce cada uno
de los nmeros de dicha serie a su cifra de unidades. Esta sera el resto
obtenido de dividir dicho nmero de la serie original, por 10.
Esto se consigue con la utilizacin de la funcin mod. Todo ello dentro de su
C
A
7C
7 5
5
12
17
29
46
75
121
196
317
513
S30
1343
2173
3516
5689
9205
14894
24099
38993
63092
102085
7
9
6
5
1
6
7
3
0
3
3
6
1. Genera serie Fibonacci
5
4
9
3
2
5
correspondiente bucle para ir tomando todos los valores de la serie.
Se ve el resultado obtenido. Primero, haciendo clic en el primer botn, se

obtendra la serie, y seguidamente, haciendo clic sobre el segundo botn, se
obtiene la cifra correspondiente a la cifra de unidades de la serie de Fibonacci
anterior.
Ahora, se deber definir una funcin que tome una serie de nmeros y los
ordene de mayor a menor. Esto se hara mediante la grabacin de una macro
llamada ordenar, en la que se graba la accin de Ordenar (funcin
perteneciente al men datos de la barra de men) de mayor a menor los
valores de la primera columna, se obtiene el cdigo de programa necesario
para implementar un tercer botn, por ejemplo (cdigo que se ve abajo).
Private Sub CcrnmandButton3_Click()
'Ordenar la serle
Range("B1:B22").Select
ActiveWorkbook.Worksheets("Hoja 1").Sort.SortFields.Clear
ActiveWorkbock.Worksheets("Hoja 1").Sort.SortFields.Add Key:=Range("B1:B22") ,
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With
ActiveWcrkbook.Worksheets("Hoja l").Sort .SetRange Range("B1:B22")
.Header = xlGuess .HatchCase
- False .Orientation = xlTopToBottom
.SortMethod = xlPinYin .Apply End
With End Sub
13
* * ROGLE
20 de febrero de
2014
[MANUAL BSICO
PARA
A TRABAJAR
CON
MACROS
B_________C
D
E EMPEZAR
F
G
h
DE
O VISUAL BASIC PARA EXCEL
0
0
1
1
2
3
4
3
5
5
5
6 ___________________
^
3
7
2. Genera serie reducida en la Unidad (resto de dividir entre 10)
3
S
9
3. Ordenar la serle reducida a la

unidad
9
9
Clicando en el tercer botn se obtiene la serie numrica resultante de ordenar

la serie de cifras unidad de la serie de Fibonacci (de la transparencia anterior).
Si la macro se hubiera grabado en sentido descendente (del nmero 9 al 1),
slo habra que grabar la macro cambiando el orden por descendente, o bien
modificar el cdigo de manera que apareciera la palabra Descending en
lugar de Ascending.
Range("Bl:B22").Select
ActiveWorkboolc. WorJcaheets ("Ho ja 1") .Sort.SortFields.Clear
ActiveWorJcboolc.WorJcsheets ("Hoja
Add Key:=Range ("B1:B22") _
r SortOn:=xlSortOnValues, Oiper:=xlDe3cend|ng, DataOption:=xlSortNormal
With ActiveWorJcboolc. Worksheets ("Hoja 1")
.Sort .SetRange Range("B1:B22")
.Header = xlGuess .MatchCase = False .Orientation = xlTopToBottoin|
.SortMethod = xlPinYin .Apply
Este sera el ltimo del conjunto de programas individuales (definidos

mediante botones), con el se conseguira el objetivo buscado.
En la pgina siguiente se muestra el cdigo del diagrama de barras
correspondiente a los valores de la serie anterior.
Este cdigo muestra, despus de un corto programa para borrar el diagrama
que pueda existir con anterioridad (obtenido a partir del cdigo de la macro
grabada durante el borrado de un diagrama con las dimensiones requeridas,
dndole al color el valor "sin relleno"), cmo hacer el diagrama de barras.
Primeramente, se define que el nmero de celdas a colorear (barras del
diagrama), sea igual al nmero de la serie en cada fila. Despus, se define
una condicin para evitar colorear una celda de la primera columna, cuando
14
* * ROGLE
20 de febrero de
2014
se tuviera un cero.[MANUAL
Adems,BSICO
se define
queEMPEZAR
el color corresponda
PARA
A TRABAJAR CON MACROS
15
* * ROGLE

20 de febrero de
2014
al nmero presente en cada celda, pero evitando el negro (correspondiente al
0), y el blanco (correspondiente al 1).
Private S'ifc CommandEutton4_CIick: ( )

Borrar color del Gantt anterior
Range("Bl:J22"}.Select
Selection.Interior.Colorlndex = xlNone
1
Diagrair.a de Gant Diir. i As

Integer Diir. j As Integer Diir. x
As Integer For i = 1 To 2 2
x = Hojal.Cells(i, 2 )
If 1 <> 0 Tien
For j = 2 To x 4 1
Hojal. Cells (i,
j).Select With Selection.
Interior .|CoIorIndex = x
4 2 .Pattern = xlSolid
End Witli
Next j
End If
Next i
Tras lo definido anteriormente, y haciendo clic sobre el cuarto botn, se

obtendra el diagrama de Gantt correspondiente a la serie previamente
calculada, cambiando cada vez que se ejecutara todo el proceso completo.
Botn 1 Botn 2 Botn 3 Botn 4.
ROGLE
20 de febrero de
2014
Una vez realizado lo anterior, vamos a mostrar como emplear la funcin de

Visual Basic, Call. Con esta funcin lo que pretendemos, es poder hacer
llamadas desde dentro de un programa a otro que puede ser utilizado varias
veces, y de esta forma, evitaramos tener que definir el programa
correspondiente cada vez.
(General)
Private Sub CoramandButtonl_Clic)c <)

Range<"B1:J22").Select
Hojal.Celia(1, 2) = Int(Rnd() * 10)
Hojal.Cells(2, 2) = Int(Rnd() * 10) i
= 1
'Generacin de la serie de Fibonacci Do
While i < 21
Hojal.Cells (i + 2, 2) = Hojal.Cells(i + 1, 2) + Hojal.Cells(i, 2)
Hojal.Cells(i, 2).Select i = i + 1
Loop
Call Reducir Call Ordenar
Call BorrarColorDiagrama End Sub
Private Sub Reducir()
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
15
* * ROGLE
20 de febrero de
2014
DE VISUAL BASIC
PARA
EXCEL
independientes previamente
definidas
(como
se ha visto en las transparencias
precedentes), mediante la funcin call.
As, una vez calculada mediante el bucle Do While la serie de Fibonacci, se
llamara inicialmente a la funcin Reducir. sta, como ya se ha visto, tomara
el resultado anterior, "reducindolo" a la cifra de unidades correspondiente a
cada uno de los elementos de la serie anterior.
Se vera, de la misma forma que se vea en un punto anterior, como con la
utilizacin de la funcin 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 continuacin, se llama a la funcin Ordenar, que realizar la ordenacin de

los elementos de la serie numrica previamente calculada, de mayor a menor
(siendo este cdigo obtenido, como ya se haba explicado, a partir de la
grabacin de una macro utilizando la funcin ordenar del men). Tomando
como rango de elementos a ordenar, la primera columna (A), desde la celda 1
a la 15, en este caso.
16
* * ROGLE

20 de febrero de
2014
Private Sit Ordenar()
Range("El:C 1 2 ").Select
Selection. I nt error. Colorl ndex = xlNo ne
Ordenar la serie redncida|
Range("El:322"}.Select
ActiveWorktook.Worksheets("Hoja 1"). Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Hoja 1").Sort.SortFields.Add Key:=Range("El:322") ,
SortOn:=xlSortOnValaes, Order:=xlAscending, DataOption:=xlSortNonual Witn
ActiveWorkbook.Worksheets(Hoja 1").Sort .SetRange Range("El:322")
.Header = xlGae s s
.MatcnCase = False .Orientation =
xl 1op1o 3 o 11 om .SortMetnod =
xlFinYin .Apply End Witn
End Sit
Prvate Sit 3orrarColorDiagrana()
La ltima llamada realizada desde la funcin principal, sera la realizada a la

funcin encargada de definir el diagrama de barras, en tamao y en color,
adems de definir otra subfuncin que se encargara de borrar el diagrama
anterior, cada vez que se hiciera clic en el botn para obtener una nueva
serie y un nuevo diagrama de barras.
ROGLE
20 de febrero de
2014
Prvate
Sjfc BorrarColorDiagrama
()
[MANUAL
BSICO PARA EMPEZAR
A TRABAJAR CON MACROS
Borrar color del Gantt anterior
Range(Bl:J22}.Select
Diagrama de Gant Din. i As Integer Din. j

As Integer Dim x As Integer For i = 1 To 22
x = Hojal.Cells(i, 2)
1
If 1 <> 0 Then
For j = 2 To x 4 1
Hojal. Cells (i, j).Select With
Selection.Interior .Colorlndex = x
4 2 .Fattern = xlSolid End With
Next j End If Next i
End Sib
Como ya se ha explicado antes, se definira una funcin 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 entrara en el bucle, en el se definira el tamao y el color de
la barra en funcin del nmero de la serie en cada posicin.
4.
NUEVOS EJEMPLOS: OBTENCIN DE NMEROS PRIMOS
Una vez visto todo lo realizado previamente, se va a pasar a describir estos nuevos
ejemplos. En ellos, vamos a mostrar cmo hacer dos programas, el primero para
saber si un nmero es primo, y el segundo, para obtener listas de nmeros primos.
Para esto, en el primer programa, mostraremos qu funciones se deben utilizar para
declarar mens de trabajo, y cmo trabajar con ellas, adems de cmo llamar a otras
funciones sin utilizar la funcin que se haba visto previamente para este propsito
(funcin call). En el segundo programa, veremos de qu forma se podrn declarar
listas de nmeros primos, en un nmero indicado previamente por nosotros mismos.
Vamos a ver ahora qu es lo que deberemos hacer para poder declarar y utilizar
mens de trabajo, aplicndolo de manera prctica para poder declarar si un nmero
dado al programa es primo o no.
CornmandButtorl
Prvate Sub CommandE uttonl_Cllc)i: ()

Dlm. njnero As String
Dlm. valor As Integer
numero = InputBox ("DIME UN NUMERO")
valor = Val(numero)
Dirr. primo As Boolean
If esprimo(valor) lien MsgBox ("ES PRIMO") Else MsgBox (NO ES PRIMO") End Sub
18
* * ROGLE
20 de febrero de
2014
Function esprimo(x) As Boolean
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 botn) mediante la funcin InputBox, se
declarar un men que se ver en la pgina de la Hoja de Clculo del Microsoft
Excel, presentando el texto "DIME UN NUMERO", identificado con la variable
numero definida como string. Esta cadena (que recibe el nmero que se
introducira desde teclado) mediante la funcin Val, registrar el valor numrico
deseado que se pasara a la otra funcin (la que calculara si dicho nmero es
primo o no).
Esto tambin se podra haber conseguido de una manera un poco ms simple,
declarando nicamente valor como entero y guardando el nmero introducido
en la InputBox directamente como entero como se puede ver en la siguiente
captura:
(General)
Frivate Sub CommandEiuttonl_Click ()

Dirr. valor As Integer
valor = InputBox ("DIME UN tIUMERO")
Dirr. primo As Boolean
If esprim.o (valor) lien MsgBox ("ES PRIMO") Else MsgBox ("NO ES PRIMO") End Sub
Function esprim.o (x) As Boolean
Una vez hecho esto, dentro de una condicin if, y utilizando la funcin MsgBox
(esta funcin, al igual que la previamente definida InputBox, tiene como misin
el mostrar en pantalla un mensaje en forma de men de Windows, pero ahora
presentando un resultado determinado y definido desde programa) se mostrara
un mensaje sobre la Hoja de Clculo, diciendo si el nmero previamente
introducido es primo o no.
Tal como se ha visto previamente, tomando el valor de la variable valor se llama
a la funcin esprimo (x), donde la variable x equivale al valor enviado valor.
As, definiendo esta funcin como Boolean, la cual dara como resultado una
respuesta verdadera o falsa (true o false), se entrara en un bucle Do While
(que utiliza como condiciones que el nmero introducido es
19
* * ROGLE
20 de febrero de
2014
DEpara
VISUAL
BASIC
EXCEL
inicialmente primo,
entrar
en PARA
el bucle,
y que el ltimo nmero por el que se
dividir el introducido, para comprobar si es primo o no, deber ser menor o igual
a la raz cuadrada del introducido). En este bucle, dentro se pondra una condicin
if, en la que indica que para que un nmero no sea primo, el resto de dividirlo por
otro menor que l debe ser cero.
End Sufc
Function esprirr.o (x) As Boolean
Dirr. n As Integer esprirr.o =
True n = 2
Do While esprirr.o And n <= Sqr (x)
If (x Mod n = 0) Tien esprirr.o =
False End If n = n 4 1
Loop
End Function
Como se puede comprobar, al trabajar con variables Booleanas, se devuelve o

recibe un True o un False, que en funcin de la definicin de la condicin if del
siguiente programa (el definido por el botn), se dar como resultado lo
correspondiente al "si" (if) o al "sino" (else).
Ahora se ve cmo quedara en la pantalla de la hoja de Excel lo expuesto
previamente. Se ve, en la pgina siguiente, como al hacer clic sobre el botn,
aparecera el men pidiendo un nmero, y acto seguido se dira si ste es primo o
no.
Microsoft Excel
DIME UN NUMERO
Aceptar
Nmero primo?
Cancelar
fi
20
* * ROGLE
20 de febrero de
2014

Ahora se van a definir los dos programas necesarios para obtener un nmero
determinado de nmeros primos, siguiendo el mismo esquema previamente
definido. Primero se ve cmo se define con la funcin InputBox, un nuevo men
en el que se pide el nmero de nmeros primos deseado. Adems, se incluye una
lnea de cdigo para poder borrar el listado previo de nmeros primos cada vez
que se haga clic sobre el botn (para que salga un nuevo men).
|commardButtor1
Prvate Sufc Conuuand3uttonl_Click: ()

Din. valor As Integer Cali Borrar
valor = InputBox ("Cuntos Traineros primos quieres ?)
Cali esgrimo (valor)
End 5ub
Function esgrimo (x}
Esta llamada mediante la funcin Call, se hace a una macro grabada mientras se
seleccionaba toda la columna A y se borraba su contenido, como se puede ver.
21
* * ROGLE
20 de febrero de
2014
[MANUAL
BSICO programa,
PARA EMPEZAR
A TRABAJAR
CON MACROS
Aqu se puede observar
el segundo
llamado
por el primero,
y pasndole
DE
VISUAL
BASIC
PARA
EXCEL
el nmero de nmeros primos a generar (tamao de la lista) empezando por el 2.
Function espriir.a (x}
Diir. n As Integer
Diir. num As Integer
cont = 1 n = 2
Do While cont <= x
priir.o = True
j=2
Do While priir.o And j <= Sqr(n)

If (n Mod j =0) Then priir.o = False j =
j + 1
Loop
If priir.o Then
Ho jal.Cells(cont
1)= n
cont = cont + 1 End
If n = n + 1
Loop
End Function
Aqu se ve como una vez se recibe la informacin de la otra funcin, se definen

dos contadores para controlar los dos bucles. El primero controlara la
acumulacin de nmeros primos hasta la cantidad indicada (x), y a continuacin,
al igual que antes, definiendo la variable primo como booleana, se entra al
segundo bucle (encargado del clculo de los primos) suponiendo que la primera
entrada es un nmero primo (2 es primo) y que adems el nmero por el que se
divida cada nmero para comprobar que sea primo, deber ser inferior a la raz
cuadrada de dicho nmero.
Finalmente, con una condicin, se iran acumulando en la columna los diferentes
nmeros primos encontrados hasta llegar a la cantidad deseada.
Aqu se ver ahora el resultado deseado.
22
* * ROGLE
AAl
1
2
3
4
E
8
S
10
11
12
13
14
IE
16
17
13
19
2
3
5
20 de febrero de
7
2014
11
13
[MANUAL BSICO PARA EMPEZAR
6
A TRABAJAR
CON MACROS
7
17
10
20
21
5.
23
29
31
37
41
43
47
53
59
61
67
71
73
FINAL
Una vez presentados y explicados los ejemplos anteriores, esperamos que sirvan
de ayuda real a la realizacin de los problemas concretos.
Tambin, y porque no, esperamos que este pequeo 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 exposicin haya sido suficientemente sencilla y
clarificadora de lo que inicialmente se pretenda y se presentaba como objetivos.
6.
ANEXO (Sentencias y funciones habituales)
Antes de empezar con el anexo queremos incorporar una nota. Por un motivo que
desconocemos Excel ha empeorado su comportamiento desde algunas versiones
hacia aqu. Macros que funcionaban estupendamente se han convertido en muy
lentas. Tras una indagacin en la web parece que si se pega esto al principio de
las aplicaciones mejora el funcionamiento.
Application.screenupdating=False
Application.calculation=xlCalculationMa
nual Application.EnableEven ts=False
Hay que pegar esto al final antes del end sub:
23
* * ROGLE

20 de febrero de
2014 Application.screenupdating=True
Application.calculation=xlCalculationAuto
matic Application.EnableEven ts=True
Application.CutCopyMode = False
En estos anexos se podrn encontrar instrucciones para Visual Basic y para las
hojas de clculo de Excel. A stas ltimas se les puede reconocer fcilmente
dentro de los anexos porque no van introducidas dentro de ningn "Sub" y
adems las instrucciones referidas a las hojas de clculo Excel van escritas en
maysculas. Un ejemplo de una instruccin referida a las hojas de clculo
Excel puede ser:
DESREF (C11; 0; SI (C6>$C$3;-$C$3;-C6); 1; 1)
6.1. Problemas con variables (por qu no se dejan definir las

variables?)
6.1.1. Option Explicit:
Con esta aplicacin, se avisara en caso de no tener definida una variable, o en
caso de utilizar datos de pginas 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 ocurrira
posiblemente nada, salvo que se utilizara una mayor cantidad de memoria de la
necesaria, al definirse instantneamente en el momento de utilizarla como de tipo
Value.
6.2.
Condicin If..., etc. (diversas posibilidades):
If ... Then ... / If ... Then ... Else ... / If ... Then ... Elself ... Then ...
Cundo poner el EndIf?, cundo no?, cundo se deberan usar los ":" (dos puntos)?
Las instrucciones If...Then...Else se pueden presentar en varios formatos, con
unas caractersticas determinadas. Normalmente, se presentan anidadas en
tantos niveles como sea necesario. Esto, sin embargo, puede hacer menos legible
el cdigo, por lo que es aconsejable utilizar una instruccin Select Case en vez
de recurrir a mltiples niveles de instrucciones If...Then...Else anidadas
(nicamente en caso de que el excesivo nmero de anidamientos pudiera dar
problemas en la legibilidad del programa, o errores en la depuracin de ste).
As, si realizamos la condicin en varias lneas de cdigo, ser necesario cerrar el
anidamiento con un End If; instruccin que no se usara en caso de realizar la
condicin en un sola lnea (If Then, condicin cierta).
ROGLE

20 de febrero de
2014
6.2.1. Select Case
En este caso, esta instruccin ser ms til que la Condicin If..., cuando se ejecute
uno de varios grupos de instrucciones, dependiendo del valor de una expresin
condicin a cumplir.
6.2.2. Ejemplos de utilizacin
Ahora se presentan una serie de ejemplos prcticos, con los que aclarar y facilitar el
uso de las condiciones If en la programacin en Visual Basic.
Bsicamente, en el ejemplo siguiente se observa, como se deberan de utilizar los
anidamientos consecutivos de If... Then, Elself... Then y Else. Se observa aqu,
cmo se utilizara el End If, siempre en el caso del anidamiento de condiciones, y no
en el caso de escribir la condicin If (general) en una sola lnea.
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
Hoja1.Cells(i, 8) = a + 180
End If
End If
6.3.
Bucles: For... To ... Next/Do While... Loop/Do Loop... Until (Utilizacin
y posibles problemas):
Las estructuras de bucle tambin son conocidas por el nombre de estructuras de
control. Permitiendo la repeticin de determinadas acciones.
Uno de los errores ms comunes que se producen en la utilizacin de bucles de este
tipo, es la no inicializacin de las variables utilizadas como contadores de iteraciones.
As que habr que prestar una atencin especial en este punto. Una opcin para evitar
este posible error, sera la definicin al principio del programa, como primera lnea de
cdigo de ste, el ya comentado
Option Explicit.
A continuacin se presentan las diferentes opciones que permite el Visual Basic para
definir bucles, es decir, repeticin y/o acumulacin de acciones determinadas, entre
unos lmites definidos. La no definicin de estos lmites concretos, sera otro error
comn y ms problemtico, al producirse la entrada en bucles infinitos, que bloquean
el mdulo de clculo de nuestro ordenador.
6.3.1. Do... Loop Until
Esta estructura de control se puede usar para ejecutar un bloque de instrucciones un
nmero indefinido de veces. Las instrucciones se repiten hasta que una condicin
llegue a ser True.
ROGLE
20 de febrero de
2014
Un ejemplo podra ser el[MANUAL
siguiente:
BSICO PARA EMPEZAR A TRABAJAR CON MACROS
DE
VISUAL
BASIC PARA EXCEL
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 comn sera el no introducir la
lnea de acumulacin del contador (por ejemplo: i = i + 1), con lo que el bucle entrara
cada vez en el clculo, quedndose colgado en este punto.
En este caso, las instrucciones se repiten mientras una condicin sea True (al
contrario que con el Do... Loop Until).
Este tipo de bucle se utilizara normalmente en caso de tener que cumplirse una
condicin 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
condicin.
Ejemplo de utilizacin de esta funcin (hay que fijarse en la inicializacin 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 A
2) + (c A 2) a = Sqr(d)
Hoja1.Cells(i, 7) = a 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 construccin es correcta:
For i = 1 To 10
For j = 1 To 10
26
* * R0GLE

20 de febrero de
2014 Next j
Next i
Si se omite un contador en una instruccin Next, la ejecucin contina como si se
hubiera incluido. Se produce un error si se encuentra una instruccin Next antes de
su instruccin For correspondiente.
Al contrario de lo que se comentaba para los bucles Do... While, los bucles For..., se
ejecutarn hasta agotar el intervalo de acumulacin del contador, es decir, siempre se
entrara en el bucle, y no se parara de ejecutar hasta no terminar el contador.
Un ejemplo concreto podra 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 If, y otras estructuras de control, como el With, que
pasamos a comentar a continuacin.
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 combinacin de cdigo y datos que se pueden tratar como una unidad,
por ejemplo, un control, un formulario o un componente de una aplicacin. Cada
objeto se define por una clase.
As, un ejemplo de utilizacin de la funcin With, sera el siguiente, donde ha sido
anidada dentro de la estructura de un bucle For, y mediante la opcin Select
(utilizada para trabajar en entornos grficos), se adjudicara 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
ROGLE

20 de febrero de
2014
.Pattern = xlSolid End
With
Next j
6.4.
Coordenadas polares: Cmo pasar de coordenadas cartesianas (x,y) a
polares (r,a)?:
6.4.1. Radio (calculado a partir de las coordenadas x e y de los puntos en cuestin) r =
RaizCuadrada(xA2+yA2):
Para este caso, se definira la estructura de control siguiente (o bucle), definida
mediante la utilizacin de la funcin DoWhile... Loop. En ella se definiran una serie
de variables que acumularan los valores previamente definidos en celdas de la Hoja
de Clculo, para realizar la operacin de calcular la raz cuadrada de la suma de los
cuadrados de los catetos opuesto y contiguo del tringulo definitorio del ngulo a
calcular. Posteriormente, se le dara dicho valor a otra variable, que estara encargada
de ir dndole dichos valores a las celdas correspondientes de la Hoja de clculo
anterior.
i=5
b = Hoja1.Cells(i, 5) c =
Hoja1.Cells(i, 6) d = (b A
2) + (c A 2) a = Sqr(d)
Hoja1.Cells(i, 7) = a i
=i+1
Loop
6.4.2. ngulo (calculado a partir de las coordenadas x e y de los puntos en cuestin)
a=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 o y 360o, puesto que Excel slo
los presenta en valores entre 90o y -90o, se utiliza la estructura condicional que se
puede observar en el programa.
i=5
b = Hoja1.Cells(i, 5) c
= Hoja1.Cells(i, 6) d =
c/b
a = (180 / PI) * Atn(d)
If b > 0 And c > 0 Then
Hoja1.Cells(i, 8) = a
Else
Reengineering
R0GLE
IfHoja1.Cells(i,
b > 0 And c 8)
<0
= a + 180
360
ThenIf
Else
End
End If
[MANUAL BSICO
i = i PARA EMPEZAR A TRABAJAR CON MACROS
+1
20 de febrero de
2014
Loop
Hay que darse cuenta de que se utiliza la condicin anidada If... Then ... Else ...
End If, porque Excel, da valores de ngulo en el plano de las X positivas (1 er y 4
cuadrantes), por lo que para poder tener una visin clara de la posicin de cada punto
en funcin de su ngulo (tenerlo marcado de 0 o a 360o), se debera sumar 180 a los
valores de ngulo obtenidos de los puntos situados en el 2 y 3 er cuadrantes, y 360 a
aquellos situados en el 4 cuadrante.
6.5. Cambiar criterios de ordenacin:

Aqu se puede ver cmo se podran definir criterios de ordenacin (ascendente o
descendente), en funcin 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
6.6. Mens...
Se definen mens especficos tomndolos como variables definidas como barras de
comandos de control, o de otros tipos, y dndoles a su vez los nombres
correspondientes a estos mens 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)
20 de febrero de
2014
End If
DE VISUAL
PARA EXCEL
MenuNuevo.Caption
= "PlanBASIC
de Recuento"
Set Plan = MenuNuevo.Controls.Add(Type:=msoControlButton)
Plan.Caption = "Plan de Recuento"
Plan.OnAction = "CalculaPlan"
6.7. Para Ordenar

Bsicamente, se busca lo mismo que cuando se hablaba del cambio de criterios de
ordenacin. 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 nmeros convertidos en string:

Estas lneas de cdigo sirven para poder tomar nmeros positivos siempre, aunque se
introdujeran negativos (por error o clculo), a travs de un men, clculo,... El
resultado sera semejante a la utilizacin de la funcin del Editor de Visual Basic,
Abs (numero) (que devuelve el valor absoluto de todo nmero introducido entre
parntesis.
nombre = Str(i)
nombre = Right(nombre, Len(nombre) - 1)
6.9. Cuando queremos poner referencias relativas a variables en la frmula:

Referencias que corresponderan con los valores de la celda correspondiente de la
Hoja de Clculo con la que se est trabajando.
DESREF (C11; 0; SI (C6>$C$3;-$C$3;-C6); 1; 1)
6.10. Temporizador:
Funcin encargada de dar un intervalo de tiempo, previamente a la obtencin de un
resultado, o por otra razn necesitada por el programador.
Dim ppio As Single ppio = Timer
Do While ppio + 10 > Timer Loop
6.11. Funciones:
Definicin 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
intencin de tenerlas
30
* * R0GLE

20 de febrero de
2014
definidas
a parte de la programacin del botn en la Hoja de Clculo, o para una
rellamada a posteriori, por ejemplo con la funcin Call.
Function fact(x) As Integer End Function
6.12. Zoom de la ventana:

Zoom, agrandar o empequeecer la presentacin del formulario preseleccionado,
en la ventana activa de trabajo.
ActiveWindow.Zoom = 25
6.13. Para cancelar el botn:

Bastara con introducir la orden siguiente:
End
6.14. Procedimiento que empieza con un formulario:

Sub Prevision_Userform()
CommandButtonl.Caption = "Previsin"
End Sub
6.15. Otro modo de cambiar el color:

Esta es una de las opciones vlidas para el cambio de color, en una celda, o en
cualquier otro objeto seleccionado. Hay que considerar, que en este caso se realizara
mediante una graduacin de los tres colores bsicos disponibles (rojo, verde y azul),
aunque tambin podra hacerse mediante valores numricos globales, representando
las mezclas correspondientes de estos colores bsicos.
LabellO.BackColor = RGB(242, 148, 150)
6.16. Para abrir un formulario:

Lnea de cdigo que mostrara/abrira un formulario, que en este caso ha sido llamado
Prevision. frmPrevision.Show
6.17. Para ocultar un formulario:

frmPrevision.Hide
Ambas sentencias (la 6.16 y la 6.17), sencillas como se puede comprobar, se refieren
a la apertura de formularios referentes a objetos determinados. Tambin estaran aqu
relacionados los UserForm.
6.18. Procedimiento que empieza automticamente:

Este procedimiento, abrira...
ROGLE

20 de febrero de
2014
Sub auto_open()
6.19. Borrar Menu:

En este caso se borrara un men previamente creado (ver el punto previo 6.6, por
ejemplo), en este caso, el men "Nuevo Anlisis".
On Error Resume Next
CommandBars(1).Controls("Nuevo Anlisis").Delete
6.20. Crear Rango:

Aqu se creara un rango, sin tener que seleccionarlo previamente en la pgina de
trabajo de la Hoja de Clculo, desde la celda B5.
rango = Str(nuevoprod - 1)
rango = "B5:D" + Right(rango, Len(rango) - 1)
6.21. Entero y Logaritmo:

Con la sintaxis siguiente, se transforman nmeros reales logartmicos (obtenidos
mediante la funcin logaritmo Log), en un nmero entero; para utilizarlo, por
ejemplo, en el caso de disponer de poca memoria para una variable, o por necesidad
de trabajar con nmeros pequeos.
aux = Int(Log(x) / Log(2))
Esta transformacin (no sera una transformacin en s mismo, sino que se tomara
simplemente la parte entera del nmero real) de un nmero real en otro entero, se ha
visto tambin utilizada en este manual en el caso de trabajar con series de nmeros
aleatorios, para obtener as nmeros sin la coma flotante, y por consiguiente, ms
manejables.
6.22. Poner bordes:

Aqu, se puede observar otra utilizacin de la funcin With como estructura de
control, para a travs de la funcin Select, darle un formato grfico determinado al
rango de la Hoja de Clculo con la que se est trabajando. En este caso, el formato
grfico buscado, sera el de un borde a un texto o zona de texto, con un tipo de lnea,
grosor y color determinados.
With Selection.Borders (xlEdgeLeft)
.LineStyle =
xlContinuous .Weight =
xlMedium .ColorIndex =
xlAutomatic
End With
ROGLE
20 de febrero de
2014
6.23. Pregunta un nmero:
Otra nueva utilizacin de los cuadros de mensaje para captacin de datos (o mens)
del tipo Inputbox, para, en este caso capturar una cantidad determinada con la que
el programa en cuestin realizar los clculos deseados.
InputBox ("Dime un nmero")
6.24. Ventana de mensajes:

Lo mismo que en el punto anterior, pero en este caso, mostrando un mensaje
determinado en la Hoja de Clculo de trabajo.
MsgBox ("Hola")
6.25. Se mueve a la siguiente celda a la derecha:

Sentencia explcita, para seleccionar una celda contigua a la tomada previamente en
la Hoja de Clculo de trabajo, como celda activa donde tomar o mostrar datos.
ActiveCell.Next.Select
6.26. Pegado transpuesto:

Lnea de cdigo resultante de la grabacin de la macro correspondiente a la seleccin
de la opcin de pegado especial transpuesto, para poder copiar una fila en una
columna o viceversa. Opcin presente en la barra de men de la Hoja de Clculo.
Selection.PasteSpecial Transpose:=True
6.27. Copiar un rango de una pgina a otra:

Con esta opcin se copiarn los datos presentes en el rango seleccionado en la pgina
de trabajo (en este caso la Hoja1), en el rango seleccionado correspondiente en la
pgina siguiente de la Hoja de Clculo, u Hoja2.
Hoja1.Range(rango).Copy Destination:=Hoja2.Range(rango)
6.28. Definicin de Rango Automtico:

Este mtodo, tomara la celda activa de la Hoja de Clculo de trabajo, en realidad, se
le dara la la celda activa final del rango deseado de trabajo, y finalmente se le
indicara, si dicha seleccin del rango se debe realizar hacia arriba o hacia abajo
(como es este el caso).
ActiveCell , ActiveCell.End(xlDown)
6.29. Clculo de Mximo:

Aplicacin del Editor de Visual Basic, mediante la que se calculara directamente el
valor mximo del rango de la Hoja de Clculo de trabajo previamente seleccionado.
Application.Max (Rango)
6.30. Formato interior de Celda:

Con este cdigo de programa, se le dara a la celda activa, o seleccionada (o al rango
33
* * ROGLE
20 de febrero de
2014
activo o seleccionado en
su interior),
unos
valores
determinados
de grado
de color, y
[MANUAL
BSICO
PARA
EMPEZAR
A TRABAJAR
CON MACROS
DE
VISUAL
BASIC
PARA
EXCEL
de formato de texto.
Selection.Interior.ColorIndex=34
Selection.Interior.Pattern=xlsolid
6.31. Enteros aleatorios entre lmites:

Para producir enteros aleatorios en un intervalo dado, usa esta frmula:
Int ((Lmite_superior - lmite_inferior + 1) * Rnd + lmite_inferior)
Aqu, lmite_superior es el nmero mayor del intervalo y lmite_inferior es el
nmero menor del intervalo.
Nota: Para repetir secuencias de nmeros aleatorios, se debe llamar a la funcin Rnd
con un argumento negativo antes de utilizar la funcin Randomize con un argumento
numrico. Al utilizar la instruccin Randomize con el mismo valor de nmero, no se
repite la secuencia anterior.
6.32. Suprimir los cuadraditos en un texto importado:

Se ha importado en la columna A un texto desde otro programa pero todo
aparece lleno de pequeos cuadraditos que se deberan suprimir.
Para ello, se puede utilizar esta macro para conocer los cdigos 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(xlCeNTypeLastCell).Addr
ess)
For i = 1 To 31
Application.StatusBar = c.Address & " " & i On Error
Resume Next
Range(c.Address) = Application.Substitute(c, Chr(i), " ")
'Err.Clear
34
* * ROGLE

20 de febrero de
2014
'Resume
Next
Range(c.Address) = Application.Substitute(c, Chr(127), " ")
Next
Application.StatusBar = False
End Sub
6.33. Seleccionar los caracteres en una celda Excel:

Cmo elegir por orden alfabtico creciente o decreciente una celda Excel
que contenga una cadena de caracteres?
Para esto, se
modificaciones:
puede
utilizar
esta
funcin
de
T.Shuttleworth
con
algunas
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 i Next j
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
Tambin se puede utilizar esta solucin mediante frmula MATRICIAL utilizando la XLL
(morefun.xll) que se puede cargar en:
http://www.freewarefiles.com/downloads counter.php?programid=14922
20 de febrero de
2014
Reengineering
ROGLE
=MCONCAT(TRIV(STXT(A1;SIGUIENTE(NBCAR(A1);1);1);;1))
20 de febrero de
2014
6.34. Insertar automticamente 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 cuestin podra 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.35. Comodines de bsqueda:

Existen comodines en
Excel
para reemplazar
los
caracteres
en una
bsqueda.
El operador "*" puede reemplazar un grupo de caracteres, y el comodn "?" uno solo.
La utilizacin en la funcin bsqueda de "*" y de ?" puede causar desrdenes
importantes en los ficheros. As, si se busca por ejemplo la palabra "completndola" y
se quieren recuperar todas las posibilidades de escritura con los acentos o no, se
utilizaran los comodines "*" y "?" de la siguiente forma "complet?ndola" o
"complet*a"
20 de febrero de
2014
DE VISUAL
PARAde
EXCEL
El mtodo siguiente reemplaza
el BASIC
contenido
todas las celdas seleccionadas por la
palabra de reemplazamiento:
- Seleccionar una columna de textos
- Reemplazar todas las palabras "ejemplo" por "*"^ OK
- Despus, reemplazar todos los "*" por la palabra "ejemplo" ^ borrando todas
las celdas conteniendo el "*" y reemplazndolo por la palabra "ejemplo".
Se debe sealar que la forma ms rpida para vaciar una hoja es reemplazar "*" por
"" (se puede probar aunque sin grabarlo).
6.36. Reemplazar un carcter en una variable:

Cmo reemplazar en una variable un punto y coma por una coma?
Por ejemplo, si en A1 hay: "B1;B2;B3" y en el cdigo principal, MiVariable =
Range("A1").Value
Cmo reemplazarla en MiVariable sin tocar la celda A1?
Se tiene que pasar por una macro:
Private Sub CommandButton1_Click()
Dim MiVariable As String MiVariable =
Range("A1").Value Call
reemplazo(MiVariable)
End Sub
Sub reemplazo(MiVariable As String)
MiVariable = Replace(MiVariable, ";", ",")
MsgBox MiVariable
End Sub
6.37. Reemplazo complejo conservando los 0:

En una columna en formato texto cuando se aplica la funcin reemplazar el
valor siguiente **85 por nada sobre un nmero del tipo **850005256325 los
0 desaparecen (5256325). Cmo evitarlo?
Por defecto... y cuando la bsqueda de "reemplazar" del Excel sea demasiado
"inteligente"...
Sub remplt()
txtSup = InputBox("Qu cadena de caracteres" _ & "deseas
suprimir?") txtRemp = InputBox("Por cul desea reemplazarla?")
Application.ScreenUpdating = False For Each c In Selection
c.Value = Replace(c.Value, txtSup, txtRemp)
Next c
End Sub
20 de febrero de
2014
6.38. Suprimir espacios:
BASIC
EXCEL
Macro para suprimir DE
los VISUAL
espacios
quePARA
se encuentran
delante de las cifras
cortadas/pegadas a partir de una web.
Sub EliminarEspacios()
Dim celda As Range
For Each cellule In ActiveSheet.UsedRange cell.Value =
LTrim(cell.Value)
Next
End Sub
6.39. Lista de las letras del alfabeto:

Cmo conseguir una lista de letras del alfabeto que se incremente
automticamente? Aadir 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 nmero: " &
Application.CustomListCount End Sub
As se podr incrementar una serie manualmente en Excel, adems de lo demandado.
Para poner al da 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.40. 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 nmero fijo de caracteres despus del <
=EXTRAE(A1;BUSCA(">";A1)+1;NBCAR(A1)-BUSCA(">";A1)-4)
O si no, tambin podra funcionar:
=SUSTITUYE(EXTRAE(A1;ENCUENTRA(">";A1)+1;999);"<123";)
38
* * ROGLE
20 de febrero de
2014
6.41. Quitar los nmeros
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 nmero
(sin espacio) ZAZA1, ZAZA2 etc.
El objetivo es el de encontrar ZAZA, quitando los nmeros y sabiendo que a
veces se pueden encontrar tambin ZAZA11, ZAZA252 y hasta ZA345ZA.
Function SoloTexto(s As String)
For a = 1 To Len(s)
If Mid(s, a, 1) <= 9 Then Else
SoloTexto = SoloTexto + Mid(s, a, 1)
End If Next
End Function
Atencin: 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)
6.42. Buscar una cadena de caracteres en otra:

Se abre un fichero de texto y se lee lnea a lnea: debindose verificar que
cada vez que se pasara de lnea (retstring) se tuviera la cadena de
caracteres ".htm". Cmo se hara?
Por ejemplo, para buscar una "a" en hablar.
Position = InStr([inicio], "hablar", "a")
Si la cadena buscada se encuentra, el resultado es la posicin del primer carcter de
la cadena buscada en la cadena comprobada. Como esta funcin diferencia entre
maysculas y minsculas, se debera, o comprobar las dos, o comprobarlo todo en
maysculas o todo en minsculas.
Pudindose obtener algo as:
Do While f.AtEndOfStream <> True
retstring = f.Readline
Position = InStr(UCase(f.Readline), ".HTM")
If Position > 0 Then
Instrucciones en caso de que se cumpla la condicin
Else
Instrucciones en caso de que NO se cumpla la condicin
20 de febrero de
2014
End If Loop [MANUAL BSICO PARA EMPEZAR A TRABAJAR CON MACROS
6.43. Trocear una frase sin cortar las palabras:
Se querra cortar una frase, sin cortar las palabras, de tal manera que cada
trozo de frase, puesto en celdas adyacentes, no comportara ms 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 solucin:
El nmero mximo de caracteres de la frase es, en este ejemplo, inferior a 1000 y el
nmero de celdas en las que el texto se tiene que repartir se supone inferior a 100.
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)
40
* * R0GLE
20 de febrero de
2014
Next
[MANUAL BSICO PARA
EMPEZAR A TRABAJAR CON MACROS
DE VISUAL BASIC PARA
EXCEL
End Sub
6.44. ltima palabra de una frase:

Cmo conseguir con una frmula de la hoja extraer la ltima palabra de
una frase?
=DERECHA(A1;ENCONTRAR(" ";COINCIDIR(A1;LARGO(A1)FILA(INDIRECTO(""&LARGO(A1)));1);0))
6.45. Borrar el carcter de la derecha:

Cmo borrar el carcter situado ms a la derecha en una celda?
Por ejemplo, si el texto se encuentra en B10 =IZQUIERDA(B10;LARGO(B10)1)
6.46. Comprobar la presencia de una cadena de caracteres:

Cmo verificar que una cadena de caracteres se encuentre en una celda o
en una variable? =CONTAR.SI(A1;"*texto*")=1
Reenva TRUE si la cadena de caracteres (texto) se encuentra en la celda A1.
7. Pequeos Ejercicios
1- Activar la pestaa Desarrollador/Programador que habilita el uso de
Macros/Visual Basic.
2- Aadir un botn permitiendo que se le cambie el texto, el tipo de letra y el
color del botn desde Propiedades.
3- Grabar un vdeo en el que se muestre cmo mostrar la palabra "HOLA" en la
celda A1 del Excel al pulsar sobre el botn.
4- Grabar un vdeo en el que se muestre cmo mostrar una acumulacin de
"HOLA"s seguidos en la celda A1 del Excel al pulsar sobre el botn.
5- Grabar un vdeo en el que se muestre cmo mostrar una acumulacin de
"HOLA"s en varias diagonales seguidas.
41
* * R0GLE

20 de febrero de
2014
6- Crear una macro en la que apretando un botn, aparezca un formulario e
introduciendo un nmero, muestre si ste es par o impar.
7- Crear una macro en la que apretando un botn, aparezca un formulario que
permita introducir 3 valores en distintas celdas del formulario, muestre en
el mismo formulario, cul es el valor mximo y cul el valor mnimo.
8- Crear una macro en la que apretando un botn, aparezca un formulario en
el que se puedan introducir dos nmeros y escoger la operacin aritmtica
a realizar con ellos dos (suma, resta, multiplicacin o divisin) y muestre
por pantalla en el mismo formulario, el resultado de la operacin escogida.
9- Crear una macro en la que apretando un botn, se pregunte por pantalla
cuntos nmeros de la Serie de Fibonacci se quieren mostrar, y tras
escribirlo, se muestren escritos en la primera columna de la Excel tantos
nmeros (empezando en el 0) como se hayan estimado.
10-Crear una macro en la que apretando un botn, se muestre un formulario
en el que se solicite la altura y dimetro de un cilindro y muestre en el
mismo formulario como resultado la superficie y su volumen.
11-Crear una macro en la que apretando un botn, se muestre por pantalla un
formulario que pregunte nmero de Turismos, nmero de Todoterreno,
capacidad de combustible de los Turismos y capacidad de combustible de
los Todoterrenos y muestre por pantalla los requisitos totales de
combustible necesarias en total.
12-Crear una macro en la que escribiendo una serie de nmeros introducidos
por teclado en la primera columna de la Excel, y tras apretar un botn,
aparezca en dos celdas distintas de la Excel la Suma de los nmeros
introducidos y la Media de ellos.
13-Igual que el anterior, pero adems de dar el resultado, muestre al poner el
ratn encima del resultado, la frmula empleada para calcularlas.
14-Crear una macro en la que apretando un botn se muestre un formulario
para que introduciendo un nmero por teclado, y despus de pulsar un
botn, transforme el nmero introducido de grados Celsius a Farenheit y
viceversa.
15-Crear una macro en la que apretando un botn se muestre un formulario
solicitando un nmero de das, y tras introducirlo, muestre en la pantalla de
la Excel su equivalente en Horas, Minutos y Segundos. Escribiendo encima
de estos si son Horas, Minutos o Segundos.
16-Crear una macro que pregunte en un formulario un nmero de Segundos a
introducir y tras introducirlo muestre en la pantalla de la Excel la
equivalencia de esos Segundos en Das, Horas, Minutos y Segundos como
nmeros ENTEROS sin que aparezcan decimales. Escribiendo encima de
estos si son Das, Horas, Minutos o Segundos.
17-Crear una macro que tras introducir 10 nmeros en la primera columna de
la Hoja Excel, los pegue en la segunda columna en orden descendente.

20 de febrero de
2014
R0GLE

Manual Basico Visual Basic para Excel

Cargado por

Copyright:

Formatos disponibles

Manual Basico Visual Basic para Excel

Cargado por

Información del documento

Título original

Derechos de autor

Formatos disponibles

Compartir este documento

Compartir o incrustar documentos

Opciones para compartir

¿Le pareció útil este documento?

¿Este contenido es inapropiado?

Copyright:

Formatos disponibles

Manual Basico Visual Basic para Excel

Cargado por

Copyright:

Formatos disponibles

MANUAL BASICO PARA EMPEZAR A

TRABAJAR CON MACROS DE VISUAL

[MANUAL BSICO PARA EMPEZAR A TRABAJAR CON MACROS

INTRODUCCION (a propsito de Visual Basic)..........................................4

DESARROLLO DE LOS EJEMPLOS..............................................................5

Creacin de un "botn" que al apretarlo escriba HOLA....................5

Acumulacin de "HOLA"'s en la misma celda...................................6

Acumulacin de texto en varias diagonales sucesivas.....................7

Programacin de series de Fibonacci...............................................8

NUEVOS EJEMPLOS: OBTENCIN DE NMEROS PRIMOS........................18

ANEXO (Sentencias y funciones habituales)...........................................23

Problemas con variables (por qu no se dejan definir las variables?)

Dim.... As [Integer,.............................Double, String, Boolean...]:

Condicin If..., etc. (diversas posibilidades):.....................................24

6.2.2. Ejemplos de utilizacin.............................................................25

Do... Loop Until.........................................................................25

For... To... Next ........................................................................ 26

6.3.4. With ........................................................................................ 27

[MANUAL BSICO PARA EMPEZAR A TRABAJAR CON MACROS

Quitar el signo de losnmeros........................convertidos en string:

[MANUAL BSICO PARA EMPEZAR A TRABAJAR CON MACROS

Para cancelar el botn:................................................................ 31

Procedimiento que empieza con un formulario:...........................31

Otro modo de cambiar el color:....................................................31

Para abrir un formulario:..............................................................31

Para ocultar un formulario:...........................................................31

Procedimiento que empieza automticamente:...........................31

Poner bordes: ............................................................................. 32

Se mueve a la siguiente celda a la derecha:................................33

Pegado transpuesto: .................................................................. 33

Copiar un rango de una pgina a otra:.........................................33

Definicin de Rango Automtico: ............................................... 33

Formato interior de Celda: ......................................................... 34

Enteros aleatorios entre lmites:..................................................34

Suprimir los cuadraditos en un texto importado:.........................34

Seleccionar los caracteres en una celda Excel:............................35

Insertar automticamente retornos de carro................en un texto:

Extraer el cdigo postal de una direccin: Error! Marcador no

Reemplazo complejo conservando los 0:.....................................37

Espacios que no lo son:.............................Error! Marcador no

Suprimir espacios: ...................................................................... 38

Lista de las letras del alfabeto:....................................................38

Conversin de nmeros en letras:............Error! Marcador no

Extraer una cadena de texto en medio de................................otra:

Quitar los nmeros de una cadena de caracteres:.......................39

Buscar una cadena de caracteres en otra:...................................39

Trocear una frase sin cortar las palabras:.....................................40

ltima palabra de una frase:........................................................41

Insercin de un carcter especial:............Error! Marcador no

Borrar el carcter de la derecha:..................................................41

Comprobar la presencia de una....................cadena de caracteres:

7. Ejercicios Visual Basic.............................................................................. 41

[MANUAL BSICO PARA EMPEZAR A TRABAJAR CON MACROS

El documento est inicialmente dirigido a alumnos de ingeniera que con

[MANUAL BSICO PARA EMPEZAR A TRABAJAR CON MACROS

3.1. Creacin de un botn que al apretarlo escriba HOLA.

[S] Propiedades Q! Ver

Prvate 5lt ComuandEut t o nl_C1ic k()

3.2. Acumulacin de HOLA's en la misma celda.