Come utilizzare Microsoft Excel per gestire la tua vita

Annuncio pubblicitario

Non è un segreto che io sono un fan di Excel totale. Gran parte di ciò deriva dal fatto che mi diverto a scrivere codice VBA e Excel combinato con script VBA apre un intero mondo di possibilità.

In passato, qui a MUO, ho condiviso alcune delle cose che ho fatto con Excel e VBA, come esportazione di dati Excel in Word Come integrare i dati di Excel in un documento di WordDurante la settimana lavorativa, ci sono probabilmente molte volte in cui ti ritrovi a copiare e incollare informazioni da Excel in Word o viceversa. Questo è il modo in cui le persone producono spesso rapporti scritti ... Leggi di più o invio e-mail direttamente da Excel Come inviare e-mail da un foglio di calcolo Excel utilizzando gli script VBAIl nostro modello di codice ti aiuterà a configurare e-mail automatiche da Excel utilizzando Collaboration Data Objects (CDO) e script VBA. Leggi di più . Ovviamente se non sei un programmatore, puoi sempre ottenere applicazioni Excel scritte da qualcun altro, come quelle

elencato da Simon Primi 3 siti Web per scaricare utili programmi Excel gratuiti Leggi di più .

Tuttavia, se sei seriamente intenzionato a utilizzare Excel per gestire gran parte della tua vita, dovresti prenderti il ​​tempo per imparare come funziona la codifica VBA. Per aiutarlo, ho deciso di condividere un foglio di calcolo di "Automazione" che ho creato per gestire diverse aree della mia vita. Questo foglio di calcolo ha 4 schede e copre tutto, dal raggruppamento di collegamenti di URL che voglio lanciare tutto in una volta, alla gestione del mio debito e al pagamento più veloce.

Se vuoi migliorare il tuo uso di Excel, ti invito a seguire mentre condivido alcuni di questi progetti - e semplici script - che ho usato per svolgere queste attività.

Gestisci la tua vita con Excel

Microsoft Excel non è solo un foglio di calcolo di dati. In realtà è una piattaforma di progettazione per applicazioni. Se lo guardi in questo modo, potresti capire quanto puoi realizzare con l'applicazione.

Guarda un foglio come una scheda di progettazione in cui puoi posizionare oggetti modulo di Visual Basic come pulsanti di comando, caselle a discesa, caselle di testo e quant'altro. Non solo è possibile posizionarli ovunque sul foglio, ma è anche possibile utilizzare tali oggetti per aggiungere, rimuovere o manipolare in modo interattivo (o automatico) informazioni sul foglio.

Monitoraggio dei siti Web

Ho provato molti strumenti diversi per eseguire il ping dei diversi siti Web che gestisco, come il Gestione ping ICMP Monitora i dispositivi e i siti Web di rete con ICMP Ping ManagerSia a lavoro che a casa, trovo spesso la necessità di controllare lo stato dei miei PC, stampanti, server o altri dispositivi di rete. In questi giorni, con così tanti dispositivi che fanno uso ... Leggi di più . Ma non molto tempo fa ho scoperto un modo per eseguire il ping dei siti Web dall'interno di uno script VBA di Excel. Ciò significava che avrei potuto aggiungere un foglio alla mia cartella di lavoro "Automazione" che eseguiva il ping di tutti i siti Web che gestivo e inseriva i risultati in una cella accanto al nome del sito Web.

Ecco come ho preparato il foglio.

Il numero "4" nella cella B1 viene utilizzato per visualizzare il conteggio dei siti Web che ho installato sul foglio. Ciò consentirà allo script di contare solo attraverso il numero di celle in cui sono effettivamente elencati i siti, avviati in A3.

Il codice per ottenere questo risultato è simile al seguente:

Dim intSiteCount As Intero. Dim intCount As Intero. Dim oPing As Object, oRetStatus As Object. Dim sHost As String. Dim sPing As String. Dim intCol As Intero. Dim intRow As Integer intSiteCount = CInt (Sheet1.Cells (1, 2) .Value) intRow = 3 Per intCount = 1 To intSiteCount sPing = "" Sheet1.Cells (intRow, 2) = sPing intRow = intRow + 1. IntRow successivo = 3 Per intCount = 1 A intSiteCount sHost = Sheet1.Cells (intRow, 1) Set oPing = GetObject ("winmgmts: {impersonationLevel = impersonate}"). ExecQuery _ ("seleziona * da Win32_PingStatus dove address = '" & sHost & "'") Per Ogni oRetStatus in oPing If IsNull (oRetStatus. StatusCode) O oRetStatus. StatusCode <> 0 Quindi 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 Avanti

La prima occhiata "For" in alto passa attraverso le celle dei risultati e cancella i risultati dall'ultima volta che ho eseguito un controllo. Il secondo ciclo FOR conta attraverso le righe che elencano i siti Web, a partire dalla terza riga (intRow-3), esegue il comando Ping (la riga Set oPing), quindi restituisce i risultati nella colonna B (Sheet1.Cells (intRow, 2) = Sping).

Ecco come vengono visualizzati questi risultati dopo l'esecuzione dello script.

La colonna dei risultati mostra se il ping ha avuto esito positivo e i dettagli Time / TTL.

Se non si ha familiarità con l'aggiunta di pulsanti di comando a un foglio Excel, è possibile aggiungere il pulsante dal menu "Sviluppatore", fare clic sul pulsante "Inserisci" e scegliere il pulsante dall'elenco. Disegna il pulsante sul foglio, fai clic destro su di esso, quindi seleziona "Assegna macro".

Digita il nome della Macro per quel pulsante e fai clic su "Nuovo".

Questo aprirà la schermata del codice in cui è possibile inserire il codice dall'alto.

Gestione di una libreria di gruppi di collegamenti

In un'altra scheda, ho anche iniziato a organizzare il gruppo di collegamenti che utilizzo per eseguire determinate attività. Ad esempio, quando scrivo per MUO, mi piace aprire l'editor MUO WordPress, Google e la nostra pagina di Google Documenti per gli argomenti. Quando cerco argomenti su Top Secret Writers, mi piace aprire alcune pagine multimediali standard.

Quando faccio clic sul pulsante "Avvia gruppo", verrà avviato il browser Web predefinito e si apriranno tutte le pagine di quel gruppo. Ecco come appare lo script per ciascun pulsante:

Dim intSiteCount As Intero. Dim intCount As Intero. Dim intCol As Intero. Dim intRow As Integer intSiteCount = CInt (Sheet2.Cells (4, 3) .Value) intRow = 5 Per intCount = 1 A intSiteCount ActiveWorkbook. FollowHyperlink (Sheet2.Cells (intRow, 2)) intRow = intRow + 1. Il prossimo

Questo script è semplice ma efficace. Il segreto di questo è la funzione "FollowHyperlink". Questo codice controllerà il numero di collegamenti definiti nella cella a destra del titolo del gruppo e saprà passare attraverso quel numero di collegamenti prima del titolo. Per ciascun pulsante, la posizione del conteggio dei collegamenti e la colonna utilizzata devono essere digitati manualmente nel codice, ma il resto del codice è identico per ciascun pulsante.

Anteprima della tua galleria di immagini

Nella scheda successiva del mio foglio di lavoro di automazione è dove vado quando voglio scorrere rapidamente tutte le immagini nella mia cartella delle immagini. Lo faccio perché inserisco più di semplici immagini in quella cartella e voglio vedere tutti i file che ho lì.

Ecco come appare dopo aver fatto clic sul pulsante "Anteprima foto".

In questo momento aggiorno manualmente questo foglio eliminando tutte le immagini dalla colonna B e quindi facendo clic sul pulsante "Anteprima foto".

Il pulsante esegue il seguente script:

Dim myPict As StdPicture. Dim strFilePath As String. Dim intRow As Intero. Dim myPictName come variante. Dim myCell As Range. Dim sPicture As String. Dim strTest As String. Dim myRng As Range. Dim intSkip Come intero intRow = 2 strFilePath = Sheet3.Cells (1, 3) .Value Set myObject = New Scripting. FileSystemObject. Imposta mySource = myObject. GetFolder (strFilePath) Sì Errore Riprendi successivo con Sheet3 Imposta myRng = Sheet3.Range ("B2", .Cells (.Rows. Conteggio, "B"). Fine (xlUp)) Termina con Per ogni myfile in mySource. File 'Se l'immagine è un file If Right (myfile, 4) = ".gif" O Right (myfile, 4) = ".jpg" O Right (myfile, 4) = ".bmp" O Right (myfile, 4) = ".tif" Or Right (myfile, 4) = ".png" Quindi Sheet3.Cells (intRow, 1) .Value = "" Sheet3.Cells (intRow, 1) .Value = il mio file. Nome intSkip = 0 per ogni myCell in myRng. Celle Se intSkip = 1 Quindi con myCell. Offset ((intRow - 3) + 1, 0) Foglio3. Forme. Aggiungi Picturefile. Path, msoCTrue, msoCTrue, .Left, .Top, 125, 125 End With End If intSkip = intSkip + 1 Next myCell End If intRow = intRow + 1 Next

Il segreto di questo script sta usando l'oggetto StdPicture, che ti permette di ordinare le immagini sovrapposte sul posizione di alcune celle, definendo le proprietà sinistra e superiore dell'immagine in modo che corrispondano a quelle del file cellula. Assicurati di ridimensionare le celle leggermente più grandi di ciò che definisci nel codice. Nella mia situazione ho usato 125 altezza e larghezza per le immagini, quindi le mie celle sono impostate leggermente più grandi di quelle in anticipo.

Gestire il tuo debito

L'ultima scheda che voglio condividere è in realtà una che ho scritto qualche tempo fa sull'uso di Excel creare un budget personale Crea un budget personale con Microsoft Excel in 4 semplici passaggiHai così tanti debiti che ci vorranno decenni per pagare? Crea un budget e usa questi suggerimenti di Excel per saldare prima il debito. Leggi di più .

Il concetto più importante di cui ho scritto in quell'articolo e uno che appartiene a qualsiasi articolo sull'uso Excel per gestire la tua vita, sta usando Excel per calcolare come l'effetto "palla di neve" può aiutarti a pagare il tuo debito.

Il concetto è piuttosto semplice. Elenca tutti i debiti della tua carta di credito fianco a fianco in un foglio, con due colonne per debito - saldo totale e pagamento. Il calcolo per ogni cella di pagamento successiva è "PrevBalance + (PrevBalance * 0.10 / 12) - ultimo pagamento"

Quindi puoi trascinare tutti i valori nel foglio e verranno ricalcolati, mostrando la velocità con cui il tuo saldo scenderà mentre effettui quei pagamenti. Come puoi vedere, effettuare un pagamento per debito fino a quando non viene pagato ogni debito alla fine pagherà ogni singolo debito.

Ma grazie al rapido potere di calcolo di Excel, puoi determinare quando verranno pagati i saldi, e a quel punto prendi il saldo minimo per quella carta e spostalo su un'altra carta non ancora pagata off. Come mostra il foglio di calcolo, ogni saldo successivo viene pagato molto più velocemente.

Excel ti consente di calcolare e visualizzare rapidamente come i tuoi pagamenti influenzeranno le future date di pagamento, e anche ti dà un programma da guardare indietro mentre stai cercando di assicurarti di essere sulla buona strada per ripagarli debiti.

Come puoi vedere, Excel è uno strumento molto potente quando si tratta di gestire tutti gli aspetti della tua vita, che si tratti del tuo lavoro, della gestione dei file o del tuo budget.

Hai degli usi unici per Excel per gestire la tua vita? Condividi alcuni dei tuoi suggerimenti e consigli nella sezione commenti qui sotto.

Credito immagine: lente d'ingrandimento tramite Shutterstock