So verwenden Sie Microsoft Excel, um Ihr Leben zu verwalten

Werbung

Es ist kein Geheimnis, dass ich ein totaler Excel-Fan bin. Ein Großteil davon ist darauf zurückzuführen, dass ich gerne VBA-Code schreibe und Excel in Kombination mit VBA-Skripten eine ganze Welt von Möglichkeiten eröffnet.

In der Vergangenheit habe ich hier bei MUO einige der Dinge geteilt, die ich mit Excel und VBA getan habe, wie z Exportieren von Excel-Daten in Word So integrieren Sie Excel-Daten in ein Word-DokumentWährend Ihrer Arbeitswoche gibt es wahrscheinlich viele Fälle, in denen Sie Informationen aus Excel in Word kopieren und einfügen oder umgekehrt. So erstellen Menschen oft schriftliche Berichte ... Weiterlesen oder senden E-Mails direkt aus Excel So senden Sie E-Mails aus einer Excel-Tabelle mithilfe von VBA-SkriptenUnsere Codevorlage hilft Ihnen beim Einrichten automatisierter E-Mails aus Excel mithilfe von CDO- (Collaboration Data Objects) und VBA-Skripten. Weiterlesen . Wenn Sie kein großer Programmierer sind, können Sie natürlich immer Excel-Anwendungen erhalten, die jemand anderes geschrieben hat, wie diese

gelistet von Simon Top 3 Websites zum Herunterladen nützlicher kostenloser Excel-Programme Weiterlesen .

Wenn Sie es jedoch ernst meinen, Excel zu verwenden, um mehr von Ihrem Leben zu verwalten, sollten Sie sich die Zeit nehmen, um zu lernen, wie die VBA-Codierung funktioniert. Um dies zu unterstützen, habe ich beschlossen, eine "Automatisierungs" -Tabelle freizugeben, die ich erstellt habe, um verschiedene Bereiche meines Lebens zu verwalten. Diese Tabelle enthält 4 Registerkarten und deckt alles ab, von der Gruppierung von Links zu URLs, die ich auf einmal starten möchte, bis hin zur Verwaltung meiner Schulden und einer schnelleren Rückzahlung.

Wenn Sie die Verwendung von Excel verbessern möchten, lade ich Sie ein, mitzumachen, während ich einige dieser Entwürfe - und einfachen Skripte - teile, mit denen ich diese Aufgaben ausgeführt habe.

Verwalten Sie Ihr Leben mit Excel

Microsoft Excel ist nicht nur eine Datentabelle. Es ist eigentlich eine Designplattform für Anwendungen. Wenn Sie es so betrachten, können Sie erkennen, wie viel Sie mit der Anwendung erreichen können.

Betrachten Sie ein Blatt als Design Board, auf dem Sie Visual Basic-Formularobjekte wie Befehlsschaltflächen, Dropdown-Felder, Textfelder und alles andere platzieren können. Sie können sie nicht nur an einer beliebigen Stelle auf dem Blatt platzieren, sondern diese Objekte auch zum interaktiven (oder automatischen) Hinzufügen, Entfernen oder Bearbeiten von Informationen auf dem Blatt verwenden.

Überwachung Ihrer Websites

Ich habe viele verschiedene Tools ausprobiert, um die verschiedenen von mir verwalteten Websites zu pingen, z ICMP Ping Manager Überwachen Sie Netzwerkgeräte und Websites mit ICMP Ping ManagerSowohl bei der Arbeit als auch zu Hause muss ich häufig den Status meiner PCs, Drucker, Server oder anderer Netzwerkgeräte überprüfen. In diesen Tagen mit so vielen Geräten verwenden ... Weiterlesen . Vor kurzem habe ich jedoch einen Weg gefunden, Websites direkt in einem Excel VBA-Skript zu pingen. Das bedeutete, dass ich meiner Arbeitsmappe „Automatisierung“ ein Blatt hinzufügen konnte, das alle von mir verwalteten Websites anpingt und die Ergebnisse in eine Zelle neben dem Namen der Website einfügt.

So habe ich das Blatt ausgelegt.

Die Zahl "4" in Zelle B1 wird verwendet, um die Anzahl der Websites anzuzeigen, die ich auf dem Blatt installiert habe. Auf diese Weise kann das Skript nur die Anzahl der Zellen zählen, in denen tatsächlich Websites aufgelistet sind, die bei A3 gestartet wurden.

Der Code dafür sieht folgendermaßen aus:

IntSiteCount als Ganzzahl dimmen. IntCount As Integer dimmen. Oping als Objekt, oRetStatus als Objekt dimmen. Dim sHost As String. Dim sPing As String. IntCol als Ganzzahl dimmen. IntRow als Ganzzahl dimmen intSiteCount = CInt (Sheet1.Cells (1, 2) .Value) intRow = 3 Für intCount = 1 To intSiteCount sPing = "" Sheet1.Cells (intRow, 2) = sPing intRow = intRow + 1. Next intRow = 3 For intCount = 1 To intSiteCount sHost = Sheet1.Cells (intRow, 1) Setzen Sie oPing = GetObject ("winmgmts: {impersonationLevel = impersonate}"). ExecQuery _ ("select * from Win32_PingStatus where address = '" & sHost & "'") For Jeder oRetStatus In oPing If IsNull (oRetStatus. StatusCode) oder oRetStatus. StatusCode <> 0 Dann sPing = "Ping fehlgeschlagen" Sonst sPing = sHost & "Ping Erfolg ein" & Now () & Chr (10) sPing = sPing & "Zeit (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

Der erste "Für" -Blick oben geht nur durch die Ergebniszellen und löscht die Ergebnisse aus dem letzten Mal, als ich eine Prüfung durchgeführt habe. Die zweite FOR-Schleife zählt durch die Zeilen, in denen die Websites aufgelistet sind, beginnend mit der dritten Zeile (intRow-3) den Ping-Befehl (die Zeile Set oPing) und gibt die Ergebnisse in Spalte B zurück (Sheet1.Cells (intRow, 2) = sPing).

So sehen diese Ergebnisse aus, nachdem das Skript ausgeführt wurde.

Die Ergebnisspalte zeigt, ob der Ping erfolgreich war, und die Zeit- / TTL-Details.

Wenn Sie nicht mit dem Hinzufügen von Befehlsschaltflächen zu einer Excel-Tabelle vertraut sind, können Sie die Schaltfläche über das Menü "Entwickler" hinzufügen, auf die Schaltfläche "Einfügen" klicken und die Schaltfläche aus der Liste auswählen. Zeichnen Sie die Schaltfläche auf das Blatt, klicken Sie mit der rechten Maustaste darauf und wählen Sie dann "Makro zuweisen".

Geben Sie den Namen des Makros für diese Schaltfläche ein und klicken Sie auf "Neu".

Dies öffnet den Codebildschirm, in den Sie den Code von oben einfügen können.

Verwalten einer Bibliothek von Linkgruppen

Auf einer anderen Registerkarte habe ich auch begonnen, die Gruppe von Links zu organisieren, mit denen ich bestimmte Aufgaben ausführe. Wenn ich beispielsweise für MUO schreibe, öffne ich gerne den MUO WordPress-Editor, Google und unsere Google Text & Tabellen-Seite für Themen. Wenn ich nach Top Secret Writers-Themen recherchiere, öffne ich gerne einige Standardmedien-Seiten.

Wenn ich auf die Schaltfläche "Gruppe starten" klicke, wird der Standard-Webbrowser gestartet und alle Seiten in dieser Gruppe geöffnet. So sieht das Skript für jede Schaltfläche aus:

IntSiteCount als Ganzzahl dimmen. IntCount As Integer dimmen. IntCol als Ganzzahl dimmen. IntRow als Ganzzahl dimmen intSiteCount = CInt (Sheet2.Cells (4, 3) .Value) intRow = 5 Für intCount = 1 Für intSiteCount ActiveWorkbook. FollowHyperlink (Sheet2.Cells (intRow, 2)) intRow = intRow + 1. Nächster

Dieses Skript ist einfach, aber effektiv. Das Geheimnis hierfür ist die Funktion „FollowHyperlink“. Dieser Code überprüft die Anzahl der in der Zelle rechts neben dem Gruppentitel definierten Links und kann so viele Links vor dem Titel durchlaufen. Für jede Schaltfläche müssen die Position der Linkanzahl und die verwendete Spalte manuell in den Code eingegeben werden, der Rest des Codes ist jedoch für jede Schaltfläche identisch.

Vorschau Ihrer Bildergalerie

Auf der nächsten Registerkarte meines Automatisierungsarbeitsblatts gehe ich dorthin, wo ich schnell alle Bilder in meinem Bilderordner durchgehen möchte. Ich mache das, weil ich mehr als nur Bilder in diesen Ordner lege und alle Dateien sehen möchte, die ich dort habe.

So sieht es aus, nachdem Sie auf die Schaltfläche "Vorschau der Bilder" geklickt haben.

Im Moment aktualisiere ich dieses Blatt manuell, indem ich alle Bilder aus der Spalte B lösche und dann auf die Schaltfläche "Bildervorschau" klicke.

Die Schaltfläche führt das folgende Skript aus:

Dim myPict As StdPicture. Dim strFilePath As String. IntRow As Integer dimmen. 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) .Value Set myObject = New Scripting. FileSystemObject. Setzen Sie mySource = myObject. GetFolder (strFilePath) Bei Fehler Fortsetzen Weiter mit Sheet3 Setzen Sie myRng = Sheet3.Range ("B2", .Cells (.Rows. Count, "B"). End (xlUp)) Beenden Sie mit für jede myfile in mySource. Dateien 'Wenn Bild eine Datei ist If Right (myfile, 4) = ".gif" oder Right (myfile, 4) = ".jpg" oder Right (myfile, 4) = ".bmp" oder Right (myfile, 4) = ".tif" oder Right (myfile, 4) = ".png" Dann Sheet3.Cells (intRow, 1) .Value = "" Sheet3.Cells (intRow, 1) .Value = meine Datei. Name intSkip = 0 Für jede myCell in myRng. Zellen Wenn intSkip = 1, dann mit myCell. Offset ((intRow - 3) + 1, 0) Sheet3.Shapes. AddPicture myfile. Pfad, msoCTrue, msoCTrue, .Left, .Top, 125, 125 Ende mit Ende Wenn intSkip = intSkip + 1 Weiter myCell Ende Wenn intRow = intRow + 1 Weiter

Das Geheimnis dieses Skripts ist die Verwendung des StdPicture-Objekts, mit dem Sie Bilder überlagern können Position bestimmter Zellen, indem die linken und oberen Eigenschaften des Bildes so definiert werden, dass sie mit denen der übereinstimmen Zelle. Stellen Sie einfach sicher, dass die Zellen etwas größer sind als im Code definiert. In meiner Situation habe ich 125 Höhe und Breite für die Bilder verwendet, sodass meine Zellen etwas größer als vorher eingestellt sind.

Verwalten Ihrer Schulden

Die letzte Registerkarte, die ich freigeben möchte, ist eine, die ich vor einiger Zeit über die Verwendung von Excel geschrieben habe ein persönliches Budget erstellen Erstellen Sie mit Microsoft Excel in 4 einfachen Schritten ein persönliches BudgetHaben Sie so viele Schulden, dass es Jahrzehnte dauern wird, bis sie sich auszahlen? Erstellen Sie ein Budget und verwenden Sie diese Excel-Tipps, um Ihre Schulden früher abzuzahlen. Weiterlesen .

Das wichtigste Konzept, über das ich in diesem Artikel geschrieben habe und das in jedem Artikel über die Verwendung enthalten ist Excel zur Verwaltung Ihres Lebens verwendet Excel, um zu berechnen, wie der „Schneeballeffekt“ Ihnen dabei helfen kann, Ihr Leben zu bezahlen Schuld.

Das Konzept ist ziemlich einfach. Listen Sie alle Ihre Kreditkartenschulden nebeneinander in einem Blatt mit zwei Spalten pro Schulden auf - Gesamtsaldo und Zahlung. Die Berechnung für jede nachfolgende Zahlungszelle lautet "PrevBalance + (PrevBalance * 0.10 / 12) - letzte Zahlung".

Anschließend können Sie alle Werte auf das Blatt ziehen und sie neu berechnen. Dies zeigt an, wie schnell Ihr Guthaben bei diesen Zahlungen sinkt. Wie Sie sehen können, wird eine Zahlung pro Schuld bis zur Begleichung jeder Schuld letztendlich jede einzelne Schuld abbezahlen.

Dank der schnellen Rechenleistung von Excel können Sie jedoch bestimmen, wann Guthaben ausgezahlt werden. Nehmen Sie zu diesem Zeitpunkt das Mindestguthaben für diese Karte und verschieben Sie es auf eine andere Karte, die noch nicht bezahlt wurde aus. Wie die Tabelle zeigt, wird jeder nachfolgende Saldo viel schneller ausgezahlt.

Mit Excel können Sie schnell berechnen und visualisieren, wie sich Ihre Zahlungen auf zukünftige Auszahlungstermine auswirken Sie erhalten einen Zeitplan, auf den Sie zurückblicken können, während Sie sicherstellen möchten, dass Sie bei der Auszahlung dieser Pläne auf dem richtigen Weg sind Schulden.

Wie Sie sehen, ist Excel ein sehr leistungsfähiges Werkzeug, wenn es darum geht, alle Aspekte Ihres Lebens zu verwalten - sei es Ihre Arbeit, die Verwaltung von Dateien oder Ihr Budget.

Haben Sie eine einzigartige Verwendung für Excel, um Ihr eigenes Leben zu verwalten? Teilen Sie einige Ihrer eigenen Tipps und Ratschläge im Kommentarbereich unten mit.

Bildnachweis: Lupe über Shutterstock