Jak používat Microsoft Excel pro správu vašeho života

reklama

Není žádným tajemstvím, že jsem naprostý fanoušek Excelu. Hodně z toho plyne ze skutečnosti, že mě baví psaní kódu VBA a Excel v kombinaci se skripty VBA otevírá celý svět možností.

V minulosti jsem zde na MUO sdílel několik věcí, které jsem udělal s Excel a VBA, jako export dat Excel do Wordu Jak integrovat data Excel do dokumentu WordBěhem pracovního týdne se pravděpodobně setkáváte často s kopírováním a vkládáním informací z aplikace Excel do aplikace Word nebo naopak. Takto lidé často vytvářejí písemné zprávy ... Přečtěte si více nebo odesláním e-maily přímo z Excelu Jak posílat e-maily z tabulky Excel pomocí skriptů VBANaše šablona kódu vám pomůže nastavit automatické e-maily z aplikace Excel pomocí skriptů Collaboration Data Objects (CDO) a VBA. Přečtěte si více . Samozřejmě, pokud nemáte mnoho kodéru, můžete vždy získat aplikace Excel, které napsal někdo jiný, jako ty vypsáno Simonem Top 3 webové stránky ke stažení užitečné programy Excel zdarma Přečtěte si více .

Pokud však vážně používáte Excel ke správě více svého života, měli byste mít čas zjistit, jak funguje kódování VBA. Abych toho pomohl, rozhodl jsem se sdílet tabulku „Automatizace“, kterou jsem vytvořil pro správu různých oblastí mého života. Tato tabulka obsahuje 4 karty a zahrnuje vše od seskupení odkazů na adresy URL, které chci spustit najednou, až po správu mého dluhu a jeho rychlejší splácení.

Pokud chcete vylepšit používání aplikace Excel, vyzývám vás, abyste postupovali dál, když sdílím několik těchto návrhů - a jednoduchých skriptů -, které jsem použil k plnění těchto úkolů.

Správa vašeho života pomocí Excelu

Microsoft Excel není jen datová tabulka. Je to vlastně návrhová platforma pro aplikace. Pokud se na to podíváte tímto způsobem, můžete si uvědomit, jak moc můžete s aplikací dosáhnout.

Podívejte se na list jako konstrukční desku, kde můžete umístit objekty formuláře jazyka Visual Basic, jako jsou příkazová tlačítka, rozevírací pole, textová pole a cokoli jiného. Můžete je nejen umístit kdekoli na listu, ale můžete je také použít k interaktivnímu (nebo automatickému) přidávání, odebírání nebo manipulaci s informacemi na listu.

Sledování vašich webových stránek

Vyzkoušel jsem mnoho různých nástrojů pro ping na různých webech, které spravuji, jako například ICMP Ping Manager Sledujte síťová zařízení a webové stránky pomocí ICMP Ping ManagerV práci i doma často zjistím, že musím zkontrolovat stav svých počítačů, tiskáren, serverů nebo jiných síťových zařízení. V těchto dnech se tolik zařízení využívá ... Přečtěte si více . Ale nedávno jsem objevil způsob, jak pingovat webové stránky přímo uvnitř skriptu Excel VBA. To znamenalo, že bych mohl přidat list do svého sešitu „Automatizace“, který by pingoval všechny weby, které spravuji, a výsledky umístil do buňky vedle názvu webu.

Takto jsem rozložil list.

Číslo „4“ v buňce B1 se používá k zobrazení počtu webů, které jsem na listu nainstaloval. To umožní skriptu počítat pouze prostřednictvím počtu buněk, které ve skutečnosti mají weby uvedené, počínaje A3.

Kód k dosažení tohoto vypadá takto:

Dim intSiteCount As Integer. Dim intCount As Integer. Dim oPing As Object, oRetStatus As Object. Dim sHost As String. Dim sPing jako řetězec. Dim intCol As Integer. Dim intRow As Integer intSiteCount = CInt (Sheet1.Cells (1, 2) .Value) intRow = 3 For intCount = 1 To intSiteCount sPing = "" Sheet1.Cells (intRow, 2) = sPing intRow = intRow + 1. Další intRow = 3 Pro intCount = 1 Do intSiteCount sHost = Sheet1.Cells (intRow, 1) Set oPing = GetObject ("winmgmts: {impersonationLevel = impersonate}"). ExecQuery _ ("select * from Win32_PingStatus where address = '" & sHost & "'") Každý oRetStatus v oPing If IsNull (oRetStatus. StatusCode) nebo oRetStatus. StatusCode <> 0 Pak sPing = "Ping Failed" 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

První „Pro“ pohled na vrchol právě prochází buňkami výsledků a vymaže výsledky od posledního provedení kontroly. Druhá smyčka FOR se počítá prostřednictvím řádků se seznamem webových stránek, počínaje třetím řádkem (intRow-3) příkaz Ping (řádek Set oPing) a pak vrací výsledky do sloupce B (Sheet1.Cells (intRow, 2) = sPing).

Takto se tyto výsledky starají o spuštění skriptu.

Sloupec výsledků ukazuje, zda byl ping úspěšný, a podrobnosti o čase / TTL.

Pokud nejste obeznámeni s přidáváním příkazových tlačítek do listu aplikace Excel, můžete tlačítko přidat z nabídky „Vývojář“, kliknutím na tlačítko „Vložit“ a výběrem tlačítka ze seznamu. Nakreslete tlačítko na list, klikněte na něj pravým tlačítkem a poté vyberte „Přiřadit makro“.

Zadejte název makra pro toto tlačítko a klikněte na „Nový“.

Tím se otevře obrazovka s kódem, kam můžete vložit kód shora.

Údržba knihovny skupin odkazů

Na další kartě jsem také začal organizovat skupinu odkazů, které používám k provádění určitých úkolů. Například když píšu pro MUO, ráda otevřu editor MUO WordPress, google a naši stránku Dokumentů Google pro témata. Když zkoumám témata Top Secret Writers, ráda otevřu několik standardních mediálních stránek.

Když kliknu na tlačítko „Spustit skupinu“, spustí se výchozí webový prohlížeč a otevře se všechny stránky v této skupině. Skript pro každé tlačítko vypadá takto:

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 Pro intCount = 1 Do intSiteCount ActiveWorkbook. FollowHyperlink (Sheet2.Cells (intRow, 2)) intRow = intRow + 1. další

Tento skript je jednoduchý, ale účinný. Tajemství této funkce je funkce „FollowHyperlink“. Tento kód zkontroluje počet odkazů definovaných v buňce přímo napravo od názvu skupiny a ví, že před tímto nadpisem prochází tolik odkazů. U každého tlačítka je třeba do kódu ručně zadat umístění počtu odkazů a použitý sloupec, ale zbytek kódu je pro každé tlačítko stejný.

Náhled vaší galerie obrázků

Na další kartě pracovního listu automatizace je místo, kam chci rychle procházet všechny obrázky ve složce s obrázky. Dělám to proto, že do této složky umístím více než jen obrázky a chci vidět všechny soubory, které tam mám.

Jak to vypadá po kliknutí na tlačítko „Preview Pics“.

Právě teď ručně aktualizuji tento list odstraněním všech obrázků ze sloupce B a následným kliknutím na tlačítko „Preview Pics“.

Tlačítko spustí následující skript:

Dim myPict jako StdPicture. Dim strFilePath jako řetězec. 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) .Value Set myObject = New Scripting. FileSystemObject. Nastavte mySource = myObject. GetFolder (strFilePath) On Error Resume Next With Sheet3 Set myRng = Sheet3.Range ("B2", .Cells (.Rows. Počet, „B“). Konec (xlUp)) End With For myfile In mySource. Files 'If picture is file If Right (myfile, 4) = ".gif" Nebo Right (myfile, 4) = ".jpg" Nebo Right (myfile, 4) = ".bmp" Nebo Right (myfile, 4) = ".tif" Nebo vpravo (myfile, 4) = ".png" Pak Sheet3.Cells (intRow, 1) .Value = "" Sheet3.Cells (intRow, 1) .Value = myfile. Název intSkip = 0 Pro každý myCell In myRng. Buňky Pokud intSkip = 1, pak pomocí myCell. Offset ((intRow - 3) + 1, 0) Sheet3.Shapes. AddPicture myfile. Cesta, msoCTrue, msoCTrue,. Left, .Top, 125, 125 End with End If intSkip = intSkip + 1 Next myCell End If intRow = intRow + 1 Next

Tajemství tohoto skriptu je pomocí objektu StdPicture, který vám umožňuje překrývat obrázky na umístění určitých buněk definováním levých a horních vlastností obrázku tak, aby odpovídaly vlastnostem buňky buňka. Jen se ujistěte, že velikost buněk je o něco větší, než co definujete v kódu. V mé situaci jsem na obrázky použil výšku a šířku 125, takže moje buňky jsou nastaveny o něco větší, než byly předem.

Správa dluhu

Poslední karta, kterou chci sdílet, je vlastně ta, o které jsem napsal před chvílí o používání aplikace Excel vytvořit osobní rozpočet Vytvořte si osobní rozpočet pomocí aplikace Microsoft Excel ve 4 jednoduchých krocíchMáte tolik dluhů, že to bude trvat desetiletí, než se vyplatí? Vytvořte rozpočet a pomocí těchto tipů pro Excel splatte svůj dluh dříve. Přečtěte si více .

Nejdůležitější koncept, o kterém jsem psal v tomto článku, a ten, který patří do jakéhokoli článku o používání Excel pro správu vašeho života, používá Excel k výpočtu, jak "efekt sněhové koule" vám může pomoci splatit vaše dluh.

Koncept je docela jednoduchý. Seznam všech vašich dluhů na kreditní kartě vedle sebe v listu, se dvěma sloupci na dluh - celkový zůstatek a platby. Výpočet pro každou následující platební buňku je „PrevBalance + (PrevBalance * 0,10 / 12) - poslední platba“

Poté můžete přetáhnout všechny hodnoty dolů z listu a přepočítají se, což ukazuje, jak rychle se váš zůstatek při provádění těchto plateb sníží. Jak vidíte, provedení jedné platby za dluh, dokud není každý dluh splacen, nakonec vyplatí každý jednotlivý dluh.

Ale díky rychlé výpočetní síle Excelu můžete určit, kdy budou zůstatky vyplaceny, a v tom okamžiku vezměte minimální zůstatek pro tuto kartu a přesuňte ji na jinou dosud nezaplacenou kartu vypnuto. Jak ukazuje tabulka, každý následující zůstatek se vyplatí mnohem rychleji.

Excel umožňuje rychle vypočítat a vizualizovat, jak vaše platby ovlivní budoucí data výplaty, a také to vám dává plán, jak se na to podívat, zatímco se snažíte zajistit, že máte pravdu na cestě, abyste je vypláceli dluhy.

Jak vidíte, Excel je velmi výkonný nástroj, pokud jde o správu všech aspektů vašeho života - ať už jde o vaši práci, správu souborů nebo rozpočet.

Máte nějaké jedinečné využití pro Excel k řízení vlastního života? Sdílejte některé své vlastní tipy a rady v sekci komentářů níže.

Obrázek Kredit: zvětšovací sklo přes Shutterstock