Comment utiliser Microsoft Excel pour gérer votre vie

Ce n'est un secret pour personne que je suis un fan complet d'Excel. Cela vient en grande partie du fait que j'aime écrire du code VBA et qu'Excel, associé aux scripts VBA, ouvre tout un monde de possibilités..

Dans le passé, ici, chez MUO, j'ai partagé quelques-unes des choses que j'ai faites avec Excel et VBA, comme exporter des données Excel dans Word. Intégration de données Excel dans un document Word. Intégration de données Excel dans un document Word. Au cours de votre semaine de travail, vous êtes probablement souvent obligé de copier et de coller des informations d'Excel dans Word, ou inversement. C’est ainsi que les gens produisent souvent des rapports écrits… Lire plus ou envoyer des courriels directement à partir d’Excel Comment envoyer des courriels à partir d’une feuille de calcul Excel à l’aide de scripts VBA Comment envoyer des courriels à partir d’une feuille de calcul Excel Utiliser des scripts VBA Notre modèle de code vous aidera à configurer des courriels automatisés depuis Excel à l’aide de CDO (Collaboration Data Objects) et de scripts VBA. Lire la suite . Bien sûr, si vous n'êtes pas un grand programmeur, vous pouvez toujours obtenir des applications Excel, telles que celles répertoriées par Simon. Top 3 des sites Web pour télécharger des programmes Excel gratuits et utiles. Top 3 des sites Web pour télécharger des programmes Excel gratuits et utiles. En savoir plus .

Toutefois, si vous envisagez sérieusement d'utiliser Excel pour gérer davantage votre vie, prenez alors le temps de comprendre le fonctionnement du codage VBA. Pour aider avec cela, j'ai décidé de partager un “Automatisation” tableur que j'ai créé pour gérer différents domaines de ma vie. Cette feuille de calcul comporte 4 onglets et couvre tout, du regroupement des liens d’URL que je souhaite lancer en une fois, à la gestion de ma dette et au remboursement plus rapide..

Si vous souhaitez améliorer votre utilisation d'Excel, je vous invite à suivre, car je partage quelques-uns de ces concepts - et de simples scripts - que j'ai utilisés pour accomplir ces tâches..

Gérer votre vie avec Excel

Microsoft Excel n'est pas simplement une feuille de calcul. C'est en fait une plate-forme de conception d'applications. Si vous le regardez de cette façon, vous réaliserez peut-être tout ce que vous pouvez accomplir avec l’application..

Regardez une feuille comme un tableau de conception où vous pouvez placer des objets de formulaire Visual Basic tels que des boutons de commande, des zones de liste déroulante, des zones de texte et tout autre élément. Vous pouvez non seulement les placer n'importe où sur la feuille, mais vous pouvez également utiliser ces objets pour ajouter, supprimer ou manipuler de manière interactive (ou automatique) des informations sur la feuille..

Surveiller vos sites Web

J'ai essayé de nombreux outils pour cingler les différents sites Web que je gère, tels que les périphériques réseau et les sites Web ICMP Ping Manager Monitor avec ICMP Ping Manager les périphériques réseau et les sites Web ICMP Ping Manager, au travail et à la maison, souvent constate que j’ai besoin de vérifier l’état de mes PC, imprimantes, serveurs ou autres périphériques réseau. De nos jours, avec autant d'appareils utilisés… Lire la suite. Mais, il n’ya pas longtemps, j’ai découvert un moyen de faire un ping vers des sites Web à partir d’un script VBA Excel. Cela signifiait que je pouvais ajouter une feuille à mon “Automatisation” classeur qui envoie une requête ping à tous les sites Web que je gère et place les résultats dans une cellule à côté du nom du site.

Voici comment j'ai disposé la feuille.

Le nombre “4” dans la cellule B1, le nombre de sites Web que j'ai installés sur la feuille est affiché. Cela permettra au script de ne compter que dans le nombre de cellules contenant réellement des sites, commençant à A3..

Le code pour accomplir ceci ressemble à ceci:

Dim intSiteCount As Entier Dim intCount As Entier Dim Dim En tant qu'objet, oRetStatus As Object Dim sHost As String Dim sPing As String Dim IntCol As Integer Dim intRow As Integer intSiteCount = CInt (Sheet1.Cells (Sheet1.Cells (1, 2) .Value) intRow = 3 Pour intCount = 1 To intSiteCount sPing = "" Sheet1.Cells (intRow, 2) = sPing intRow = intRow + 1 Next intRow = 3 Pour intCount = 1 vers intSiteCount sHost = Sheet1.Cells (intRow, 1) Définissez oPing = GetObject ( "winmgmts: impersonationLevel = impersonate"). ExecQuery _ ("select * from Win32_PingStatus où address = '" & sHost & "'") pour chaque oRetStatus dans oPing If IsNull (oRetStatus.StatusCode) ou oRetStatus.SonSus Puis sPing = "Ping Failed", sinon sPing = sHost & "Succès Ping sur" & Now () & Chr (10) sPing = sPing & "Time (ms) =" & vbTab & oRetStatus.ResponseTime & Chr (10) sPing = sPing & "TTL (s) =" & vbTab & vbTab & oRetStatus.ResponseTimeToLive Fin si Next Sheet1.Cells (intRow, 2) = sPing intRow = intRow + 1 Suivant

La première “Pour” En haut, il suffit de parcourir les cellules de résultats et d'effacer les résultats de la dernière fois où j'ai effectué un contrôle. La deuxième boucle FOR compte dans les lignes répertoriant les sites Web, à partir de la troisième ligne (intRow-3), exécute la commande Ping (la ligne Set oPing), puis renvoie les résultats dans la colonne B (Sheet1.Cells (intRow, 2 ) = sPing).

Voici à quoi ressemblent ces résultats après l'exécution du script.

La colonne de résultats indique si le ping a réussi et les détails Heure / TTL.

Si vous n’êtes pas habitué à ajouter des boutons de commande à une feuille Excel, vous pouvez ajouter le bouton à partir de “Développeur” menu et en cliquant sur le bouton “Insérer” bouton et en choisissant le bouton dans la liste. Dessinez le bouton sur la feuille, cliquez dessus avec le bouton droit de la souris, puis sélectionnez “Affecter une macro”.

Tapez le nom de la macro pour ce bouton, puis cliquez sur “Nouveau”.

Cela ouvrira l'écran de code où vous pourrez insérer le code ci-dessus.

Maintenir une bibliothèque de groupes de liens

Sur un autre onglet, j'ai également commencé à organiser le groupe de liens que j'utilise pour effectuer certaines tâches. Par exemple, lorsque j'écris pour MUO, j'aime bien ouvrir l'éditeur MUPress WordPress, Google et notre page Google Documents pour les rubriques. Lorsque je recherche des sujets relatifs aux auteurs Top Secret, j'aime ouvrir quelques pages de médias standard.

Quand je clique sur le “Groupe de lancement” bouton, il lancera le navigateur Web par défaut et ouvrira toutes les pages de ce groupe. Voici à quoi ressemble le script de chaque bouton:

Dim intSiteCount As Entier Dim intCount As Entier Dim intCol As Integer Dim intRow As Integer intSiteCount = CInt (Sheet2.Cells (4, 3) .Value) intRow = 5 pour intCount = 1 Vers intSiteCount ActiveWorkbook.FollowHyperlink (Sheet2.Cell, 2)) intRow = intRow + 1 Suivant

Ce script est simple mais efficace. Le secret de celui-ci est le “SuivreHyperlien” une fonction. Ce code vérifie le nombre de liens définis dans la cellule juste à droite du titre du groupe et sait exécuter autant de liens que le titre. Pour chaque bouton, l'emplacement du nombre de liens et la colonne utilisée doivent être saisis manuellement dans le code, mais le reste du code est identique pour chaque bouton..

Prévisualiser votre galerie de photos

L'onglet suivant de ma feuille de travail d'automatisation indique où je vais quand je souhaite parcourir rapidement toutes les images de mon dossier d'images. Je le fais parce que je place plus que des images dans ce dossier et que je veux voir tous les fichiers que j'ai là.

Voici à quoi ça ressemble après avoir cliqué sur le bouton “Aperçu des photos” bouton.

En ce moment, je mets à jour manuellement cette feuille en supprimant toutes les photos de la colonne B, puis en cliquant sur le bouton “Aperçu des photos” bouton.

Le bouton exécute le script suivant:

Dim myPict As StdPicture Dim strFilePath As String Dim IntRow As Entier Dim myPictName As Variant Dim DimCell As Range Dim sPicture As String DimTime As Chaîne Dim myRng As Range Dim IntSkip As Entier intRow = 2 strFilePath = Sheet3.Cells (1, 3). Valeur Set myObject = New Scripting.FileSystemObject Set mySource = myObject.GetFolder (strFilePath) En cas d'erreur Reprendre ensuite avec Sheet3 Définir myRng = Sheet3.Range ("B2", .Cells (.Rows.Count, "B"). End (xlUp )) Terminer par Pour chaque fichier dans mySource.Files 'Si la photo est un fichier Si Droite (monfichier, 4) = ".gif" ou Droite (monfichier, 4) = ".jpg" ou de droite (monfichier, 4) = " .bmp "Or Right (myfile, 4) =" .tif "Ou right (myfile, 4) =" .png "Ensuite, Sheet3.Cells (intRow, 1) .Value =" "Sheet3.Cells (intRow, 1). Valeur = myfile.Name intSkip = 0 pour chaque myCell dans myRng.Cells si intSkip = 1 puis avec myCell.Offset ((intRow - 3) + 1, 0) Sheet3.Shapes.AddPicture myfile.Path, msoCTrue, msoCTrue, mLeCT. , .Top, 125, 125 End With End si intSkip = intSkip + 1 Suivant myCell End End si intRow = intRow + 1 suivant

Le secret de ce script consiste à utiliser l'objet StdPicture, qui vous permet de trier des images superposées à l'emplacement de certaines cellules, en définissant les propriétés gauche et supérieure de l'image pour correspondre à celles de la cellule. Assurez-vous simplement de dimensionner les cellules légèrement plus grandes que ce que vous définissez dans le code. Dans ma situation, j'ai utilisé 125 hauteur et largeur pour les images, mes cellules sont donc légèrement plus grandes que cela à l'avance..

Gérer votre dette

Le dernier onglet que je veux partager est en fait celui que j'ai écrit il y a longtemps sur l'utilisation d'Excel pour créer un budget personnel. Créez un budget personnel sous Excel en 4 étapes faciles. Créez un budget personnel sous Excel en 4 étapes simples. une dette qu'il faudra des décennies pour payer? Il est temps de faire un budget et d'appliquer quelques astuces Excel pour vous aider à rembourser votre dette plus rapidement. Lire la suite .

Le concept le plus important que j'ai décrit dans cet article, et qui figure dans tout article sur l'utilisation d'Excel pour gérer votre vie, consiste à utiliser Excel pour calculer “effet boule de neige” peut vous aider à rembourser votre dette.

le concept est assez simple. Indiquez toutes vos dettes de carte de crédit côte à côte sur une feuille, avec deux colonnes par dette: solde total et paiement. Le calcul pour chaque cellule de paiement ultérieure est “PrevBalance + (PrevBalance * 0.10 / 12) - dernier paiement”

Ensuite, vous pouvez faire glisser toutes les valeurs vers le bas de la feuille pour les recalculer, en indiquant à quelle vitesse votre solde diminuera au fur et à mesure que vous effectuez ces paiements. Comme vous pouvez le constater, le versement d’un paiement par dette jusqu’à ce que chaque dette soit réglée finira par rembourser chaque dette..

Mais grâce à la puissance de calcul rapide d'Excel, vous pouvez déterminer quand les soldes seront remboursés. À ce stade, prenez le solde minimal pour cette carte et transférez-le sur une autre carte non encore payée. Comme le montre la feuille de calcul, chaque solde subséquent est remboursé beaucoup plus rapidement.

Excel vous permet de calculer et de visualiser rapidement l’incidence de vos paiements sur les dates de paiement futures. Il vous donne également un calendrier à regarder lorsque vous essayez de vous assurer que vous êtes sur le point de rembourser ces dettes..

Comme vous pouvez le constater, Excel est un outil très puissant pour gérer tous les aspects de votre vie, que ce soit votre travail, la gestion de fichiers ou votre budget.

Avez-vous des utilisations uniques d'Excel pour gérer votre propre vie? Partagez certains de vos propres astuces et conseils dans la section commentaires ci-dessous.

Crédit d'image: loupe via Shutterstock

En savoir plus sur: Microsoft Excel.