Como usar o microsoft excel para gerenciar sua vida

Não é nenhum segredo que eu sou um fanboy total de Excel. Muito do que vem do fato de que eu gosto de escrever código VBA e Excel combinada com scripts VBA abrir um mundo de possibilidades.

No passado, aqui no MUO, eu compartilhei algumas das coisas que eu fiz com o Excel e VBA, como exportar dados do Excel no Word ou o envio de e-mails diretamente do Excel. Claro, se você não está muito de um codificador, você sempre pode obter aplicativos Excel alguém escreveu, como aqueles listados por Simon.Como integrar dados do Excel em um documento do WordComo integrar dados do Excel em um documento do WordDurante a sua semana de trabalho, há provavelmente muitas vezes que você encontrar-se copiando e colando informações do Excel no Word, ou o contrário. Isto é como as pessoas costumam produzir relatórios escritos ...consulte Mais informação

No entanto, se você é sério sobre o uso de Excel para gerenciar mais de sua vida, então você deve ter o tempo para aprender VBA codificando obras. Para ajudar com isso, eu decidi compartilhar uma planilha “Automação” que eu criei para gerenciar diferentes áreas da minha vida. Esta planilha tem 4 guias e cobre tudo, desde agrupamento ligações de URLs que eu quero lançar tudo de uma vez, para gerir a minha dívida e pagá-lo mais rápido.

Se você quer melhorar seu uso do Excel, convido-vos a acompanhar como eu compartilhar alguns desses projetos - e scripts simples - que eu usei para realizar essas tarefas.

Gerenciando sua vida com Excel

Microsoft Excel não é apenas uma planilha de dados. É realmente uma plataforma de design para aplicações. Se você olhar para ele dessa forma, você pode perceber o quanto você pode realizar com a aplicação.

Olhe para uma folha como uma tábua de design onde você pode colocar objetos de formulário Visual Basic, como botões de comando, caixas suspensas, caixas de texto e qualquer outra coisa em tudo. Não apenas você pode colocá-los em qualquer lugar na folha, mas você pode usar esses objetos para interativamente (ou automaticamente) adicionar, remover ou manipular informações na folha.

Monitorando seus sites

Eu tentei um monte de diferentes ferramentas para executar ping os diferentes sites que gerem, como o ICMP Ping Gestor. Mas, não muito tempo atrás eu descobri uma maneira de executar ping sites de direito dentro de um script de Excel VBA. Isso significava, eu poderia adicionar uma folha ao meu livro “Automação” que o ping todos os sites que eu gerenciar e colocar os resultados em uma célula ao lado do nome do site.Monitorar dispositivos de rede e sites com ICMP Ping GestorMonitorar dispositivos de rede e sites com ICMP Ping GestorTanto no trabalho como em casa, muitas vezes eu acho que eu tenho uma necessidade para verificar o status dos meus PCs, impressoras, servidores ou outros dispositivos de rede. Estes dias, com tantos dispositivos utilizando uma ...consulte Mais informação

Video: Como usar o Gerenciador de Nomes no Excel | #01 - Curso Intermediário de Excel

Isto é como eu coloquei a folha.

O número “4” na célula B1 é usado para exibir a contagem de sites que eu já instalados na folha. Isso permitirá que o script para contar apenas através do número de células que realmente têm sites listados, começou no A3.

O código para fazer isso se parece com isso:

Dim intSiteCount Como IntegerDim intCount Como IntegerDim oping como objecto, oRetStatus Como ObjectDim Shost Como StringDim Sping Como StringDim intCol Como IntegerDim intRow Como IntegerintSiteCount = CInt (Sheet1.Cells (1, 2) .Value) intRow = 3 Porque intCount = 1 Para intSiteCountsPing = ""Sheet1.Cells (intRow, 2) = = sPingintRow intRow + 1NextintRow = 3 Porque intCount = 1 Para intSiteCountsHost = Sheet1.Cells (intRow, 1) Conjunto oping = GetObject ("winmgmts: {ImpersonationLevel = impersonate}") .ExecQuery _ ("SELECT * FROM Win32_PingStatus onde address = `" & Shost & "`") Para cada oRetStatus Em oPingIf IsNull (oRetStatus.StatusCode) Ou oRetStatus.StatusCode lt; gt; 0 = ThensPing "Ping Falha"ElsesPing = Shost & " Ping sucesso no " & Agora() & CHR (10) Sping = Sping & "Tempo (ms) = " & vbTab & oRetStatus.ResponseTime & CHR (10) Sping = Sping & "TTL (s) = " & vbTab & vbTab & oRetStatus.ResponseTimeToLiveEnd IfNextSheet1.Cells (intRow, 2) = = sPingintRow intRow + 1Next

O primeiro “Para” olhar para o topo apenas atravessa as células de resultados e limpa os resultados da última vez que eu corri um cheque. O segundo ciclo FOR conta através das linhas listando os sítios, a partir da terceira linha (intRow-3), executa o comando ping (a linha Conjunto oping), e, em seguida, devolve os resultados na coluna B (Sheet1.Cells (intRow, 2 ) = sping).

Veja como esses resultados cuidar do script é executado.

A coluna de resultados mostra se o ping foi bem sucedido, e os detalhes / TTL horárias.

Se você não estiver familiarizado com a adição de botões de comando para uma folha de Excel, você pode adicionar o botão do menu “Desenvolvedor”, e clicando no botão “Insert” e escolhendo o botão da lista. Desenhe o botão sobre a folha, clique direito sobre ele e selecione “Atribuir macro”.

Digite o nome da macro para esse botão, e clique em “Novo”.

Isto irá abrir a tela do código onde você pode inserir o código de cima.

A manutenção de uma Biblioteca de Grupos de Ligação

Em outra guia, eu também começou a organizar o grupo de links que eu uso para executar determinadas tarefas. Por exemplo, quando eu escrevo para MUO, eu gosto de abrir o editor MUO WordPress, Google, e nossa página do Google Docs para tópicos. Quando eu pesquiso para Principais tópicos Escritores segredo, eu gostaria de abrir algumas páginas de mídia padrão.

Quando clico no botão “Grupo Launch”, que vai lançar o navegador web padrão e abrir todas as páginas desse grupo. Veja como o script para cada botão parece:

Dim intSiteCount Como IntegerDim intCount Como IntegerDim intCol Como IntegerDim intRow Como IntegerintSiteCount = CInt (Sheet2.Cells (4, 3) .value) intRow = 5Para intCount = 1 a intSiteCountActiveWorkbook.FollowHyperlink (Sheet2.Cells (intRow, 2)) = intRow intRow + 1Next

Este script é simples, mas eficaz. O segredo para isso é a função “FollowHyperlink”. Este código irá verificar o número de ligações definidas na célula à direita do título do grupo, e sabe para ser executado através de que muitos links antes do título. Para cada botão, a localização da contagem da ligação, ea coluna que está sendo precisa ser digitados manualmente no código usado, mas o resto do código é idêntico para cada botão.

Pré-visualizar a Galeria de Fotos

Na próxima aba do meu automação planilha é onde eu vou quando quero correr rapidamente através de todas as imagens na minha pasta de imagens. Eu faço isso porque eu coloque mais do que apenas imagens dessa pasta, e quero ver todos os arquivos que eu tenho lá.

Aqui está o que parece após clicar no botão “Preview Pics”.

Agora eu atualizar manualmente esta folha apagando todas as imagens da coluna B e clicando no botão “Preview Pics”.

O botão é executado o seguinte script:

myPict Dim como StdPictureDim strFilePath Como StringDim intRow Como IntegerDim myPictName Como VariantDim mycell Como RangeDim sPicture Como StringDim strTest Como StringDim myRng Como RangeDim intSkip Como IntegerintRow = 2strFilePath = Sheet3.Cells (1, 3) .ValueSet meuObjeto = Nova Scripting.FileSystemObjectSet minhaFonte = meuObjeto .GetFolder (strFilePath) On Error Resume NextWith Sheet3Set myRng = Sheet3.Range ("B2", .Cells (.Rows.Count, "B") .End (xlUp)) End WithFor Cada meuarquivo Em mySource.Files`If imagem é uma fileIf direito (meuarquivo, 4) = ".gif" Ou Direita (myfile, 4) = ".jpg" Ou Direita (myfile, 4) = ".bmp" Ou Direita (myfile, 4) = ".tif" Ou Direita (myfile, 4) = ".png" ThenSheet3.Cells (intRow, 1) = .Value ""Sheet3.Cells (intRow, 1) .Value = myfile.NameintSkip = 0For Cada mycell Em myRng.CellsIf intSkip = 1 ThenWith myCell.Offset ((intRow - 3) + 1, 0) Sheet3.Shapes.AddPicture myfile.Path, msoCTrue , msoCTrue, .Left, .Top, 125, 125End comend IfintSkip = intSkip + 1Next myCellEnd IfintRow = intRow + 1Next

O segredo desse script está usando o objeto StdPicture, que permite classificar de fotos de sobreposição no local de certas células, definindo as propriedades da esquerda e da parte superior da imagem para coincidir com a da célula. Apenas certifique-se o tamanho das células ligeiramente maior do que o que você definir no código. Na minha situação eu usei 125 altura e largura para as imagens, de modo que minhas células são definidas um pouco maior do que antes do tempo.

Gerenciamento de sua dívida

A guia final que eu quero compartilhar é realmente aquele que eu escrevi um tempo atrás sobre como usar o Excel para criar um orçamento pessoal.Faça um orçamento pessoal em Excel em 4 etapas fáceisFaça um orçamento pessoal em Excel em 4 etapas fáceisCerca de 10 anos atrás, minha esposa e eu estávamos montou com tanta dívida que nós pensamos que levaria o resto de nossas vidas, ou pelo menos os próximos sessenta anos, para pagá-lo ...consulte Mais informação

O conceito mais importante que eu escrevi sobre esse artigo, e que pertence em qualquer artigo sobre o uso de Excel para gerenciar sua vida, está usando o Excel para calcular como o “efeito bola de neve” pode ajudá-lo a pagar as suas dívidas.

O conceito é muito simples. Listar todos seu lado dívida de cartão de crédito a lado em uma folha, com duas colunas por dívida - saldo total e pagamento. O cálculo para cada célula pagamento posterior é “PrevBalance + (PrevBalance * 0.10 / 12) - último pagamento”

Então você pode arrastar todos os valores para baixo a folha e eles vão recalcular, mostrando quão rapidamente seu saldo vai cair como você fazer os pagamentos. Como você pode ver, fazendo um pagamento por débito até que cada dívida é paga acabará por pagar cada dívida individual.

Mas graças ao poder calcular rápida do Excel, você pode determinar quando saldos serão pagos, e nesse ponto tomar o saldo mínimo para esse cartão e movê-lo para outro cartão ainda não foram pagos. Como mostra a planilha, cada balança posterior é pago fora muito mais rápido.

Excel permite calcular e visualizar rapidamente como seus pagamentos vai afetar datas recompensa futuras, e dá-lhe também um cronograma para olhar para trás, enquanto você está tentando ter certeza de que você está no caminho certo em pagar as dívidas.

Como você pode ver, o Excel é uma ferramenta muito poderosa quando se trata de gerenciar todos os aspectos de sua vida - se é o seu trabalho, gerenciamento de arquivos, ou seu orçamento.

Você tem usos únicas para Excel para gerir a sua própria vida? Compartilhar algumas de suas dicas e conselhos na seção de comentários abaixo.