Comment utiliser microsoft excel pour gérer votre vie

Il est pas un secret que je suis un fanboy totale Excel. Une grande partie de ce qui vient du fait que j`aime écrire du code VBA et Excel combiné avec scripts VBA ouvrent tout un monde de possibilités.

Dans le passé, ici à MUO, j`ai partagé quelques-unes des choses que je l`ai fait avec Excel et VBA, comme l`exportation des données Excel dans Word ou l`envoi de e-mails directement depuis Excel. Bien sûr, si vous n`êtes pas beaucoup d`un codeur, vous pouvez toujours trouver quelqu`un applications Excel autre a écrit, comme ceux énumérés par Simon.Comment intégrer les données Excel dans un document WordComment intégrer les données Excel dans un document WordAu cours de votre semaine de travail, il y a probablement beaucoup de fois que vous vous trouvez copier et coller des informations à partir d`Excel dans Word, ou l`inverse. Voilà comment les gens produisent souvent des rapports écrits ...Lire la suite

Cependant, si vous êtes sérieux au sujet de l`utilisation d`Excel pour gérer plus de votre vie, alors vous devriez prendre le temps d`apprendre comment fonctionne le codage VBA. Pour aider à cela, j`ai décidé de partager une feuille de calcul « Automation » que j`ai créé pour gérer les différents domaines de ma vie. Cette feuille de calcul 4 onglets et couvre tout, de grouper des liens d`URL que je veux lancer à la fois, de gérer ma dette et le payer plus rapidement.

Si vous voulez améliorer votre utilisation d`Excel, je vous invite à suivre que je partage quelques-unes de ces dessins - et des scripts simples - que je l`habitude d`accomplir ces tâches.

Gestion de votre vie avec Excel

Microsoft Excel est pas seulement une feuille de données. Il est en fait une plate-forme de conception pour les applications. Si vous regardez cette façon, vous pouvez réaliser à quel point vous pouvez accomplir avec l`application.

Regardez une feuille comme une carte de conception où vous pouvez placer des objets de formulaire Visual Basic comme des boutons de commande, boîtes déroulants, et toute autre chose textboxes du tout. Non seulement vous pouvez les placer partout sur la feuille, mais vous pouvez utiliser ces objets de manière interactive (ou automatiquement) ajouter, supprimer ou manipuler des informations sur la feuille.

Surveillance vos sites Web

J`ai essayé beaucoup de différents outils de ping les différents sites que je gère, comme le Ping ICMP Gestionnaire. Mais, il n`y a pas longtemps que j`ai découvert un moyen de ping sites de droite à l`intérieur d`un script VBA Excel. Cela signifiait, je pourrais ajouter une feuille à mon classeur « Automation » qui ping tous les sites que je gère, et de mettre les résultats dans une cellule à côté du nom du site.Surveiller les périphériques réseau et sites Web avec ICMP Ping GestionnaireSurveiller les périphériques réseau et sites Web avec ICMP Ping GestionnaireAu travail et à la maison, je trouve souvent que j`ai besoin de vérifier l`état de mes ordinateurs, des imprimantes, des serveurs ou d`autres périphériques réseau. Ces jours-ci, avec autant de dispositifs utilisant ...Lire la suite

Voilà comment je posai la feuille.

Le nombre « 4 » dans la cellule B1 est utilisée pour afficher le nombre de sites que je l`ai installé sur la feuille. Cela permettra au script de compter uniquement par le nombre de cellules qui ont effectivement des sites répertoriés, a commencé à A3.

Le code pour ce faire ressemble à ceci:

Dim intSiteCount Comme IntegerDim intCount Comme IntegerDim oping comme objet, oRetStatus Comme ObjectDim shost Comme StringDim SPING Comme StringDim intCol Comme IntegerDim intRow Comme IntegerintSiteCount = CInt (Sheet1.Cells (1, 2) .Value) intRow = 3Car intCount = 1 To = intSiteCountsPing ""Sheet1.Cells (intRow, 2) = sPingintRow = intRow + 1NextintRow = 3Pour intCount = 1 = Pour intSiteCountsHost Sheet1.Cells (intRow, 1) = Set oping GetObject ("winmgmts: {} impersonationLevel = impersonate") .ExecQuery _ ("select * from Win32_PingStatus où adresse = `" & shost & "`") Pour chaque oRetStatus Dans oPingIf IsNull (oRetStatus.StatusCode) Ou oRetStatus.StatusCode lt; gt; 0 = ThensPing "ping Échec"ElsesPing = shost & " Succès Ping sur " & À présent() & Chr (10) SPING = SPING & "Temps (ms) = " & vbTab & oRetStatus.ResponseTime & Chr (10) SPING = SPING & "TTL (s) = " & vbTab & vbTab & oRetStatus.ResponseTimeToLiveEnd IfNextSheet1.Cells (intRow, 2) = sPingintRow = intRow + 1next

Le premier « Pour » regarder en haut va juste à travers les cellules de résultats et efface les résultats de la dernière fois que je courais un chèque. La seconde boucle FOR compte à travers les rangées liste des sites Web, à partir de la troisième rangée (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).

Video: Gestion de trésorerie dans Excel

Voici comment ces résultats semblent après que le script est exécuté.

La colonne des résultats indique si le ping a réussi, et les détails Temps / TTL.

Si vous n`êtes pas familier avec l`ajout de boutons de commande à une feuille Excel, vous pouvez ajouter le bouton dans le menu « Developer » et en cliquant sur le bouton « Insérer » et en choisissant le bouton de la liste. Dessinez le bouton sur la feuille, faites un clic droit dessus, puis sélectionnez « Affecter une macro ».

Tapez le nom de la macro pour ce bouton, puis cliquez sur « Nouveau ».

Cela permettra d`ouvrir l`écran de code où vous pouvez insérer le code d`en haut.

Le maintien d`une bibliothèque de lien Groupes

Sur un autre onglet, j`ai aussi commencé à organiser le groupe de liens que j`utiliser pour effectuer certaines tâches. Par exemple, quand j`écris pour MUO, j`aime ouvrir l`éditeur MUO WordPress, Google, et notre page Google Docs pour les sujets. Quand je recherche Top secret des sujets écrivains, je veux ouvrir quelques pages de support standard.

Lorsque je clique sur le bouton « Groupe de lancement », il lancera le navigateur Web par défaut et d`ouvrir toutes les pages de ce groupe. Voici comment le script pour chaque bouton ressemble:

Dim intSiteCount Comme IntegerDim intCount Comme IntegerDim intCol Comme IntegerDim intRow Comme IntegerintSiteCount = CInt (Sheet2.Cells (4, 3) .Value) intRow = 5Car intCount = 1 à intSiteCountActiveWorkbook.FollowHyperlink (Sheet2.Cells (intRow, 2)) intRow = intRow + 1next

Ce script est simple mais efficace. Le secret de celui-ci est la fonction « FollowHyperlink ». Ce code vérifie le nombre de liens définis dans la cellule juste à droite du titre du groupe, et sait courir à travers que de nombreux liens avant le titre. Pour chaque bouton, l`emplacement du nombre de liens, et la colonne étant utilisé doit être saisi manuellement dans le code, mais le reste du code est identique pour chaque bouton.

Galerie de photos prévisualisé votre

Sur l`onglet suivant de ma feuille d`automatisation est l`endroit où je vais quand je veux courir rapidement à travers toutes les images dans mon dossier images. Je le fais parce que je place plus que des images dans ce dossier, et que vous voulez voir tous les fichiers que j`ai là.

Voici à quoi il ressemble après avoir cliqué sur le bouton « Aperçu Photos ».

En ce moment, je mets à jour manuellement cette feuille en supprimant toutes les images de la colonne B, puis en cliquant sur le bouton « Aperçu Photos ».

Le bouton exécute le script suivant:

Dim myPict Comme StdPictureDim strFilePath Comme StringDim intRow Comme IntegerDim myPictName Comme VariantDim myCell Comme RangeDim sPicture Comme StringDim strTest Comme StringDim myRng Comme RangeDim intSkip Comme IntegerintRow = 2strFilePath = Sheet3.Cells (1, 3) .ValueSet myObject = New Scripting.FileSystemObjectSet MySource = myObject .GetFolder (strFilePath) On Error Resume NextWith Sheet3Set myRng = Sheet3.Range ("B2", .Cells (.Rows.Count, "B") .End (xlUp)) Fin WithFor Chaque mon_fichier Dans mySource.Files`If image est un droit fileIf (monfichier, 4) = ".gif" Ou à droite (monfichier, 4) = ".jpg" Ou à droite (monfichier, 4) = ".bmp" Ou à droite (monfichier, 4) = ".tif" Ou à droite (monfichier, 4) = ".png" ThenSheet3.Cells (intRow, 1) .Value = ""Sheet3.Cells (intRow, 1) .Value = myfile.NameintSkip = 0 pour chaque myCell Dans myRng.CellsIf intSkip = 1 ThenWith myCell.Offset ((intRow - 3) + 1, 0) Sheet3.Shapes.AddPicture myfile.Path, msoCTrue , msoCTrue, .Left, .Top, 125, 125End WithEnd IfintSkip = intSkip + 1next myCellEnd IfintRow = intRow + 1next

Le secret de ce script utilise l`objet StdPicture, ce qui vous permet de trier les images de superposition à l`emplacement de certaines cellules, en définissant les propriétés de gauche et de haut de l`image pour correspondre à celle de la cellule. Assurez-vous de la taille des cellules légèrement plus grand que ce que vous définissez dans le code. Dans ma situation je 125 hauteur et la largeur pour les images, donc mes cellules sont légèrement en plus grande que celle à l`avance.

Gérer votre dette

L`onglet finale que je veux partager est en fait un que j`ai écrit un certain temps sur l`utilisation de Excel créer un budget personnel.Faire un budget personnel sur Excel en 4 étapes facilesFaire un budget personnel sur Excel en 4 étapes facilesIl y a 10 ans, ma femme et moi étions à califourchon avec tant de dettes que nous avons pensé qu`il prendrait le reste de notre vie, ou tout au moins les soixante prochaines années, à payer ...Lire la suite

Video: Comment gérer ses finances et son argent avec le logiciel Microsoft Excel?

Le concept le plus important que j`ai écrit dans cet article, et qui appartient à un article sur l`utilisation d`Excel pour gérer votre vie, utilise Excel pour calculer la façon dont « l`effet boule de neige » peut vous aider à rembourser votre dette.

le concept est assez simple. Liste de tous vos côtés de la dette de carte de crédit côte à côte dans une feuille, avec deux colonnes par dette - solde total et le 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 en bas de la feuille et ils vont recalcule, montrant la rapidité avec laquelle votre solde baissera que vous faites ces paiements. Comme vous pouvez le voir, faire un paiement par la dette jusqu`à ce que chaque dette est payée finira par payer chaque dette individuelle.

Mais grâce à la puissance de calcul rapide d`Excel, vous pouvez déterminer quand les soldes seront remboursés, et à ce moment prendre le solde minimum pour cette carte et le déplacer vers une autre carte pas encore payé. Comme le montre la feuille de calcul, chaque solde ultérieur est payé au large beaucoup plus rapide.

Excel vous permet de calculer et de visualiser rapidement comment vos paiements auront une incidence sur les futures dates de payoff, et il vous donne également un calendrier de regarder en arrière pendant que vous essayez de vous assurer que vous êtes sur la bonne voie à rembourser ces dettes.

Comme vous pouvez le voir, Excel est un outil très puissant en matière de gestion de tous les aspects de votre vie - que ce soit votre travail, la gestion des fichiers, ou votre budget.

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