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]

 

 

TRABAJANDO CON OBJETOS

 

A continuación veremos algunos ejemplos de cómo llamar a objetos insertados en la hoja. Botones de comando, cuadros de texto, Listas o Cuadros combinados, gráficos y otros.

1- Uso de botón de comando:

En una hoja de Excel, los botones que lanzan una acción, pueden ser colocados con la barra de Formularios o ActiveX (Cuadro de Controles).

  1. Botón de formulario: con clic derecho sobre el control, opción 'Asignar Macro' , seleccionar de la lista y Aceptar. Previamente ya tendremos nuestra macro en un módulo del Editor de Visual Basic.

Ej.1

Sub mostrando ()

  'nombre del Userform que se desea mostrar

   UserForm1.Show

End Sub

 

Ej.2

Sub ejecutando ()

  Msgbox "Estás por ejecutar el pase a libro Diario."

  'llamar a otra macro

   Call ejecutaDiario

End Sub

 

  1. Botón ActiveX: una vez dibujado en la hoja, clic derecho, opción 'Ver código' nos llevará al Editor, a la sección Código del objeto Hoja donde se encuentre el control.

Ej.1

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
 

Ej.2

Private Sub CommandButton1_Click()

  Msgbox "Estás por ejecutar el pase a libro Diario."

  'llamar a otra macro

   Call ejecutaDiario

End Sub
 

2- Asignando valores a Cuadros de texto: 

Ejemplos de cómo colocar datos en Textbox dibujados en hoja con la barra ActiveX o 'Cuadro de controles'.

 

Nota: Estas instrucciones como las del punto 3 y 4, se colocan dentro de alguna rutina general, como puede ser un botón para guardar o aceptar.

TextBox1.Value = "CANCELADO"

TextBox2 = Sheets("Hoja3").Range("A5").Value

TextBox2 = Range("C1").Value + Range("C2").Value

 

Nota:  En Textbox2 se omitió la expresión 'value' ya que esa es su propiedad predeterminada. Puede colocarse o no.

 

3- Volcar datos de controles Textbox y Combobox a la hoja:
Estos controles han sido dibujados con la barra ActiveX o 'Cuadro de controles'

'pasar datos de un control Textbox a la celda indicada :

Range("B5") = TextBox1.Value

 

'pasar el valor de un combo a la fila siguiente de la indicada en Cells(fil, col)
Sheets("Hoja1").Cells(fila, col).Offset(1, 0).Value = Combobox1.Value

 

Nota: previamente se habrá asignado un valor de fila y columa a las variables fil y col respectivamente.


4- Asignar rango a un control Listbox y Combobox:

Ej 1:
En una hoja, dibujar un Cuadro de lista y un Cuadro combinado, con la barra 'Formularios'.

En un módulo, colocar esta macro que asignará un rango de valores a los controles dibujados.

 

    Sub Lista()

'asignar rango de entrada al control Lista

ActiveSheet.Shapes("List Box 1").Select     
Selection.ListFillRange = "$F$1:$F$4"

 

'asignar rango de entrada al control Combobox
ActiveSheet.Shapes("Drop Down 1").Select
Selection.ListFillRange = "$K$1:$K$7"

End Sub

Ej 2:

En este caso el control Lista se dibujó con la barra ActiveX o Cuadro de Controles:

   

 Sub ListaX()

'asignar rango de entrada al control Lista

ActiveSheet.ListBox1.ListFillRange = "$F$1:$F$4"

End Sub

 

5- Cambiar color a serie de un gráfico.

Sub colorSeries()
ActiveSheet.ChartObjects("3 Gráfico").Activate
ActiveChart.SeriesCollection(1).Select
With Selection.Format.Fill
.ForeColor.RGB = RGB(0, 255, 0)
End With
Range("A1").Select
End Sub
 

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

::: Recomienda esta página :::

Servicio gratuito de Galeon.com