Archive

Posts Tagged ‘Application’

Uso de la propiedad StatusBar en vba Excel

July 16, 2011 2 comments

El objeto Application, el cual se refiere a Excel como aplicación, entre sus tantas propiedades tenemos la de StatusBar, la cual puede usarse como un perfecto auxiliar visual al momento de que ejecutamos nuestra macros, ya que muestra un texto definido o variable en la barra de estado de Excel.

Cómo funciona ??

La barra de estado acepta sólo texto, por lo tanto podremos asignarle cualquier valor alfanumérico. StatusBar es una propiedad de Application, así que si tecleamos el nombre del objeto y terminamos con un punto, saldrán todas las propiedades y métodos, incluido la que nos compete.

Imagen de ejemplo

image

Ejemplos

Antes de ver los ejemplos, te comento que muchos programadores utilizan esta propiedad aunada a la propiedad ScreenUpdating, para mostrar el progreso de sus macros sin tener que mostrar todos los pasos de la macro.

Sub LiberarBarraDeEstado()
'Nos permite dejar lista la barra de estado para asignarle nuevos valores
'y/o dejarle el contro a Excel.
Application.StatusBar = False
End Sub
Sub PonerTextoEnBarraDeEstado()
'Definimos una cadena de texto para que se muestre en la barra de estado.
Dim MiValor As String
MiValor = "Ejemplo de texto en barra de estado"
Application.StatusBar = MiValor
End Sub
Sub PonerAlfaNumericoEnBarraDeEstado()
'Definimos una operación matemática para que se muestre en la barra de estado.
Dim Valor1 As Integer, Valor2 As Integer, Resultado As Integer
Dim Texto As String
Valor1 = 10
Valor2 = 40
Resultado = Valor1 + Valor2
Texto = "La suma de " & Valor1 & " y  " & Valor2 & " es igual a " & Resultado
Application.StatusBar = Texto
End Sub
Sub MostrarNombreHojaYArchivo()
'Se mostrará el nombre del archivo y de la hoja activa. Aquí los datos son variables.
Dim NombreArchivo As Variant, NombreHoja As Variant
NombreArchivo = Application.ThisWorkbook.Name
NombreHoja = Application.ActiveSheet.Name
Texto = "Mi archivo se llama " & NombreArchivo & " y la hoja activa se llama " & NombreHoja
Application.StatusBar = Texto
End Sub
Categories: Excel, Trucos, vba Tags: , , , ,

Hora real en Excel con OnTime

July 2, 2011 2 comments

El presente ejemplo funciona con el método OnTime, y se desarroló para mostrar la hora real en un WordArt, que a su vez, está vinculado con una celda que actualiza la hora cada segundo, haciendo el efecto de un reloj digital.

Imagen del ejemplo:

image

Código del ejemplo:

Private Sub Workbook_Open()
Call Reloj
End Sub
'
Sub Reloj()
Range("A2").Formula = "=NOW()"
Application.OnTime Now + TimeValue("00:00:01"), "reloj"
End Sub

:: Descarga el ejemplo EXCELeINFO – Hora real

Categories: Excel, vba Tags: , , , , ,

EXCELeINFO Add-in: opciones de vista

Se crea un formulario para este Add-in que permite elegir las diferentes opciones de vista de las hojas de cálculo y la aplicación Excel.

Nota: la mayoría de las opciones se habilitan mediante el objeto Application.

Además, para todos aquellos que gustan de hacer pruebas con sus macros, se añade un botón para restaurar aquellas opciones del objeto Application que más se utilizan en dichas pruebas:

:: Descargar EXCELeINFO add-in 2.2.1

Categories: Excel, vba Tags: , ,