Cómo utilizar microsoft excel para manejar su vida

No es ningún secreto que soy un fanboy total de Excel. Gran parte de lo que viene del hecho de que me gusta escribir código VBA y Excel combinada con los scripts VBA abren un mundo de posibilidades.

Vídeo: Nivel básico - Video 1- Introducción a Excel 2016

En el pasado, aquí en MUO, he compartido algunas de las cosas que he hecho con Excel y VBA, como exportar datos de Excel en Word o el envío de correos electrónicos directamente desde Excel. Por supuesto, si usted no es mucho de un codificador, siempre se puede obtener aplicaciones de Excel otra persona ha escrito, como las enumerado por Simon.Cómo integrar datos de Excel en un documento de WordCómo integrar datos de Excel en un documento de WordDurante su semana de trabajo, es probable que haya un montón de veces en que sienta que copiar y pegar información de Excel en Word, o al revés. Así es como la gente a menudo producen informes escritos ...Lee mas

Sin embargo, si usted es serio sobre el uso de Excel para administrar más de su vida, entonces usted debe tomar el tiempo para aprender VBA codificación de obras. Para ayudar con eso, he decidido compartir una hoja de cálculo “Automatización” que he creado para gestionar las diferentes áreas de mi vida. Esta hoja de cálculo tiene 4 pestañas y cubre todo, desde la agrupación de enlaces de URL que quiero poner en marcha a la vez, a la gestión de mi deuda y pagarla más rápido.

Si desea mejorar su uso de Excel, los invito a lo sigue al compartir algunos de estos diseños - y secuencias de comandos simples - que he utilizado para realizar estas tareas.

Administración de su vida con Excel

Microsoft Excel no es sólo una hoja de cálculo de datos. En realidad, es una plataforma de diseño de aplicaciones. Si se mira de esa manera, es posible darse cuenta de lo mucho que se puede lograr con la aplicación.

Mira una hoja como una tabla de diseño donde se pueden colocar los objetos de formulario de Visual Basic, como botones de comando, cuadros desplegables, cuadros de texto y cualquier otra cosa en absoluto. No sólo se puede colocar en cualquier lugar de la hoja, pero se puede utilizar aquellos objetos que de forma interactiva (o automáticamente) añadir, eliminar o manipular información en la hoja.

La supervisión de los sitios web

He intentado un montón de diferentes herramientas para hacer ping a los diferentes sitios web que administro, como el ICMP Ping Director. Sin embargo, no hace mucho tiempo he descubierto una manera de hacer ping a sitios web desde la derecha dentro de una secuencia de comandos de Excel VBA. Eso quiere decir, que podría añadir una hoja de mi libro “Automatización” que ping a todos los sitios web que administro, y poner los resultados en una celda al lado del nombre del sitio web.Monitorear dispositivos y sitios web con gestor de la red ICMP PingMonitorear dispositivos y sitios web con gestor de la red ICMP PingTanto en el trabajo como en el hogar, a menudo me parece que tengo una necesidad de comprobar el estado de mis PC, impresoras, servidores u otros dispositivos de red. En estos días, con tantos dispositivos haciendo uso ...Lee mas

Esta es la forma en que puse la hoja.

El número “4” en la celda B1 se utiliza para mostrar el número de sitios web que he instalado en la hoja. Esto permitirá que el guión para contar sólo a través del número de células que han hecho sitios mencionados, se inició a A3.

El código de lograr esto es el siguiente:

Dim intSiteCount Como IntegerDim intCount Como IntegerDim oping como objeto, oRetStatus Como ObjectDim sHost Como StringDim Sping Como StringDim INTCOL Como IntegerDim intRow Como IntegerintSiteCount = CInt (Sheet1.Cells (1, 2) .Value) intRow = 3Porque intCount = 1 Para intSiteCountsPing = ""Sheet1.Cells (intRow, 2) = sPingintRow = intRow + 1NextintRow = 3Porque intCount = 1 Para intSiteCountsHost = Sheet1.Cells (intRow, 1) Conjunto oping = GetObject ("winmgmts: {} suplantar ImpersonationLevel =") .ExecQuery _ ("seleccionar * de Win32_PingStatus dirección donde = `" & sHost & "`") Para cada oRetStatus En oPingIf IsNull (oRetStatus.StatusCode) O oRetStatus.StatusCode lt; gt; 0 ThensPing = "ping incorrectos"ElsesPing = sHost & " El éxito en Ping " & Ahora() & Chr (10) Sping = Sping & "Tiempo (ms) = " & vbTab & oRetStatus.ResponseTime & Chr (10) Sping = Sping & "TTL (s) = " & vbTab & vbTab & oRetStatus.ResponseTimeToLiveEnd IfNextSheet1.Cells (intRow, 2) = sPingintRow = intRow + 1Siguiente

La primera “para” mire en la parte superior simplemente pasa a través de las células resultados y borra los resultados de la última vez que me encontré con un cheque. El segundo bucle FOR cuenta a través de las filas una lista de los sitios web, a partir de la tercera fila (intRow-3), lleva a cabo el comando ping (la línea Set oping) y, a continuación, devuelve los resultados en la columna B (Sheet1.Cells (intRow, 2 ) = sping).

He aquí cómo esos resultados se ven después de que el script se ejecuta.

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

Si no está familiarizado con la adición de botones de comando a una hoja de Excel, puede agregar el botón del menú “desarrolladores”, y haciendo clic en el botón “Insertar” y eligiendo el botón de la lista. Dibuje el botón en la hoja, haga clic derecho sobre él y 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 en el que puede insertar el código de arriba.

El mantenimiento de una biblioteca de enlace Grupos

En otra pestaña, también empecé 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 investigo para Top Secret temas escritores, me gusta abrir algunas páginas de papel estándar.

Cuando hago clic en el botón “Grupo de Lanzamiento”, que lanzará el navegador web por defecto y abrir todas las páginas de ese grupo. Así es como el guión de cada botón se ve:

Dim intSiteCount Como IntegerDim intCount Como IntegerDim INTCOL Como IntegerDim intRow Como IntegerintSiteCount = CInt (Sheet2.Cells (4, 3) .Value) intRow = 5Porque intCount = 1 a intSiteCountActiveWorkbook.FollowHyperlink (Sheet2.Cells (intRow, 2)) intRow = intRow + 1Siguiente

Este script es simple pero eficaz. El secreto a ésta es la función “FollowHyperlink”. Este código se compruebe la cantidad de enlaces definidos en la celda justo a la derecha del título del grupo, y conoce a ejecutar a través de esa cantidad de enlaces antes del título. Para cada botón, la ubicación del número de enlaces, y la columna se utilizan necesidades que ser escrito manualmente en el código, pero el resto del código es idéntico para cada botón.

Vista previa de la Galería de Fotos

En la siguiente pestaña de mi hoja de trabajo de automatización es donde voy cuando quiero correr rápidamente a través de todas las imágenes en mi carpeta de imágenes. Lo hago porque me pongo algo más que imágenes en esa carpeta, y quiero ver todos los archivos que tengo allí.

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

Vídeo: Tutorial Excel 2016 | Español

En este momento puedo actualizar manualmente esta hoja mediante la supresión de todas las imágenes de la columna B, y luego hacer clic en el botón “Vista previa de fotos”.

El botón se ejecuta la siguiente secuencia de comandos:

myPict Dim Como StdPictureDim strFilePath Como StringDim intRow Como IntegerDim myPictName Como VariantDim myCell Como RangeDim sPicture Como StringDim strTest Como StringDim myRng Como RangeDim intSkip Como IntegerintRow = 2strFilePath = Sheet3.Cells (1, 3) .ValueSet myObject = New Scripting.FileSystemObjectSet miFuente = myObject .GetFolder (strFilePath) On Error Resume NextWith Sheet3Set myRng = Sheet3.Range ("B2", .Cells (.Rows.Count, "segundo") .End (xlUp)) End WithFor Cada mi_archivo En mySource.Files`If imagen es un derecho fileIf (mi_archivo, 4) = ".gif" O Derecha (mi_archivo, 4) = ".jpg" O Derecha (mi_archivo, 4) = ".bmp" O Derecha (mi_archivo, 4) = ".tif" O Derecha (mi_archivo, 4) = ".png" ThenSheet3.Cells (intRow, 1) .Value = ""Sheet3.Cells (intRow, 1) .Value = myfile.NameintSkip = 0º Cada myCell En myRng.CellsIf intSkip = 1 ThenWith myCell.Offset ((intRow - 3) + 1, 0) Sheet3.Shapes.AddPicture myfile.Path, msoCTrue , msoCTrue, .Left, .Top, 125, 125End conend IfintSkip = intSkip + 1Siguiente myCellEnd IfintRow = intRow + 1Siguiente

El secreto de este script está utilizando el objeto StdPicture, lo que le permite ordenar de superposición de imágenes en la ubicación de ciertas células, mediante la definición de las propiedades izquierda y superior de la imagen para que coincida con el de la célula. Sólo asegúrese de que el tamaño de las células ligeramente más grande que lo que se define en el código. En mi situación Solía ​​125 altura y la anchura de las imágenes, por lo que mis células se fijan ligeramente mayor que antes de tiempo.

Administración de su deuda

La pestaña final que quiero compartir es en realidad uno que escribí hace un tiempo sobre el uso de Excel para crear un presupuesto personal.Hacer un presupuesto personal de Excel en 4 sencillos pasosHacer un presupuesto personal de Excel en 4 sencillos pasosHace unos 10 años, mi esposa y yo estábamos a horcajadas con tanta deuda que pensamos que iba a tomar el resto de nuestras vidas, o al menos los próximos sesenta años, a pagarlo ...Lee mas

El concepto más importante que escribí en ese artículo, y uno que pertenece en cualquier artículo sobre el uso de Excel para manejar su vida, está utilizando Excel para calcular el “efecto bola de nieve” puede ayudarle a pagar su deuda.

El concepto es bastante simple. Enumerar todos los de su lado de la deuda de tarjeta de crédito a lado en una hoja, con dos columnas por la deuda - saldo total y el pago. El cálculo para cada celda pago posterior es “PrevBalance + (PrevBalance * 0,10 / 12) - último pago”

A continuación, puede arrastrar todos los valores de la hoja hacia abajo y van a calcular de nuevo, mostrando la rapidez con su saldo se reducirá a medida que haga esos pagos. Como se puede ver, hacer un pago por la deuda hasta que cada deuda se paga con el tiempo la liquidación de cada deuda individual.

Pero gracias a la potencia de cálculo de Excel rápida, se puede determinar cuando los saldos se pagarán, y en ese momento tomar el saldo mínimo para esa tarjeta y moverlo a otra tarjeta aún no pagado. Como muestra de hoja de cálculo, cada balance posterior se le paga mucho más rápido.

Excel le permite calcular y visualizar rápidamente cómo sus pagos afectarán las futuras fechas de rentabilidad, y que también le da un horario para mirar hacia atrás en el tiempo que está tratando de asegurarse de que estás en el camino correcto en el pago de las deudas.

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

¿Tiene alguna usos únicos para Excel para gestionar su propia vida? Compartir algunos de sus propios consejos y asesoramiento en la sección de comentarios.