INICIO FUNCIONES MACROS VBA MANUALES GUÍAS TEMÁTICAS

APLICACIONES

EJEMPLOS

    cibersoft_arg@yahoo.com.ar     cibersoft.arg@gmail.com    .

 

MAPA DEL SITIO

INICIO

MANUALES

Herramientas Excel

Programación VBA

Formularios Excel

(Para Excel xls y xlsm)

 

GUÍAS TEMÁTICAS

Listas desplegables

Comparando datos

Imágenes en Excel

Correo desde Excel

Mover-Copiar datos

 Bucles

 

APLICACIONES

Gestor de Ventas

Gestor de Documentos

Gestor Contable

Gestor Consorcios

 

HERRAMIENTAS y FUNCIONES

Novedades Excel 2013

Herramientas nuevas

Ejemplo de funciones

Lista completa de funciones

(2003 al 2013 - descarga)

 

MACROS VBA

Conceptos básicos

Referencias a objetos

Instrucciones básicas

Trabajando con Libros
Trabajando con hojas
Trabajando con celdas
Trabajando con bucles
Trabajando con objetos

 

EJEMPLOS (descarga gratuita)

 

 

 

 

 

MANUALES PARA LAS 2  VERSIONES EXCEL

(xlsm y xls)

    

   

 

 

 

 

 

 

Página:    Anterior   1  2  3  4  5  [6]  7   Siguiente

 

 

TRABAJANDO CON COLECCIONES (uso de Bucles)

 

En esta sección veremos algunas instrucciones 'básicas' para utilizarlas con COLECCIONES.

 

Una colección es un conjunto de objetos del mismo tipo: hojas, celdas, controles o Shapes, imágenes.

 

Para trabajar con una colección se programa un bucle: es decir repetir la misma instrucción para cada elemento de la colección.

 

A continuación algunos ejemplos de  los bucles: For Each....Next, For i = n ... Next , While.....Wend

 

* Todos los tipos de bucles se encuentran desarrollados en la Guía Temática N 6 (+ de 40 ejemplos).

 

 

Ejemplo1: introducir un nombre para cada hoja del libro activo. Esta rutina se coloca en un módulo:

 

Sub nombraHojas()
Dim MiNombre As String
Dim hoja As Worksheet

'controla posible error al ingresar un nombre de hoja no válido

On Error Resume Next
For Each hoja In Worksheets
   MiNombre = InputBox("Ingrese nombre para esta hoja: ")
   If MiNombre <> "" Then hoja.Name = MiNombre
Next hoja
End Sub

 

 

Ejemplo2: introducir valores para cada celda de un rango (se coloca en un módulo)

 

Sub colocaValores()

Dim celdita as Range
For Each celdita in ActiveSheet.Range("A1:B10")
    celdita.Value = InputBox("Ingrese valor: ")
Next celdita

End Sub

 

 

Ejemplo3: introducir los mismos valores en celdas de todas las hojas (se coloca en un módulo)

 

Sub valoresHoja()

Dim hoja as Sheets
For Each hoja in Sheets
    hoja.Range("E3").Value = Date
    hoja.Range("F3").Value = Time
Next hoja

End Sub

 

 

 

Ejemplo4: realizar una acción por cada valor que tome una variable i (se coloca en un módulo)

 

Sub muestraNombre()

Dim i as Byte
Dim hoja as Worksheet

'se controla posible error de que no existan tantas hojas

On Error Resume Next
For i=1 to 5
   Msgbox WorkSheets(i).Name
Next

End Sub

 

En este ejemplo se muestra el nombre de cada hoja, desde la nro 1 a la 5

 

 

 

Ejemplo5: realizar una acción mientras se cumpla una condición (se coloca en un módulo)

 

Sub recorreRango()

'Se recorre la col A a partir de la fila 2 hasta encontrar una celda vacía.

'El valor de cada celda se incrementa en 1

Range("A2").Select

'se controla posible error de que la celda contenga texto

On Error resume next
While Activecell.Value <> ""
ActiveCell.Value = ActiveCell.Value + 1

'pasa a la fila siguiente

ActiveCell.Offset(1,0).Select

Wend

End Sub

 

Página:    Anterior   1  2  3  4  5  [6]  7   Siguiente

 

::: Recomienda esta página :::

Servicio gratuito de Galeon.com