Cómo usar Microsoft Excel para administrar tu vida

No es ningún secreto que soy un fanático total de Excel. Gran parte de eso proviene del hecho de que disfruto escribiendo código VBA, y Excel combinado con scripts VBA abren todo un mundo de posibilidades.

En el pasado, aquí en MUO, he compartido algunas de las cosas que he hecho con Excel y VBA, como exportar datos de Excel a Word Cómo integrar datos de Excel en un documento de Word Cómo integrar datos de Excel en un documento de Word Durante su semana laboral, probablemente haya muchas veces que se encuentre copiando y pegando información de Excel a Word, o al revés. Así es como las personas a menudo producen informes escritos ... o envían correos electrónicos directamente desde Excel Cómo enviar correos electrónicos desde una hoja de cálculo Excel usando scripts de VBA Cómo enviar correos electrónicos desde una hoja de cálculo Excel usando scripts de VBA Nuestra plantilla de código lo ayudará a configurar correos electrónicos automáticos desde dentro Excel utilizando Collaboration Data Objects (CDO) y scripts VBA. . Por supuesto, si no es muy codificador, siempre puede obtener aplicaciones de Excel que alguien más ha escrito, como las que figuran en Simon Top 3 sitios web para descargar programas gratuitos de Excel útiles Top 3 sitios web para descargar programas útiles de Excel gratuitos .

Sin embargo, si te tomas en serio el uso de Excel para administrar más de tu vida, entonces debes tomarte el tiempo para aprender cómo funciona la codificación VBA. Para ayudar con eso, he decidido compartir un “Automatización” hoja de cálculo que he creado para administrar diferentes áreas de mi vida. Esta hoja de cálculo tiene 4 pestañas y cubre todo, desde agrupar enlaces de URL que quiero lanzar de una vez, hasta administrar mi deuda y pagarla más rápido.

Si desea mejorar su uso de Excel, lo invito a seguirlo mientras comparto algunos de estos diseños, y simples secuencias de comandos, que utilicé para realizar estas tareas..

Administrando tu vida con Excel

Microsoft Excel no es solo una hoja de cálculo de datos. En realidad es una plataforma de diseño para aplicaciones. Si lo mira de esa manera, puede darse cuenta de cuánto puede lograr con la aplicación.

Mire una hoja como un tablero de diseño donde puede colocar objetos de formulario de Visual Basic como botones de comando, cuadros desplegables, cuadros de texto y cualquier otra cosa. No solo puede colocarlos en cualquier lugar de la hoja, sino que puede usar esos objetos para agregar, eliminar o manipular información de forma interactiva (o automática) en la hoja.

Monitoreando sus sitios web

He probado muchas herramientas diferentes para hacer ping a los diferentes sitios web que administro, como el ICMP Ping Manager Supervisar dispositivos y sitios web de red con ICMP Ping Manager Supervisar dispositivos y sitios web de red con ICMP Ping Manager Tanto en el trabajo como en el hogar, a menudo encuentro que necesito verificar el estado de mis PC, impresoras, servidores u otros dispositivos de red. En estos días, con tantos dispositivos haciendo uso ... Pero, no hace mucho, descubrí una forma de hacer ping a los sitios web desde el interior de un script Excel VBA. Eso significaba que podía agregar una hoja a mi “Automatización” libro de trabajo que haría ping a todos los sitios web que administro, y pondría los resultados en una celda junto al nombre del sitio web.

Así es como coloqué la hoja.

El número “4 4” en la celda B1 se usa para mostrar el recuento de sitios web que he instalado en la hoja. Esto permitirá que el script solo cuente a través del número de celdas que realmente tienen sitios listados, comenzados en A3.

El código para lograr esto se ve así:

Dim intSiteCount As Integer Dim intCount As Integer Dim oPing As Object, oRetStatus As Object Dim sHost As String Dim sPing As String Dim intCol As Integer Dim intRow As Integer intSiteCount = CInt (Sheet1.Cells (1, 2) .Value) intRow = 3 Para intCount = 1 Para intSiteCount sPing = "" Sheet1.Cells (intRow, 2) = sPing intRow = intRow + 1 Siguiente intRow = 3 Para intCount = 1 Para intSiteCount sHost = Sheet1.Cells (intRow, 1) Establecer oPing = GetObject ( "winmgmts: impersonationLevel = impersonate"). ExecQuery _ ("select * from Win32_PingStatus where address = '" & sHost & "'") Para cada oRetStatus en oPing If IsNull (oRetStatus.StatusCode) o oRetStatus.StatusCode 0 Then = "Error de ping" Else sPing = sHost & "Ping Success on" & Now () & Chr (10) sPing = sPing & "Time (ms) =" & vbTab & oRetStatus.ResponseTime & Chr (10) sPing = sPing & "TTL (s) =" & vbTab & vbTab & oRetStatus.ResponseTimeToLive End If Next Sheet1.Cells (intRow, 2) = sPing intRow = intRow + 1 Next

El primero “por” mire la parte superior solo pasa por las celdas de resultados y borra los resultados de la última vez que ejecuté una verificación. El segundo bucle FOR cuenta a través de las filas que enumeran los sitios web, comenzando en la tercera fila (intRow-3), ejecuta el comando Ping (la línea Set oPing) y luego devuelve los resultados en la columna B (Sheet1.Cells (intRow, 2 ) = sPing).

Así es como se ven esos resultados después de que se ejecuta el script.

La columna de resultados muestra si el ping fue exitoso y los detalles de Tiempo / TTL.

Si no está familiarizado con agregar botones de comando a una hoja de Excel, puede agregar el botón desde “Desarrollador” menú, y haciendo clic en el “Insertar” botón y elegir el botón de la lista. Dibuje el botón en la hoja, haga clic derecho sobre él y luego seleccione “Asignar macro”.

Escriba el nombre de la Macro para ese botón y haga clic en “Nuevo”.

Esto abrirá la pantalla de código donde puede insertar el código desde arriba.

Mantener una biblioteca de grupos de enlaces

En otra pestaña, también comencé a organizar el grupo de enlaces que utilizo para realizar ciertas tareas. Por ejemplo, cuando escribo para MUO, me gusta abrir el editor de MUO WordPress, google y nuestra página de Google Docs para temas. Cuando busco temas de Top Secret Writers, me gusta abrir algunas páginas de medios estándar.

Cuando hago clic en el “Grupo de lanzamiento” botón, iniciará el navegador web predeterminado y abrirá todas las páginas de ese grupo. Así es como se ve el script para cada botón:

Dim intSiteCount As Integer Dim intCount As Integer Dim intCol As Integer Dim intRow As Integer intSiteCount = CInt (Sheet2.Cells (4, 3) .Value) intRow = 5 For intCount = 1 To intSiteCount ActiveWorkbook.FollowHyperlink (SheetR.Cells 2)) intRow = intRow + 1 Siguiente

Este script es simple pero efectivo. El secreto de este es el “Seguir Hipervínculo” función. Este código verificará la cantidad de enlaces definidos en la celda justo a la derecha del título del grupo, y sabe ejecutar a través de tantos enlaces antes del título. Para cada botón, la ubicación del recuento de enlaces y la columna que se usa debe escribirse manualmente en el código, pero el resto del código es idéntico para cada botón.

Vista previa de su galería de imágenes

En la siguiente pestaña de mi hoja de trabajo de automatización es a donde voy cuando quiero ejecutar rápidamente todas las imágenes en mi carpeta de imágenes. Hago esto porque coloco más que solo imágenes en esa carpeta y quiero ver todos los archivos que tengo allí.

Esto es lo que parece después de hacer clic en el “Vista previa de fotos” botón.

En este momento actualizo manualmente esta hoja eliminando todas las imágenes de la columna B y luego haciendo clic en el “Vista previa de fotos” botón.

El botón ejecuta el siguiente script:

Dim myPict As StdPicture Dim strFilePath As String Dim intRow As Integer Dim myPictName As Variant Dim myCell As Range Dim sPicture As String Dim strTest As String Dim myRng As Range Dim intSkip As Integer intRow = 2 strFilePath = Sheet3.Cells (1, 3). Valor Establecer myObject = Nuevo Scripting.FileSystemObject Establecer mySource = myObject.GetFolder (strFilePath) En error Reanudar a continuación con Sheet3 Establecer myRng = Sheet3.Range ("B2", .Cells (.Rows.Count, "B"). End (xlUp )) Termine con para cada archivo mySource.Files 'Si la imagen es un archivo If Right (myfile, 4) = ".gif" Or Right (myfile, 4) = ".jpg" Or Right (myfile, 4) = " .bmp "Or Right (myfile, 4) =" .tif "Or Right (myfile, 4) =" .png "Entonces Sheet3.Cells (intRow, 1) .Value =" "Sheet3.Cells (intRow, 1). Valor = myfile.Name intSkip = 0 Para cada myCell en myRng.Cells If intSkip = 1 Entonces con myCell.Offset ((intRow - 3) + 1, 0) Sheet3.Shapes.AddPicture myfile.Path, msoCTrue, msoCTrue, .Left , .Top, 125, 125 Fin con Fin If intSkip = intSkip + 1 Siguiente myCell End If intRow = intRow + 1 Siguiente

El secreto de este script es usar el objeto StdPicture, que le permite ordenar imágenes superpuestas en la ubicación de ciertas celdas, definiendo las propiedades superior e izquierda de la imagen para que coincidan con las de la celda. Solo asegúrese de dimensionar las celdas un poco más grandes de lo que define en el código. En mi situación, usé 125 alto y ancho para las imágenes, por lo que mis celdas se configuran un poco más grandes que eso con anticipación.

Administrando su deuda

La pestaña final que quiero compartir es en realidad una que escribí hace un tiempo sobre el uso de Excel para crear un presupuesto personal Haga un presupuesto personal en Excel en 4 pasos sencillos Haga un presupuesto personal en Excel en 4 pasos sencillos ¿Tiene tanto? deuda que llevará décadas saldar? Es hora de hacer un presupuesto y aplicar algunos trucos de Excel para ayudarlo a pagar su deuda antes. .

El concepto más importante sobre el que escribí en ese artículo, y uno que pertenece a cualquier artículo sobre el uso de Excel para administrar su vida, es usar Excel para calcular cómo “efecto bola de nieve” puede ayudarlo a pagar su deuda.

El concepto es muy simple. Enumere todas las deudas de su tarjeta de crédito en una hoja, con dos columnas por deuda: saldo total y pago. El cálculo para cada celda de pago posterior es “PrevBalance + (PrevBalance * 0.10 / 12) - último pago”

Luego, puede arrastrar todos los valores hacia abajo en la hoja y se volverán a calcular, mostrando cuán rápido disminuirá su saldo a medida que realice esos pagos. Como puede ver, hacer un pago por deuda hasta que se pague cada deuda pagará eventualmente cada deuda individual.

Pero gracias al poder de cálculo rápido de Excel, puede determinar cuándo se pagarán los saldos y, en ese momento, tomar el saldo mínimo para esa tarjeta y pasarla a otra tarjeta que aún no se haya pagado. Como muestra la hoja de cálculo, cada saldo subsiguiente se paga mucho más rápido.

Excel le permite calcular y visualizar rápidamente cómo sus pagos afectarán las fechas de pago futuras, y también le brinda un cronograma para mirar hacia atrás mientras intenta asegurarse de que está en camino de pagar esas deudas..

Como puede ver, Excel es una herramienta muy poderosa cuando se trata de administrar todos los aspectos de su vida, ya sea su trabajo, administración de archivos o su presupuesto..

¿Tiene algún uso único para Excel para administrar su propia vida? Comparta algunos de sus propios consejos y sugerencias en la sección de comentarios a continuación..

Crédito de imagen: lupa a través de Shutterstock