O Melhor do Excel

Interessante...
Clique na imagem ao lado para visitar a página com o vídeo explicativo.

Para os fanáticos pelo Twitter e que não conseguem largar o Excel, aqui está a solução:

Write Your Own Twitter Client using Microsoft Excel

Também serve para aprender um pouco de VBA...

Todo mundo sabe o que é uma figura .bmp (bitmap).
Cada pixel recebe uma cor.
Podemos dizer que é uma "tabela toda colorida".

Bitmap = Tabela... Caramba! Posso incluir um bitmap no Excel!

Verdade.

Mas dá trabalho.Tem uma pessoa, com conhecimento e paciência, que liberou o trabalho na Internet. Jalaj P. Jha deixou a dica aqui. Eu não tive muita curiosidade e tempo para conferir se funciona.

Vamos ver se alguém se aventura.

Invente a sua aplicação para isso...

Sub C_Regressiva()
Cells(1, 1) = 60
For i = 1 To 60
Application.Wait Now + TimeSerial(0, 0, 1)
Cells(1, 1) = Cells(1, 1) - 1
Next
End Sub

Vídeo muito básico, mas quem nunca criou uma macro verá que não é um bicho de sete cabeças. Peguei no Youtube. Vocês podem encontrar uns mais profundos lá.

"Tem como ao digitar ou escolher na lista de opçõe de uma célula um número, uma macro ser executada?" [sic].

A pergunta é boa.

Para resolver isso, crie na sua pasta em VBA Project:

Por exemplo, ao digitar "5" na célula "E5" ele roda a macro "teste" (que está no módulo 1).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(5, 5) = 5 Then teste
End Sub

Para quem quer comunicar algo por caixa de texto: msgbox.

Para quem quer pegar informação por caixa de texto: inputbox.

Exemplo:

Sub meu_time()
nome = InputBox("digite o nome do seu time")
If nome = "Flamengo" Then
MsgBox ("Parabéns!!!")
Else
MsgBox ("Coitado...")
End If
End Sub

Leitura complementar em bugsa

Pare de gastar tempo formatando o relatório para caber em uma tela.

Se o seu monitor for maior que o do seu chefe, já era...

Use a seguinte macro para sempre acertar:


Sub Z()

Range("A1:P40").Select 'Intervalo de células do seu relatório

ActiveWindow.Zoom = True

End Sub

Outro dia uma pessoa me perguntou: "Tem um atalho para ir ao dependente?"

Para dependentes na mesma aba: F5 + (Alt+E) + N (para Excel 2007 em português)

Ou, se preferir, com uma macro básica (e associar uma tecla de atalho):

Sub D1()
Selection.Dependents.Select
End Sub

ou (para dependente direto)...

Sub D2()
Selection.DirectDependents.Select
End Sub

Para dependentes em outras planilhas também é possível mas acho que o crime não compensa...

Outro dia estava caçando uma macro do Excel para fazer o seguinte procedimento para cada célula de um Range:

1) Entrar na célula
2) Abri-la para edição
3) Fechá-la para edição

Esse processo faz o Excel recalcular fórmulas e aplicar os formatos nas células. Isto é muito útil quando se cola muito texto no excel e ele não aplica os formatos pré-definidos nas células e acha que tudo é texto.

Segue abaixo a macro. Você pode encontrar essa e outras macros nessa página.

Sub ReEnter()
 Application.ScreenUpdating = False
 Application.Calculation = xlCalculationManual 'pre XL97 xlManual
 Dim cell As Range
 Dim ix as Long
 tCells = Selection.Count

 For ix = 1 To tCells
   Selection.Item(ix).Formula = Trim(Selection.Item(ix).Formula)
 Next ix

 Application.Calculation = xlCalculationAutomatic 'pre XL97 xlAutomatic
 Application.ScreenUpdating = True
End Sub