www.ricardo.horta.nom.br - Dicas Microsoftianas: Rapidinhas

RicardoHorta.Net - Rapidinhas: 2007

SUBMARINO: Fácil ! Rápido ! Seguro !

Parceria RicardoHorta.Net + SUBMARINO

Você quer me ajudar ?
Microsoftiano(a):
Comprando no SUBMARINO, através do meu site, você me ajuda a preservar o meu projeto: Site pessoal com tutoriais sobre o Office microsoftiano, com acesso livre e gratuito.
Pense nisto.

Newsletter

31/12 - 03:00 - Rapidinha 108.0 - Excel: Elucubrações filosóficas sobre a função MÍNIMO

Faça o download das planilhas

Funcao_DataHora_MINIMO_RicardoHortaNet.zip
Funcao_DataHora_MINIMO_02_RicardoHortaNet.zip

SUBMARINO: Fácil ! Rápido ! Seguro !

30/12 - 12:00 - Rapidinha 107.0 - Excel: Bela dupla: MÁXIMO + Formatação condicional

Faça o download da planilha - Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

29/12 - 03:00 - Rapidinha 106.0 - Excel: Funções de Data / Hora - Tutoriais e Exemplos.

AGORA - Clique aqui
DATADIF - Clique aqui
DIA.DA.SEMANA - Clique aqui
HORA - Clique aqui
MINUTO - Clique aqui
SEGUNDO - Clique aqui
NÚMSEMANA - Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

28/12 - 03:00 - Rapidinha 105.0 - Excel: Funções de Texto - Tutoriais e Exemplos.

Funcoes_RicardoHortaNet.xls - Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

27/12 - 03:00 - Rapidinha 104.0 - Excel: Funções de Estatística - Tutoriais e Exemplos.

CONT.SE - Clique aqui
CONT.VALORES - Clique aqui
CONTAR.VAZIO - Clique aqui
MÍNIMOA - Clique aqui
MODO - Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

26/12 - 10:00 - Rapidinha 103.0 - Excel: Funções de Informações - Tutoriais e Exemplos.

ÉCÉL.VAZIA - Clique aqui
ÉIMPAR - Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

20/12 - 10:00 - Rapidinha 102.0 - Excel: Funções Lógicas - Tutoriais e Exemplos.

E - Clique aqui
ÉLÓGICO - Clique aqui
ÉNÚM - Clique aqui
OU - Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

18/12 - 10:00 - Rapidinha 101.0 - Excel: Funções Matemáticas - Tutoriais e Exemplos.

ABS - Clique aqui
ARREDONDAR.PARA.BAIXO - Clique aqui
ARREDONDAR.PARA.CIMA - Clique aqui
ÍMPAR - Clique aqui
PAR - Clique aqui
SINAL - Clique aqui
SOMA - Clique aqui
SOMASE - Clique aqui
SOMASE - Clique aqui
SOMASE - Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

17/12 - 10:00 - Rapidinha 100.0 - Excel: Funções Procura - Tutoriais e Exemplos.

COL - Clique aqui
ESCOLHER - Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

16/12 - 03:00 - Rapidinha 99.0 - MODO + CONT.SE

Com a função MODO, você identifica o número que mais se repete em uma lista.
Com CONT.SE, você identifica quantas vezes este número é repetido.

Faça o download da planilha - Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

14/12 - 03:00 - Rapidinha 98.0 - Formulário

Você pode utilizar um Botão de comando ( controle CommandButton ), armazenado, por exemplo, em Plan1, para ativar o formulário padrão microsoftiano e exibir / editar dados, armazenados em outra planilha ( por exemplo, Plan2 ).

Faça o download da planilha - Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

13/12 - 03:00 - Rapidinha 97.0 - BDMÁX

Digite o nome do vendedor e, com a ajuda da função BDMÁX, o Excel retornará a maior venda do vendedor informado.
Faça o download da planilha - Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

12/12 - 10:00 - Rapidinha 96.0 - Formulário

O Excel possui um formulário padrão, que pode ser ativado clicando em menu Dados / opção Formulário.
Para exibi-lo com a ajuda de um Botão de comando ( controle CommandButton ), utilize o evento Click.
Por exemplo:

Private Sub CommandButton1_Click()
ActiveSheet.ShowDataForm
End Sub

Faça o download da planilha - Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

10/12 - 03:00 - Rapidinha 95.0 - Formatando controles - 3.0.

Com este exemplo, você poderá alterar, durante a execução do aplicativo, as cores da fonte ( propriedade ForeColor ) e do preenchimento ( propriedade BackColor ) dos controles TextBox, ComboBox e do formulário ( UserForm_Dados ).
Faça o download do exemplo. Clique aqui

Comentários
No formulário UserForm_Dados clique no botão Formatos.
O formulário UserForm_Formatos será exibido com opções de cores para preenchimento ( cor do fundo ) e fonte.
As cores selecionadas serão aplicadas em uma caixa de texto, utilizada como exemplo. Assim, você visualizará o resultado sem precisar fechar o formulário.
Selecione também uma cor para o formulário. Uma moldura-exemplo exibirá a cor escolhida.
Clique no botão Salvar e, em seguida, no botão Fechar.

SUBMARINO: Fácil ! Rápido ! Seguro !

07/12 - 03:00 - Rapidinha 94.0 - Formatando controles - 2.0.

Com este exemplo, você poderá alterar, durante a execução do aplicativo, as cores da fonte ( propriedade ForeColor ) e do preenchimento ( propriedade BackColor ) dos controles TextBox e ComboBox.
Faça o download do exemplo. Clique aqui

Comentários
No formulário UserForm_Dados clique no botão Formatos.
O formulário UserForm_Formatos será exibido com opções de cores para preenchimento ( cor do fundo ) e fonte.
As cores selecionadas serão aplicadas em uma caixa de texto, utilizada como exemplo. Assim, você visualizará o resultado sem precisar fechar o formulário.

Satisfeito(a) com o resultado ? Então, clique no botão Salvar e, em seguida, no botão Fechar.

SUBMARINO: Fácil ! Rápido ! Seguro !

06/12 - 03:00 - Rapidinha 93.0 - Formatando controles - 1.0.

Permita que o(a) usuário(a) altere a cor dos controles TextBox e ComboBox, durante a execução do aplicativo.
Faça o download do exemplo. Clique aqui

Comentários
No formulário UserForm_Dados, foi incluído o botão Formatos.
Clicando nele, será exibido outro formulário ( UserForm_Formatos ) com opções de cores para as caixas de texto e de combinação.
A cor selecionada será aplicada em uma caixa de texto, utilizada como exemplo. Assim, você visualizará o resultado sem precisar fechar o formulário.

Satisfeito(a) com o resultado ? Então, clique no botão Salvar e, em seguida, no botão Fechar.
A cor será aplicada nos controles TextBox e ComboBox do formulário UserForm_Dados.

O botão Dicas
Com o botão Dicas de tela, defina o texto que será exibido, quando o(a) usuário(a) mover o ponteiro do mouse sobre os controles.
É a propriedade ControlTipText pintando no pedaço.

SUBMARINO: Fácil ! Rápido ! Seguro !

04/12 - 03:00 - Rapidinha 92.0 - Ms Office - UserForm - Controles - Propriedade ControlTipText.

Quando você posiciona o ponteiro do mouse sobre qualquer botão de qualquer barra de ferramentas do Microsoft Office, uma dica é exibida.
Esta dica pode ser desativada / ativada / alterada a qualquer momento.
Esta tarefa você sabe muito bem como fazer.

Nos aplicativos, criados por você, os controles ( TextBox, ComboBox ) têm a propriedade ControlTipText, que pode ser utilizada para exibir informações sobre os campos/controles no formulário.

O conteúdo desta propriedade é definido no Editor do Visual Basic. Você seleciona o controle, clica na propriedade ControlTipText, digita o texto e tecla [ ENTER ].
Quando o usuário posicionar o ponteiro do mouse sobre o controle, o texto, criado por você, será exibido.
Porém, microsoftiano(a), nos programas do Microsoft Office, o usuário pode alterar as dicas das barras de ferramentas a qualquer momento.
No seu aplicativo, não. Se o usuário não gostar da dica, dane-se o pobre coitado.
Pensando nisto, podemos criar uma rotina para editar o conteúdo da propriedade ControlTipText e alterá-la, durante a execução do aplicativo. Não será preciso utilizar o Editor do VBA para modificá-la.
Na pasta anexa, o formulário UserForm_Dados tem um botão chamado Dicas da tela.
Clique nele e outro formulário será exibido com os nomes dos campos e uma caixa de texto para você digitar a dica relativa ao campo.
Clique no botão Salvar e, em seguida, no botão Fechar.
No formulário principal, mova o ponteiro do mouse sobre os controles.
As dicas, criadas por você, serão exibidas. E poderão ser alteradas, durante a execução do aplicativo. Tal e qual no Excel, Word e PowerPoint.
Faça o download do exemplo e divirta-se ! Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

02/12 - 12:00 - Rapidinha 91.0 - Ms Office: Realçando controles

Você pode alterar a cor de controles TextBox e ComboBox, quando eles receberem o foco. Assim, é possível identificar melhor o campo que será digitado.
Para alterar a cor do controle, utilize a propriedade BackColor, a função RGB e os eventos Enter e Exit.
Enter ocorre antes do controle receber o foco.
Exit ocorre antes do controle perder o foco.

Faça o download do exemplo e veja como BackColor, RGB, Enter e Exit trabalham em conjunto Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

01/12 - 10:00 - Rapidinha 90.0 - Ms Office: Controles TextBox - Propriedade MultiLine

A propriedade MultiLine para controles TextBox define se os dados serão digitados em uma única linha ou em várias linhas.
O padrão é MultiLine = False. O TextBox receberá / exibirá o texto em uma linha.
Para digitar / exibir o texto em várias linhas, faça MultiLine = True.
Dependendo da altura do controle e da quantidade de linhas, será criada uma barra de rolagem vertical para exibir o conteúdo.

Criei um TextBox com MultiLine = True. Quando teclo [ ENTER ], o foco passa para o campo seguinte. E agora ?
Para criar linhas em controles TextBox com MultiLine = True, utilize o conjunto de teclas [ CTRL ] + [ ENTER ].
Funciona assim. Você digita a primeira linha. Em seguida, pressiona [ CTRL ] e tecla [ ENTER ].
Uma nova linha será criada.

Na pasta anexa, o campo para receber o endereço está com a propriedade MultiLine = True.
Clique no ComboBox, localizado no canto inferior do UserForm, e selecione o nome cadastrado.
Observe como os dados serão exibidos.
Faça o download do exemplo e aprenda ! Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

29/11 - 10:00 - Rapidinha 89.0 - Excel: Pesquisando código

Você pode utilizar a opção Validação de Dados e a função PROCV, para incrementar as pesquisas em planilhas.
No exemplo anexo, foram criadas 2 planilhas: Marcacao e Funcionarios.
Na planilha Marcacao, a célula B:2 exibe os códigos dos funcionários. Você seleciona um dos códigos e o nome do funcionário será exibido na célula B:3, graças à PROCV.
Aí está uma forma simples de criar pesquisas em planilhas. Não é preciso programar e o resultado é ótimo !
Faça o download do exemplo Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

28/11 - 14:00 - Rapidinha 88.0 - Excel: Propriedade Hidden

A propriedade Hidden oculta ( True ), exibe ( False ) as colunas de uma planilha
A sintaxe é: Nome da Planilha.Coluna.Hidden = True / False
Por exemplo: Worksheets("Plan1").Columns("C").Hidden = True oculta a coluna C de Plan1.
Faça o download da planilha-exemplo Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

27/11 - 03:00 - Rapidinha 87.0 - Excel: Função BDSOMA / BDMÉDIA

Qui tal BDSOMA e BDMÉDIA na mesma planilha ? Chique !

Faça o download da planilha-exemplo Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

27/11 - 03:00 - Rapidinha 86.0 - Excel: Função BDSOMA

Utilize BDSOMA para somar as células de um banco de dados, conforme os critérios selecionados por você.

Faça o download da planilha-exemplo Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

26/11 - 06:00 - Rapidinha 85.0 - Excel: Função BDCONTAR

Em uma lista / banco de dados, você define a coluna, que será pesquisada, e os critérios para pesquisa. BDCONTAR retornará o total de ocorrências para os critérios definidos.

Faça o download da planilha-exemplo Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

26/11 - 06:00 - Rapidinha 84.0 - Excel: Função BDMÍN

BDMÍN Retorna o menor valor de uma coluna em uma lista ou banco de dados, conforme as condições definidas por você.
Neste exemplo, você seleciona uma matéria e a pesquisa retornará a menor nota da matéria selecionada.
A pesquisa é feita de acordo com os critérios definidos por você.

Faça o download da planilha-exemplo Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

25/11 - 06:00 - Rapidinha 83.0 - Excel: Função BDMÁX

BDMÁX pesquisa, em uma lista ou banco de dados, o maior valor.
A pesquisa é feita de acordo com os critérios definidos por você.
Neste exemplo, você seleciona uma matéria ( Matemática, Física, etc... ) e a função retornará a maior nota da matéria selecionada.
Faça o download da planilha-exemplo Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

24/11 - 14:00 - Rapidinha 82.0 - Excel: Função CONTSE

Função CONTSE: O básico, para aqueles que estão engatinhando, começando lento e gradualmente, no universo microsoftiano.
Faça o download da planilha-exemplo Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

24/11 - 14:00 - Rapidinha 81.0 - Excel: Função SE

Função SE: O básico, para aqueles que estão começando a navegar no universo microsoftiano.
Faça o download da planilha-exemplo Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

24/11 - 06:00 - Rapidinha 80.0 - Excel: Função SE + Formatação Condicional

Utilize a função SE com a formatação condicional para realçar os dados na planilha.
Faça o download da planilha-exemplo e veja como esta dupla pode lhe ajudar Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

24/11 - 06:00 - Rapidinha 79.0 - Excel: Função PROCV

Na planilha NotasAluno, coluna A, foram digitados os nomes dos alunos.
Nas colunas B, C, D e E, estão as matérias ( Matemática, Português, História e Geografia ) com as notas de cada aluno.
Na coluna F, é calculada a média das notas.
Com esta média, b pesquisa em uma tabela a avaliação para o aluno.
Por exemplo, se ele obteve 10, será retornada a letra A.
Se a média foi 9, será retornada a letra B, e assim por diante.
Caro(a) microsoftiano(a), bom aprendizado e bom proveito. Você merece PROCV.

Faça o download da planilha-exemplo e veja como trabalha esta poderosa função Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

23/11 - 06:00 - Rapidinha 79.0 - Excel: Função ARRUMAR

Remove todos os espaços extras entre as palavras, mantendo apenas um único espaço.
Os espaços extras podem estar no início, no meio ou no fim das palavras.
Faça o download da planilha-exemplo e veja como trabalha esta função Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

23/11 - 06:00 - Rapidinha 78.0 - Excel: Controle Label

Você pode utilizar Rótulos ( Label ) em substituição aos tradicionais Botões de comando ( CommandButton ).
Ambos os dois controles trabalham com o evento Click, portanto, podem ser utilizados para gerar ações.
Neste bucólico exemplo, controles Label foram inseridos no lugar dos microsoftianos CommandButton, sem prejuízo para o aplicativo.
Faça o download do aplicativo e estude o código, microsoftiano(a) amigo(a). Você vai ficar fera neste assunto.
Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

23/11 - 06:00 - Rapidinha 77.0 - Excel: Livro Caixa

Abaixo, microsoftiano(a) amigo(a), um exemplo de Livro Caixa.
Foram criadas 12 planilhas com os nomes dos meses ( Janeiro a Dezembro ).

A coluna A está preparada para receber as datas e está formatada com 01/01/2007.
Na coluna B, você irá digitar os itens ( Luz, Condomínio, Água, Motel,... ).
A coluna C, receberá os créditos e está formatada com Contábil, cor azul.
A coluna D, receberá os débitos e está formatada com Contábil, cor vermelha.

E:2 está reservada para o saldo anterior. A fórmula já foi criada.
Assim, em Fevereiro, E:2 está com a fórmula =Janeiro!H2, em Marco, a fórmula é =Fevereiro!H2 e assim por diante.
Não é preciso preencher esta célula. A fórmula irá atualizá-la, corretamente.

F:2 totaliza a coluna Crédito. G:2 totaliza a coluna Débito. Não digite nestas células. Elas serão atualizadas, à medida que você preencher a planilha.
H:2 exibirá o cálculo Saldo anterior + Crédito - Débito.

Observe, singelo(a) microsoftiano(a), que as linhas 1 e 2 foram congeladas. Assim, elas serão sempre exibidas, não importa a linha que você estiver digitando. Você poderá visualizar os totais a qualquer momento.

Para fazer o download do exemplo, clique aqui

20/11 - 06:00 - Rapidinha 76.0 - Excel: ActiveSheet

A propriedade ActiveSheet representa a planilha ativa da pasta de trabalho

SUBMARINO: Fácil ! Rápido ! Seguro ! E Ótimo !

14/11 - 06:00 - Rapidinha 75.0 - Excel: Método IncrementRotation

Define a rotação ( movimento ) de um objeto Shape.

A sintaxe é ObjetoShape.IncrementRotation GrauRotação.
Por exemplo: Worksheets("Plan1").Shapes(1).IncrementRotation 30

Faça o download do exemplo e veja como o método trabalha Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

13/11 - 06:00 - Rapidinha 74.0 - Excel: Propriedade DisplayCommentIndicator

A propriedade DisplayCommentIndicator define como as células exibem comentários e indicadores.
Ela pode ser igual a xlNoIndicator, xlCommentIndicatorOnly ou xlCommentAndIndicator.
A sintaxe é: Application.DisplayCommentIndicator = uma das opções abaixo.

xlCommentAndIndicator exibe comentários e indicadores.
xlCommentIndicatorOnly oculta os comentários mas exibe os indicadores.
xlNoIndicator oculta comentários e indicadores.

Faça o download do exemplo e veja como a danada funciona Clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

12/11 - 10:00 - Rapidinha 73.0 - Excel: Clear x ClearContents

O método Clear apaga o conteúdo, a fórmula e a formatação da célula.
Sintaxe: Worksheets("Plan1").Range("A1").Clear

O método ClearContents apaga o conteúdo e a fórmula. A formatação aplicada à célula ( tipo, estilo, cor e tamanho da fonte, cor do preenchimento, alinhalmentos horizontal e vertical, etc... ) é preservada.
Sintaxe: Worksheets("Plan1").Range("A1").ClearContents

SUBMARINO: Fácil ! Rápido ! Seguro !

02/11 - 10:00 - Rapidinha 72.0 - Excel: Objeto Range

Ao trabalhar com objetos Range, você pode utilizar o nome, criado para a célula, ou o endereço da célula.

Crie o nome para, por exemplo, B:1.
Range("B1").Name = "Funcionario"

Para acessar B:1, será possível utilizar o endereço
Range("B1").Value = "Astolfo Horta"

ou o nome dado para a célula.
Range("Funcionario").Value = "Astolfo Horta"

O resultado será o mesmo.

SUBMARINO: Fácil ! Rápido ! Seguro !

30/10 - 06:00 - Rapidinha 71.0 - Excel: Método Delete

Delete exclui uma linha da planilha
Aplica-se à coleção Rows, que representa todas as linhas de uma planilha.
A sintaxe é: Nome_da_planilha.Rows(Número_da_linha).Delete.
Você poderá utilizar o método Delete nos seus aplicativos, para excluir registros.
Faça o download da pasta-exemplo e estude o código VBA
Pasta-exemplo

SUBMARINO: Fácil ! Rápido ! Seguro !

29/10 - 10:00 - Rapidinha 70.0 - Excel: Método ClearContents

Download - Pasta-exemplo
O método ClearContents limpa todos os valores e fórmulas do intervalo de células, porém, preserva a formatação.

Sintaxe

Células.ClearContents.

Como trabalhar com o método ClearContents

Se você precisar, através do VBA, excluir o conteúdo de um intervalo de células, preservando a sua formatação ( tipo, tamanho, estilo e cor da fonte,... ), utilize o método ClearContents.
Na planilha-exemplo, foram adicionados 2 botões: Conteúdo e Limpa.
Clicando no botão Contéudo, será gerada uma lista com código, nome e salário.
Esta lista será formatada com fonte Arial, Tamanho 8 e cor Vermelha.
O código completo do evento Click de CommandButton_Conteudo é este.

Private Sub CommandButton_Conteudo_Click()

With Worksheets("Plan1")
     With .Range("A1:D4")
           With .Font
                .Name = "Arial"
                .Size = 8
                .Color = RGB(255, 0, 0)
           End With
           .HorizontalAlignment = xlCenter
     End With
     .Range("A1").Value = "Código"
     .Range("B1").Value = "Nome"
     .Range("C1").Value = "Salário"
     .Range("D1").Value = "Total"

     .Range("A2").Value = 1
     .Range("B2").Value = "Aderbal"
     .Range("C2").Value = 1500
        
     .Range("A3").Value = 2
     .Range("B3").Value = "Bertiolga"
     .Range("C3").Value = 2500
         
     .Range("A4").Value = 3
     .Range("B4").Value = "Desudete"
     .Range("C4").Value = 1000
         
     With .Range("C2:C4")
          .NumberFormat = "$#,##0.00"
     End With

     With .Range("D4")
          .Formula = "=$C$2+$C$3+$C$4"
          .NumberFormat = "$#,##0.00"
     End With
                   
     With .Range("A6:B8")
           With .Font
                .Name = "Arial"
                .Size = 8
           End With
           .HorizontalAlignment = xlCenter
           .ClearContents
     End With
End With

End Sub

A formatação das células para exibir os dados.

     With .Range("A1:D4")
           With .Font
                .Name = "Arial"
                .Size = 8
                .Color = RGB(255, 0, 0)
           End With
           .HorizontalAlignment = xlCenter
     End With

Os dados.

     .Range("A1").Value = "Código"
     .Range("B1").Value = "Nome"
     .Range("C1").Value = "Salário"
     .Range("D1").Value = "Total"

     .Range("A2").Value = 1
     .Range("B2").Value = "Aderbal"
     .Range("C2").Value = 1500
        
     .Range("A3").Value = 2
     .Range("B3").Value = "Bertiolga"
     .Range("C3").Value = 2500
         
     .Range("A4").Value = 3
     .Range("B4").Value = "Desudete"
     .Range("C4").Value = 1000

Formatos numéricos

Com a propriedade NumberFormat, você define como os números ( neste exemplo, salários ) serão exibidos.
Com a propriedade Formula, você, através do VBA, cria a fórmula para a célula, neste exemplo, D4.

     With .Range("C2:C4")
          .NumberFormat = "$#,##0.00"
     End With

     With .Range("D4")
          .Formula = "=$C$2+$C$3+$C$4"
          .NumberFormat = "$#,##0.00"
     End With

O botão Limpa

O segundo botão ( Limpa ) exclui todo o conteúdo do intervalo ( A1:D4 ) com a ajuda de ClearContents, porém, você observará, inteligente microsoftiano(a), que a formatação será preservada. Mesmo depois da tabela ser excluída.
Aí está o evento Click de CommandButton_Limpa.

Private Sub CommandButton_Limpa_Click()

With Worksheets("Plan1")
        With .Range("A1:D5")
                .ClearContents
        End With

        .Range("A6").Value = "Fonte"
        .Range("B6").Value = Range("A1").Font.Name
        .Range("A7").Value = "Tamanho"
        .Range("B7").Value = Range("A1").Font.Size
        .Range("A8").Value = "Cor"
        .Range("B8").Value = Range("A1").Font.Color
End With

End Sub

Nas células A6:B8, serão exibidos os atributos da formatação do intervalo A1:D4.
Note que as células continuarão com a mesma formatação.

SUBMARINO: Fácil ! Rápido ! Seguro !

25/10 - 06:00 - Rapidinha 69.0 - Excel: Função MENOR

Utilize MENOR para retornar o k-ésimo menor valor em um intervalo de células.
Com a função MÍNIMO, você pesquisa o menor valor em um conjunto de células.
Com a função MENOR, você pode identificar, por exemplo, o 3º ou o 4º ou o 5º menor valor no intervalo de células.

Sintaxe

MENOR(dados,k)
dados: é o intervalo de células que você deseja pesquisar.
k: é a posição (a partir do menor) na matriz ou intervalo de dados.

Como trabalhar com a função MENOR.

Ative Plan1.
Digite 3 ( A:1 ), 4 ( A:2 ), 5 ( A:3 ), 2 ( A:4 ), 7 ( A:5 ) e 6 ( A:6 ).
Selecione B:1.
Clique na barra de fórmulas, digite =MENOR(A1:A6;4) e tecle [ ENTER ].
A fórmula retornará 5, que é o 4º menor número no intervalo de células.

SUBMARINO: Fácil ! Rápido ! Seguro !

24/10 - 06:00 - Rapidinha 68.0 - Excel: Função EDATE

Para somar meses em uma data, utilize a função EDATE.

Sintaxe

EDATE(data_inicial;meses)
Meses é o número de meses antes ou depois de data_inicial. Um valor positivo para meses gera uma data futura. Um valor negativo gera uma data passada.

Suplemento: Instalando.

Acesse o menu Ferramentas, clique em Suplementos e certifique-se de que Ferramentas de Análise esteja marcada.
Clique no botão OK.

Trabalhando com EDATE.

Agora, vamos ao teste.
Selecione A:1, formate-a como Data ( menu Formatar / Células ) e informe, por exemplo, 01/10/2007.
Selecione B:1, formate-a como Número ( sem decimais ) e informe, por exemplo, 2
Finalmente, selecione C:1 e formate-a como Data.

A fórmula.

Com C:1 selecionada, clique na barra de fórmulas, digite =EDATE(A1;B1) e tecle [ ENTER ].
O Excel retornará, neste exemplo, 01/12/2007.

SUBMARINO: Fácil ! Rápido ! Seguro !

21/10 - 03:00 - Rapidinha 67.0 - Excel XP: Selecionando células com Caixa de nome.

Para selecionar grandes intervalos de células, utilize a Caixa de nome. Clique aqui

21/10 - 03:00 - Rapidinha 66.0 - Excel XP: Selecionando células com texto.

Ao trabalhar com extensas planilhas, você deseja selecionar apenas as células com texto.
Simples.
No menu Editar, clique em Ir para.
Clique na opção Especial.
Na caixa de diálogo Ir para especial, selecione a opção Constantes.
Desmarque as opções Números, Lógicas e Erros.
Mantenha a opção Texto selecionada.
Clique no botão OK e verifique o resultado.
As células com apenas números, moedas e fórmulas serão ignoradas.
Apenas as células com texto serão selecionadas.
Ver imagens ? Então, clique aqui

SUBMARINO: Fácil ! Rápido ! Seguro !

16/10 - 03:00 - Rapidinha 65.0 - Excel XP: Manipulando objetos e propriedades.

Você pode personalizar a janela do Excel XP, redimensionando-a, alterando o seu tamanho, a sua largura durante a execução do aplicativo, desenvolvido por você.
Abaixo, segue um pequeno ( é apenas a ponta do iceberg ) exemplo do que você pode fazer.

Tresloucando o Excel.

Abra uma pasta vazia.
Clique no botão Salvar e defina local e nome ( ObjetoActiveWindow.xls ).
Abra o Editor do Visual Basic ( menu Ferramentas / Macro / Editor ).
Clique no menu Inserir e em Módulo.
Em Módulo1, crie a rotina abaixo

     Sub FormatarPlanilha()

     With Worksheets(1)
          .Activate
          With .Range("A1")
               .Activate
               .Value = "8 segundos"
                With .Font
                     .Name = "Arial"
                     .Size = 8
                End With
          End With
     End With
	  
     With ActiveWindow
         .DisplayGridlines = False
         .DisplayHeadings = False
         .Caption = "RicardoHorta.Net"
         .DisplayHorizontalScrollBar = False
         .DisplayVerticalScrollBar = False
         .DisplayWorkbookTabs = False
         .WindowState = xlNormal
         .Height = 150
         .Width = 150
         .Top = 0
         .Left = 0

         Application.Wait (Now + TimeValue("00:00:08"))
         .DisplayGridlines = True
         .DisplayHeadings = True
         .Caption = ""
         .DisplayHorizontalScrollBar = True
         .DisplayVerticalScrollBar = True
         .DisplayWorkbookTabs = True
         .WindowState = xlMaximized
     End With

     With Worksheets(1).Range("A1")
          .Value = " OK "
     End With

     End Sub

Na janela Projeto, clique em EstaPasta_de_trabalho.
Na janela Objeto, selecione Workbook.
No evento Open, informe.

    Private Sub Workbook_Open()
            FormatarPlanilha
    End Sub

Feche o Editor.
Salve e feche a pasta.

Teste

Reabra ObjetoActiveWindow, clicando em Ativar macros.
A pasta será exibida como uma pequena janela, sem as tradicionais barras de rolagem, linhas de grade, guias, enfim, tudo o que você está acostumado a ver.
Após 8 segundos, a tela será restaurada e a pasta será exibida com as suas características tradicionais.

SUBMARINO: Fácil ! Rápido ! Seguro !

15/10 - 03:00 - Rapidinha 64.0 - Excel XP: Formato personalizado.

Se você precisa digitar uma palavra ( por exemplo, Conta ), seguida de um número com hífen, talvez ( e aí quem vai avaliar é você ) criar um formato personalizado seja a melhor opção.
Em uma planilha, selecione, por exemplo, A:1.
Clique em Formatar / Células.
Na caixa de diálogo Formatar Células, clique na guia Número.
Em Categoria, selecione Personalizado.
Na caixa Tipo, informe o formato "Conta "00-000000;;;"Informe somente números - Não digite hífen"
Confirme, clicando no botão OK.
Neste momento, você criou um formato personalizado, que foi aplicado em A:1.
Agora, digite, por exemplo, 12345678 e tecle [ Enter ].
Será exibido: Conta 12-345678.
Outro teste. Ainda em A:1, digite 12-345678 e tecle [ Enter ].
Será exibida a mensagem, definida por você na formatação: Informe somente números - Não digite hífen.

12/10 - 06:00 - Rapidinha 63.0 - Excel XP: Exibindo o nome da planilha na barra de título.

Abra uma pasta de trabalho vazia.
Clique no botão Salvar.
Com a caixa de diálogo Salvar como ativada, escolha o local e o nome ( EventoSheetActivate.xls ) para a pasta.
Em seguida, confirme, clicando em Salvar.

Abra o Editor do Visual Basic.
Na janela Projeto, clique 2 vezes em EstaPasta_de_trabalho.
Na janela Objeto, selecione Workbook ( objeto que representa a pasta de trabalho ).
O evento Open será criado. Programe-o

Private Sub Workbook_Open()

With Application
.Caption = ActiveSheet.Name
End With

End Sub

Na janela Procedimento, selecione SheetActivate ( ocorre quando uma planilha é ativada ).
Escreva o código abaixo:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

With Application
.Caption = Sh.Name
End With

End Sub

Para restaurar a barra de título, quando a pasta for fechada, selecione, na janela Procedimento, o evento BeforeClose ( ocorre antes da pasta ser fechada ).
Programe o evento.

Private Workbook_BeforeClose(Cancel As Boolean)

With Application
.Caption = ""
End With

End Sub .

Clique no botão Salvar.
Feche o Editor VBA.
Agora, vamos ao teste. Provavelmente, a pasta terá as planilhas Plan1, Plan2, Plan3 e... aí depende da configuração do seu Excel. O total de planilhas para cada pasta pode variar.
Clique nas guias ( Plan2, Plan3,... ) e observe a barra de título.
Serão exibidos o nome da planilha e o nome da pasta. Algo como Plan1 - EventoSheetActivate.xls, Plan2 - Evento SheetActivate.xls e assim por diante.
Feche a pasta e a barra de título microsoftiana será restaurada.

SUBMARINO: Fácil ! Rápido ! Seguro !

09/10 - 11:00 - Rapidinha 62.0 - Excel XP + VBA: Salvando pastas.

Para sempre salvar a pasta de trabalho quando o(a) usuário(a) clicar no botão Fechar, conte com a ajuda da linguagem de programação VBA.
Abra uma pasta de trabalho.
Clique no botão Salvar e defina o nome EventoBeforeClose.xls
Abra o Editor do Visual Basic ( Menu Ferramentas / Macro / Editor do Visual Basic )
Na janela Projeto, clique 2 vezes em EstaPasta_de_trabalho.
Na janela Objeto, selecione Workbook.
Na janela Procedimento, selecione o evento BeforeClose.
Programe o evento

Private Sub Workbook_BeforeClose(Cancel As Boolean)

If Me.Saved = False Then Me.Save

End Sub

Feche a janela do Editor.
Clique no botão Fechar janela, para fechar a pasta de trabalho.
Em seguida, abra-a, novamente.
Preencha algumas células e clique no botão Fechar janela.
A pasta será salva e fechada. A tradicional mensagem Deseja salvar... não será exibida.

Esta opção é ótima para usuários que se esquecem de salvar as alterações.
Porém, microsoftiano(a), atenção: A pasta será salva... SEMPRE. Ok ?

08/10 - 11:00 - Rapidinha 61.0 - Excel XP + VBA: Criando planilhas.

Com a ajuda do método Add, você adiciona novas planilhas à pasta de trabalho ativa.
A sintaxe é: Worksheets.Add

Você pode criar, ao mesmo tempo, várias planilhas.
Worksheets.Add Count:=2 adiciona 2 planilhas na pasta de trabalho ativa.

08/10 - 11:00 - Rapidinha 60.0 - Excel XP + VBA: Ocultando planilhas.

Para ocultar a planilha, utilize a propriedade Visible.
Worksheets("Cadastro").Visible = False oculta a planilha Cadastro da pasta de trabalho ativa.

SUBMARINO: Fácil ! Rápido ! Seguro !

08/10 - 11:00 - Rapidinha 59.0 - Excel XP + VBA: Acessando várias planilhas ao mesmo tempo.

Para ocultar mais de uma planilha, você pode utilizar a sintaxe:

Worksheets("Plan1").Visible = False
Worksheets("Plan2").Visible = False
Worksheets("Plan3").Visible = False ( Este exemplo oculta as planilhas Plan1, Plan2 e Plan3 ).

Porém, inteligente microsoftiano(a), você pode utilizar a função Array para acessar mais de uma planilha ao mesmo tempo.

Worksheets(Array("Plan1", "Plan2", "Plan3")).Visible = False oculta, ao mesmo tempo, as 3 planilhas citadas.

05/10 - 12:00 - Rapidinha 58.0 - Excel XP: Xô, zeros !

Células com zeros estão atrapalhando a visualização dos dados ?
Simples.
Clique no menu Ferramentas.
Clique em Opções.
Com a caixa de diálogo Opções abrida, clique em Exibir.
Desmarque Valores zero.
Clique em OK.

05/10 - 12:00 - Rapidinha 57.0 - Excel XP: Ignorando Sábados e Domingos

Você precisa calcular vencimentos para boletos.
Os vencimentos não podem cair em dias como Sábado ou Domingo.
Difícil ?!
Nada, jovem. Siga esta receita de bolo.

Abra uma pasta.
Ative Plan1.
Em A1, digite a data de emissão do boleto. Por exemplo: 05/10/2007
Em B1, informe a quantidade de dias para o vencimento. Por exemplo: 1
Em seguida, selecione C1.
Clique no menu Formatar e escolha Células.
Em Categoria, selecione Data e escolha o formato padrão
Clique em OK
Mantendo C1 selecionada, clique na barra de fórmulas e digite:

=SE(DIA.DA.SEMANA(A1+B1)=7;A1+B1+2;SE(DIA.DA.SEMANA(A1+B1)=1;A1+B1+1;A1+B1))

Tecle [ Enter ]
Observe, microsoftiano(a) o resultado. Como 5 é Sexta-Feira, somando +1 na data, dará 6, Sábado.
Sábado não lhe interessa, então, a fórmula retornará 8, Segunda-Feira.
Faça outros testes, ok ?

05/10 - 12:00 - Rapidinha 56.0 - Excel XP: Editando Fórmulas

Para editar fórmulas, sarado(a) microsoftiano(a), você pode seguir 3 caminhos.

Selecione a célula com a fórmula e pressione a tecla [ F2 ]. O Excel XP entrará no modo de edição. Ou...
Clique 2 vezes na célula. Ou...
Selecione a célula e clique na barra de fórmulas.

SUBMARINO: Fácil ! Rápido ! Seguro !

23/08 - 12:00 - Rapidinha 55.0 - Método AddShape

Com o método AddShape, você adiciona formas de desenho ( objetos Shape ) em planilhas ( objeto Worksheet ), em documentos Word ( objeto Document ) e em apresentações PowerPoint ( objeto Presentation ).
Você pode exibir formas ao abrir um arquivo, durante uma apresentação ou, por exemplo, antes de fechar uma planilha. Aí é com você.

Textos de Apoio: Método AddShape - Excel XP: 01 - 02 - 03 - 04
Textos de Apoio: Método AddShape - PowerPoint XP: 01

23/08 - 12:00 - Rapidinha 54.0 - Characters + Font + Bold

Você pode negritar todo o texto, inserido em uma forma de desenho ( objeto Shape ), ou apenas parte dele.
Na rotina TextoNegritado, são criados 2 retângulos.
No primeiro, todo o texto é negritado: .Characters.Font.Bold = True
No segundo, a propriedade Bold é aplicada apenas em parte do texto: .Characters(5, 12).Font.Bold = True.

Criando o exemplo
Abra uma pasta.
No Editor do Visual Basic, crie uma folha de Módulo.
Selecione e copie a rotina Sub TextoNegritado...End Sub e cole no Módulo.
Pressione F5 ou clique em Executar Sub.
Ative a planilha Plan2 para conferir o resultado.

Sub TextoNegritado()
Dim Planilha As Worksheet

Set Planilha = Worksheets("Plan2")

With Planilha.Shapes
    With .AddShape(msoShapeRectangle, 2, 2, 120, 50).TextFrame
       .AutoMargins = False
       .Characters.Text = "www.ricardohorta.net"
       .Characters.Font.Bold = True
       .Orientation = msoTextOrientationUpward
       .VerticalAlignment = xlVAlignCenter
       .HorizontalAlignment = xlHAlignCenter
       .AutoSize = True
    End With

    With .AddShape(msoShapeRectangle, 50, 2, 120, 50).TextFrame
       .AutoMargins = False
       .Characters.Text = "www.ricardohorta.net"
       .Characters(5, 12).Font.Bold = True
       .Orientation = msoTextOrientationUpward
       .VerticalAlignment = xlVAlignCenter
       .HorizontalAlignment = xlHAlignCenter
       .AutoSize = True
    End With

End With

End Sub

Textos de Apoio: Propriedade Bold

23/08 - 10:00 - Rapidinha 53.0 - Characters + Font + ColorIndex

Com a ajuda dos objetos Characters, Font e da propriedade ColorIndex, você pode definir cores para o texto inserido em um objeto Shape ( forma de desenho ).

Abra uma pasta.
Abra o Editor do Visual Basic.
Crie uma folha de Módulo.
Selecione e copie a rotina AdicionaFormaTextoCor e cole em Módulo1.
Pressione F5 ou clique em Executar Sub.
Ative a planilha Plan2 para visualizar o resultado.

Sub AdicionaFormaTextoCor()
Dim Planilha As Worksheet

Set Planilha = Worksheets("Plan2")

With Planilha.Shapes
If .Count > 0 Then
    .Item(1).Delete
End If
With .AddShape(msoShapeRectangle, 2, 2, 120, 50).TextFrame
      .AutoMargins = False
      .Characters.Text = "www.ricardohorta.net"
      .Characters(1, 3).Font.ColorIndex = 5
      .Characters(5, 12).Font.ColorIndex = 3
      .Characters(17, 3).Font.ColorIndex = 1
      .Orientation = msoTextOrientationUpward
      .VerticalAlignment = xlVAlignCenter
      .HorizontalAlignment = xlHAlignCenter
      .AutoSize = True
End With
End With

End Sub

Textos de Apoio: Objeto Characters - Objeto Font

SUBMARINO: Fácil ! Rápido ! Seguro !

23/08 - 06:00 - Rapidinha 52.0 - A propriedade Orientation

A propriedade Orientation, aplicada ao objeto TextFrame, define a orientação da moldura do texto.
Ela pode ter os seguintes valores:

msoTextOrientationDownward
msoTextOrientationHorizontal
msoTextOrientationHorizontalRotatedFarEast
msoTextOrientationMixed
msoTextOrientationUpward
msoTextOrientationVertical
msoTextOrientationVerticalFarEast.
A sintaxe é: Objeto.Orientation = um dos valores acima.
A rotina AdicionaForma, cria em Plan1 um retângulo e define a orientação, utilizando Orientation = msoTextOrientationUpward.
Para visualizar o exemplo, crie uma pasta e abra o Editor do Visual Basic.
Insira uma folha de Módulo.
Selecione e copie o código abaixo e cole na folha ( provavelmente, Módulo1 ).
Pressione F5 ou clique em Executar Sub.
Ative Plan1 e visualize o resultado.

Sub AdicionaForma()
Dim Planilha As Worksheet

Set Planilha = Worksheets("Plan1")

With Planilha.Shapes

    If .Count > 0 Then
      .Item(1).Delete
    End If

    With .AddShape(msoShapeRectangle, 2, 2, 120, 50).TextFrame
      .AutoMargins = False
      .Characters.Text = " www.ricardohorta.net "
      .Orientation = msoTextOrientationUpward
      .VerticalAlignment = xlVAlignCenter
      .HorizontalAlignment = xlHAlignCenter
      .AutoSize = True
    End With

End With

End Sub

Textos de Apoio: TextFrame - HorizontalAlignment - VerticalAlignment - AutoSize

SUBMARINO: Fácil ! Rápido ! Seguro !

21/08 - 12:00 - Rapidinha 51.0 - A propriedade Count.

UserForms.Count retorna o total de formulários carregados em um aplicativo.

Sub FormsAtivados()

If UserForms.Count > 0 Then
MsgBox "Quantidade de formulários ativados " & UserForms.Count
Else
MsgBox "Nenhum formulário ativado"
End If

End Sub

SUBMARINO: Fácil ! Rápido ! Seguro !

21/08 - 06:00 - Rapidinha 50.0 - Método Add.

O método Add, aplicado à coleção Workbooks, cria uma pasta de trabalho.
A nova pasta de trabalho se torna a pasta ativa.
A sintaxe é Workbooks.Add
Por exemplo:

Sub CriaPasta
Workbooks.Add
End Sub
O nome da pasta criada segue o padrão microsoftiano: Pasta1, Pasta2 e assim por diante.

20/08 - Rapidinha 49.0 - Hide.

Você pode acessar controles inseridos em formulários ocultos com Hide.
Siga este exemplo.

Abra uma pasta.
Abra o Editor do Visual Basic
Crie 2 formulários: UserForm1 - UserForm2.

_______________________

Cuidando do primeiro formulário
Na janela Projeto, ative UserForm1.
Insira um controle TextBox. Na propriedade Name, digite TextBox1_UserForm1.

Insira 2 controles Botão de comando.
Com CommandButton1 selecionado, faça Name = CommandButton_ExibirForm, Caption = Exibir e AutoSize = True.
Com CommandButton2, defina Name = CommandButton_Atualizar, Caption = Atualizar e AutoSize = True.

_______________________

Programando os controles do primeiro formulário.
Clique com o botão direito no botão Exibir e escolha Exibir Código.
No evento Click, programe:

Private Sub CommandButton_ExibirForm_Click()
UserForm2.Show
End Sub

Na janela Objeto, selecione CommandButton_Atualizar
Programe
Private Sub CommandButton_Atualizar_Click()
If UserForms.Count = 1 Then
       MsgBox "UserForm2 não está ativado"
       Exit Sub
End If
UserForm1.TextBox_UserForm1 = UserForm2.Textbox_userform2
End Sub

_______________________

Cuidando do segundo formulário.
Na janela Projeto, ative UserForm2
Adicione um controle TextBox e defina a propriedade Name = TextBox_UserForm2.
Crie um CommandButton. Faça: Name = CommandButton_Fechar, Caption = Fechar e AutoSize = True
Crie outro CommandButton e defina: Name = CommandButton_Hide, Caption = Ocultar e AutoSize = True

_______________________

Programando os controles do segundo formulário.
Clique com o botão direito em CommandButton_Fechar e escolha Exibir código.
Defina a ação:

Private Sub CommandButton_Fechar_Click()
    Unload Me
End Sub

Na janela Objeto, selecione CommandButton_Hide. No evento Click, escreva

Private Sub CommandButton_Hide_Click()
    UserForm2.Hide
End Sub

_______________________

O evento Open da pasta de trabalho.
Na janela Projeto, clique 2 vezes em EstaPasta_de_Trabalho.
Em Objeto, selecione Workbook
No evento Open, digite UserForm1.Show

_______________________

Testando.
Salve as alterações.
Feche o Editor do Visual Basic.
Feche a pasta de trabalho.
Reabra a pasta, clicando em Ativar Macros.
O formulário será exibido
Clique no botão Atualizar. Será exibida a mensagem UserForm2 não está ativado
Clique, então, no botão Exibir.

UserForm2 será ativado.
Preencha a caixa de texto. Qualquer texto. Por exemplo, Brasil.
Em seguida, clique no botão Ocultar.
Agora, em UserForm1, clique em Atualizar.
Percebeu ?
Apesar de UserForm2 estar oculto, é possível acessar os controles do formulário. E por que isto é possível ? Porque Hide não remove o formulário e os controles da memória. Apenas, oculta o dito cujo.

Continuando com o teste, clique em Exibir.
UserForm2 será ativado.
Clique, então, no botão Fechar.
Agora, clique, novamente, em Atualizar.
Não será possível acessar o formulário nem a caixa de texto, porque a instrução Unload remove o formulário e os controles da memória.

SUBMARINO: Fácil ! Rápido ! Seguro !

19/08 - Rapidinha 48.0 - Função Space( )

A função Space pode ser utilizada para definir o espaço entre as palavras de um texto ou limpar dados em seqüências de caracteres de comprimento fixo.
A sintaxe é: Space(quantidade de espaços).

Por exemplo: MsgBox "Olá," + Space(3) + "Microsoftiano(a) amigo(a) !"
Pode ser utilizada também para definir o espaço em textos armazenados nas células.
Veja este código:

Sub Texto()

With Worksheets("Plan1")
.Range("A1").Value = "Nome" + Space(5) + "do" + Space(5) + "funcionário"
End With

End Sub

17/08 - Rapidinha 47.0 - Método PrintForm

O método PrintForm envia a imagem do objeto UserForm para a impressora.
A sintaxe é: NomeDoFormulario.PrintForm ( Por exemplo: UserForm_Cadastros.PrintForm ).
O formulário será impresso do mesmo jeito que é exibido na tela.
Todos os objetos visíveis serão impressos: CommandButton, ComboBox, CheckBox e assim por diante.

18/07 - Rapidinha 46.0 - Objeto Worksheet - Eventos Activate / Deactivate

A sua pasta possui 2 planilhas: Plan1 e Plan2.
Você deseja manter a barra de fórmulas ativada na tela apenas quando Plan1 for a planilha ativa.
Clicando em Plan2, a barra de fórmulas deve desaparecer.
E aí ? Difícil ? Nada. Vamos lá...

Com a pasta aberta, pressione [ ALT ] + [ F11 ] ou clique em Ferramentas / Macros / Editor do Visual Basic.
Em Projeto, clique 2 vezes em Plan1.
Na janela Objeto, selecione Worksheet.
Na janela Procedimento, selecione Activate.
Programe o evento assim

Private Sub Worksheet_Activate()
With Application
.DisplayFormulaBar = True
End With
End Sub

Em seguida, em Procedimento, selecione o evento Deactivate e oculte a barra.

Private Sub Worksheet_Deactivate()
With Application
.DisplayFormulaBar = False
End With
End Sub
Salve as alterações e feche o Editor do Visual Basic.
Clique em Plan2. A barra de fórmulas sumirá do pedaço.
Clique em Plan1. A bichinha reaparecerá. Danada !

SUBMARINO: Fácil ! Rápido ! Seguro !

17/07 - Rapidinha 45.0 - VBA - Operadores

Operador - : Utilizado para calcular a diferença entre números ou indicar que o número é negativo.

Operador & : Concatena expressões

Sub Concatenar
Dim Texto
Texto = "Valeu, "& "Brasil !"
MsgBox Texto ( retornará Valeu, Brasil ! )
End Sub

Operador * : Multiplica números

Operador / : Divide 2 números

Operador \ : Divide 2 números e retorna como resultado um número inteiro, ignorando decimais

Sub Dividir Dim Valor
Valor = 100 \ 3
MsgBox Valor ( será exibido 33 )
End Sub

Operador + : Soma números ou concatena variáveis do tipo String
Sub Somar
Dim Resultado
Resultado = 2 + 6 ( retornará 8 )
End Sub

Sub Concatenar
Dim Texto
Texto = "Ricardo " + "Horta"
MsgBox Texto ( retornará Ricardo Horta )
End Sub

SUBMARINO: Fácil ! Rápido ! Seguro !

16/07 - Rapidinha 44.0 - Método Select

Com o método Select você pode selecionar 1 célula, um intervalo contínuo de células ou intervalos não adjacentes.
Para selecionar uma célula, faça

Sub Selecionar_01( )

With Worksheets("Plan1")
.Range("A2").Select
End With

End Sub
Para selecionar um intervalo, utilize:

Sub Selecionar_02( )

With Worksheets("Plan1")
.Range("A2:A4").Select
End With

End Sub
Para selecionar intervalos não-adjacentes, utilize:

Sub Selecionar_03( )

With Worksheets("Plan1")
.Range("A2:A4,B2:B4,D1:E1").Select
End With

End Sub

Observe, microsoftiano(a) amigo(a), que os intervalos são separados por vírgulas.

SUBMARINO: Fácil ! Rápido ! Seguro !

03/07 - Rapidinha 43.0 - WorksheetFunction

Tá precisando utilizar funções do Excel XP dentro do código VBA ?
Então, utilize o objeto WorksheetFunction - Clique aqui

03/07 - Rapidinha 42.0 - Função ROMANO.

Converte um algarismo arábico em romano, como texto.
Em A:1, informe, 10.
Em B:1, digite =ROMANO(A1;0) e tecle [ ENTER ]
A função retornará X ( 10 em algarismo romano )

03/07 - Rapidinha 41.0 - Propriedade FullName

Retorna o endereço ( caminho e nome ) da pasta de trabalho
Este código, gravado no evento Open da pasta, armazena o endereço completo da pasta ativa

Private Sub Workbook_Open()
With ActiveWorkbook
Worksheets("Plan1").Range("A1") = .FullName
End With
End Sub
Fica assim: C:\Meus documentos\Testes_Diversos.xls ( local e nome )

SUBMARINO: Fácil ! Rápido ! Seguro !

03/07 - Rapidinha 40.0 - Método Select

Você precisa selecionar todas as células de uma planilha ( neste exemplo, Plan1 ) ? Simples ! Crie a rotina

Sub Selecionar()
With Worksheets("Plan1")
.Cells.Select
End With
End Sub
Para selecionar, manualmente, todas as células da planilha, sem a ajuda do mouse, utilize [ CTRL ] + [ T ].

03/07 - Rapidinha 39.0 - Funções definidas pelo usuário

Você criou uma pasta com diversos cálculos para o seu usuário e gostaria de personalizar alguns procedimentos.
Tudo bem, microsoftiano(a) amigo(a)
Você pode estender o poder do Excel XP, criando funções personalizadas no Editor do VBA e utilizá-las da mesma forma como utiliza as tradicionais funções microsoftianas.
Vamos criar um pequeno exemplo. O importante é você entender o alcance, a extensão do seu poder, ao criar funções.
Abra uma pasta vazia
Abra o Editor do Visual Basic
Clique no menu Inserir.
Clique em Módulo.
Em Módulo1, digite o código abaixo.

Function Somar(A, B) As Integer
Somar = A + B
End Function
Salve a pasta.
Ative Plan1.
Em C:1, digite, por exemplo, 10
Em D:1, digite, 20
Em F:1, digite =Somar(C1;D1) e tecle [ ENTER ]
Outro exemplo ?
Em C:2, digite 10
Em D:2, 20
Selecione F:2
Clique no ícone Inserir Função ( barra de fórmulas ) ou clique no menu Inserir e na opção Função.
Em Selecione uma categoria, escolha Definida pelo usuário.
Com SOMAR selecionada, clique no botão OK.
Na caixa Argumentos de função, informe os parâmetros do mesmo jeito que você faz com as funções microsoftianas.
Argumentos preenchidos, clique no botão OK.
SOMAR cumprirá com a obrigação.

SUBMARINO: Fácil ! Rápido ! Seguro !

29/06 - Rapidinha 38.0 - Digitando horas

Ao digitar horas, você precisa inserir aqueles dois pontos ( : ) para o Excel reconhecer como hora. Se você, simplesmente, digitar 0835 o software microsoftiano receberá como 0835.
Você pode resolver este pequeno imbróglio, programando o evento Change da planilha.
Siga esta receita de bolo, microsoftiano(a) contumaz.

Receita de bolo
Crie uma pasta de trabalho.
Ative Plan1.
Abra o Editor do Visual Basic
Na janela Projeto, clique 2 vezes em Plan1.
Na janela Objeto, selecione Worksheet
Será criada a rotina para o evento SelectionChange. Ignore-a. Não vamos trabalhar com ela.
Na janela Procedimento, selecione o evento Change ( ocorre quando há alguma alteração na planilha ).
Programe-o

Private Sub Worksheet_Change(ByVal Target As Range)
Dim HoraDigitada As String
Dim HoraFormatada As String
Dim Tamanho As Integer
Dim Retorno
Dim Endereço

If Target.HasFormula Then
       Exit Sub
End If

If IsNumeric(Target.Value) = False Then
       Exit Sub
End If
On Error Resume Next
Application.EnableEvents = False
HoraDigitada = Target.Value

Tamanho = Len(HoraDigitada)
If Tamanho = 1 Then
       HoraDigitada = "000" & HoraDigitada
ElseIf Tamanho = 2 Then
       HoraDigitada = "00" & HoraDigitada
End If
HoraFormatada = Left(HoraDigitada, Len(HoraDigitada) - 2) & ":" & Right(HoraDigitada, 2)

Target = HoraFormatada
Application.EnableEvents = True
On Error GoTo 0

End Sub

Para testar, salve a pasta.
Ative Plan1.
Em seguida,digite, por exemplo, 1230. A célula será formatada com 12:30
Se você digitar, simplesmente, 3, a célula será formatada com 00:03.

Importante: Esta rotina deve ser implementada em planilhas que vão receber horas.
Você poderá digitar textos como nome do funcionário, constantes como "Entrada", "Saída", etc., etc.
Se a planilha possuir outros formatos numéricos como salários, códigos, será preciso informar ao Excel quais células não devem ser formatadas como hora. Por exemplo:
Você precisa digitar o código do funcionário na célula I:26. Logo, ela não deve ser formatada como hora. Óbvio ululante, a nossa rotina deve ignorá-la. Então, você deve informar ao Excel, no início da rotina, para não executar a formatação personalizada, se a célula alterada for a célula I:26.
Assim:

If Target.AddressLocal = "$I$26" Then
       Exit Sub
End If

As células formatadas pela rotina acima poderão fazer parte de cálculos de horas.
Os cálculos serão efetuados corretamente.

SUBMARINO: Fácil ! Rápido ! Seguro !

29/06 - Rapidinha 37.0 - Show, Unload, Hide

No Excel XP, você pode definir o modo de exibição do formulário: janela restrita ( Modal ) ou janela irrestrita ( Modeless ).
Na exibição Modal, não é possível acessar a planilha, enquanto o formulário estiver ativo.
No modo Modeless, você pode manter o formulário na tela e, ao mesmo tempo, digitar nas planilhas.

Como eu defino a forma de exibição do UserForm ?
Criado o formulário, acesse a propriedade ShowModal.
ShowModal = True, exibe o formulário com janela restrita.
ShowModal = False, exibe o formulário com janela irrestrita

Eu posso alterar o modo de exibição do UserForm, durante a execução do aplicativo ? Sim.
UserForm1.Show(1) tem o mesmo efeito que a propriedade ShowModal = True.
Já UserForm1.Show(0) produz o mesmo resultado que ShowModal = False.

O que faz o método Hide ?
O método Hide oculta o formulário, sem removê-lo da memória.
Apesar de oculto, é possível acessar, através de programação, o conteúdo das caixas de texto, caixas de combinação inseridas no formulário.
A sintaxe é NomeDoFormulario.Hide

Quando um objeto está oculto, ele é removido da tela e sua propriedade Visible é definida para False. Os controles ( Caixas de texto, Caixas de seleção, Caixas de combinação ) de UserForm1 não poderão ser acessados pelo(a) usuário(a). Porém, microsoftiano(a), porém, as suas propriedades ( Value, ListIndex,... ) poderão ser acessadas através da programação VBA.
Para descarregar o formulário da memória e fechá-lo, encerrando os trabalhos, utilize Unload NomeDoFormulario ( por exemplo, Unload UserForm1 )

Quero exibir o nome do usuário na barra de título do formulário.
Utilize a propriedade Caption do UserForm.

28/06 - Rapidinha 36.0 - Método Delete

O método Delete exclui linhas de planilhas.
A sintaxe é: Worksheets("Plan1").Rows(NúmerodaColuna).Delete
Rows é a coleção de linhas da planilha ( objeto Worksheet )

Para excluir, você deve fornecer o número da linha.
Worksheets("Plan1").Rows(12).Delete exclui a linha 12 de Plan1.

No seu aplicativo, você pode utilizar uma variável como parâmetro. Por exemplo:
Worksheets("Plan1").Rows(VarLinha).Delete, onde VarLinha é a variável com o número da linha que será excluída.
No exercício abaixo, criei um formulário para salvar, pesquisar e excluir registros. Bom proveito.

SUBMARINO: Fácil ! Rápido ! Seguro !

27/06 - Rapidinha 35.0 - Excel XP - Barra de menus.

Você criou um aplicativo e deseja adicionar uma opção na tradicional Barra de menus do Excel XP, para executar rotinas exclusivas do seu projeto e matar o seu vizinho de inveja.
Ok, microsoftiano(a) pecador(a).

Abra o seu aplicativo.
Abra o Editor do VBA.
Se você ainda não criou uma folha de módulo, clique no menu Inserir e escolha Módulo.
Em Módulo1, crie a rotina AdicionaMenu

Sub AdicionaMenu()
Dim OpcaoMenu As CommandBarPopup
Dim ItemMenu As Object

On Error Resume Next
Application.CommandBars(1).Controls("Ricardo Horta").Delete
On Error GoTo 0

Set OpcaoMenu = Application.CommandBars(1).Controls.Add(Type:=msoControlPopup, before:=2, temporary:=True)
With OpcaoMenu
        .Caption = "Ricardo Horta"
End With

Set ItemMenu = OpcaoMenu.Controls.Add(Type:=msoControlButton)
With ItemMenu
        .OnAction = "ExibeMensagem"
        .Caption = "Mensagem"
End With
End Sub

Em seguida, crie a rotina ExibeMensagem

Sub ExibeMensagem()
Dim Retorno
Retorno = MsgBox("Olá, Microsoftiano(a) !", vbOKOnly + vbInformation, "www.ricardohorta.net")
End Sub

Na janela Projeto, clique 2 vezes em EstaPasta_de_trabalho
Em Objeto, selecione Workbook
Programe o evento Open. Assim:

Private Sub Workbook_Open()
AdicionaMenu
End Sub

Em seguida, selecione, na janela Procedimento, o evento BeforeClose
Programe:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars(1).Controls("Ricardo Horta").Delete
On Error GoTo 0
End Sub

Salve tudo e feche a pasta.
Reinicie a dita cuja.
Clique em Ativar macros
Observe, querido(a) microsoftiano(a), que a opção de menu foi criada após Arquivo
Clique em Exibir Mensagem e a função MsgBox fará o dever de casa.
Feche a pasta de trabalho e a opção será excluída da barra de menus.

SUBMARINO: Fácil ! Rápido ! Seguro !

25/06 - Rapidinha 34.0 - Excel XP - Quantidade de planilhas

Durante o processamento do seu aplicativo, desenvolvido em VBA, você precisa saber o total de planilhas na pasta de trabalho ativa.
Ok. Utilize o código abaixo

Dim TotalPlanilhas as Integer
With ActiveWorkbook
TotalPlanilhas = .Worksheets.Count
End With

25/06 - Rapidinha 33.0 - Excel XP - Selecionar planilhas através do VBA

Em algum momento do seu aplicativo, você, batalhador(a) desenvolvedor(a) microsoftiano(a), precisa selecionar todas as planilhas da pasta de trabalho ativa. O pobrema é que você não sabe o total de planilhas. E aí ?
Simples. Use o método Select. Assim:

Worksheets.Select

Ao executá-lo, todas as planilhas da pasta ativa serão selecionadas. Não importa a quantidade.

SUBMARINO: Fácil ! Rápido ! Seguro !

25/06 - Rapidinha 32.0 - Word - Cabeçalho de tabelas

A tabela é muito grande, ocupa várias páginas, porém, os títulos da tabela são exibidos apenas na primeira página.
Ok, microsoftiano, podemos dar um jeito nisto.
Selecione a linha da tabela com os títulos. Você pode selecionar mais de uma linha, ok ?
Clique na opção Tabela, localizada na barra de menus.
Clique em Repetir linhas de título.

SUBMARINO: Fácil ! Rápido ! Seguro !

22/06 - Rapidinha 31.0 - Office XP - Propriedade padrão.

Objetos / controles possuem uma propriedade padrão.
Value, por exemplo, é a propriedade padrão do objeto Range.
Neste exemplo, a célula A1 é atualizada com o valor 30.

With Worksheets("Plan1")
.Range("A1").Value = 30
End With

Ao atualizar uma propriedade padrão, não é necessário escrever o seu nome.
Por isto, o código abaixo produz o mesmo resultado.

With Worksheets("Plan1")
.Range("A1") = 30
End With

SUBMARINO: Fácil ! Rápido ! Seguro !

22/06 - Rapidinha 30.0 - Office XP: Economizando tinta.

Você formatou a planilha com bordas, cor do preenchimento, inseriu setas, retângulos, enfim, a danada tá parecendo uma escola de samba. Qui tal economizar tinta, inteligente microsoftiano(a) ?
Clique na opção Arquivo, da barra de menus.
Clique em Configurar página.
Na guia Planilha, ative Qualidade Rascunho.
Clique no botão OK.
Clique em Visualizar impressão e veja o resultado. O seu bolso agradecerá.
Para imprimir a planilha com a formatação completa, percorra, novamente, o mesmo caminho e desative Qualidade Rascunho.

SUBMARINO: Fácil ! Rápido ! Seguro !

21/06 - Rapidinha 29.0 - Office XP: Código VBA

Ao programar, você pode utilizar a sintaxe
Worksheets("Plan1").Range("A1").Value = "Nome"
Worksheets("Plan1").Range("B1").Value = "Endereço"
Worksheets("Plan1").Range("C1").Value = "Número"

OU

With Worksheets("Plan1")
        .Range("A1").Value = "Nome"
        .Range("B1").Value = "Endereço"
        .Range("C1").Value = "Número"
End With

Não se esqueça do ponto antes da propriedade ( neste exemplo, a propriedade Range )

SUBMARINO: Fácil ! Rápido ! Seguro !

21/06 - Rapidinha 28.0 - Office XP: UserForm e a propriedade ShowModal.

Ao exibir o formulário ( objeto UserForm ) com a propriedade ShowModal = True, você deverá fechá-lo para acessar o documento do Word ou a planilha do Excel. O formulário é exibido no modo janela restrita.
Se você definir a propriedade ShowModal = False, será possível manter o formulário ativado e, ao mesmo tempo, acessar o documento ou a planilha.
Será possível, então, com o formulário ativado, selecionar células, navegar entre planilhas, alterar dados diretamente nas células, acessar botões das barras de ferramentas, alterar a largura das colunas e altura das linhas, etc., etc.
São formas diferentes de trabalhar. Escolha a que melhor se adapta ao seu projeto e... Sucesso !

SUBMARINO: Fácil ! Rápido ! Seguro !

20/06 - Rapidinha 27.0 - Excel XP: Nomes para colunas

Você pode nomear colunas inteiras, facilitando o entendimento das fórmulas.

Exemplo
Clique no cabeçalho da coluna A para selecioná-la.
Clique na Caixa de nome ( aquela caixa à direita da barra de fórmulas ).
Digite Vendas e tecle [ Enter ].
Pronto. Você nomeou a coluna A.
Mantendo-a selecionada, clique no botão Estilo de Moeda.

Digitação
Clique em A:1 e informe o título: Vendas.
Em A:2, 100
Em A:3, 200
Em A:4, 300

Fórmula

Clique em D:1
Na barra de fórmulas, digite =SOMA(Vendas)
Tecle [ Enter ]
Se você inserir novos valores na coluna A, a célula D:1 será atualizada, saudavelmente.
Trabalhar com nomes facilita a compreensão das fórmulas.

=SOMA(VENDAS) é mais fácil de ser entendido do que =SOMA(A:A)

Pense nisto, competente microsoftiano(a)

SUBMARINO: Fácil ! Rápido ! Seguro !

20/06 - Rapidinha 26.0 - Excel XP: Exibindo total de horas

Você digitou:

Em A:1, 06:00
Em A:2, 15:00
Em A:3, 12:00

Em seguida, selecionou A:4 e clicou no botão AutoSoma.
A fórmula retornou 09:00. Virge !! Deu tilte no Excel ?!, pergunta você para o seu Anjo da Guarda, que nesta altura, pode até ser Anjo, mas deixou a guarda há muito tempo. Oh, Céus !!

Solução
Microsoftiano(a) fervoroso(a), existe luz no fim do túnel. Basta formatar a célula.
Neste exemplo, selecione A:4
Clique no menu Formatar e em Células.
Em Categoria, ative Personalizado
Em Tipo, selecione [h]:mm:ss
Clique no botão OK.
A célula exibirá 33:00:00

Ah, você não deseja exibir os segundos ? Tudo bem.
Com A:4 selecionada, abra, novamente, Formatar células.
Na caixa Tipo, selecione [h]:mm:ss e apague :ss ( a parte do formato relativo aos segundos ).
O formato ficará assim: [h]:mm
Confirme, clicando no botão OK.
A célula exibirá apenas as horas e os minutos: 33:00

SUBMARINO: Fácil ! Rápido ! Seguro !

19/06 - Rapidinha 25.0 - Excel XP: Total de erros

Calcular quantos erros de fórmulas possui um intervalo ? Ok.

Exemplo
Digite
Em A:1, 10
Em A:2, 20
Em A:3, 30

Em B:1, 2
Em B:2, 2
Em B:3, 5

Em C:1, digite a fórmula =A1/B1 e tecle Enter
Com C:1 selecionada, clique na alça de preenchimento e atualize as fórmulas em C:2 e C:3.
Nesta etapa a coluna C ficará com estes valores: C:1 ( 5 ), C:2 ( 10 ) e C:3 ( 6 )
Selecione D:1 e clique na barra de fórmulas.
Digite =SOMA(SE(ÉERROS(C1:C3);1;0)) e não tecle [ Enter ]
Finalize a fórmula com as teclas Ctrl + Shift + Enter
Pronto. Você criou uma fórmula matricial.
Nesta etapa, D:1 retorna 0 ( zero ). Ok. Nenhuma fórmula apresenta erro.

Vamos ao teste.
Digite 0 em B:1 e em B:2
As células C:1 e C:2 exibirão #DIV/0! ( o divisor é zero ).
E D:1 exibirá o total de erros no intervalo: 2.

SUBMARINO: Fácil ! Rápido ! Seguro !

19/06 - Rapidinha 24.0 - Word XP: Fórmulas em tabelas.

Além da barra de ferramentas Tabelas e Bordas, existe outro caminho com mais opções para inserir fórmulas nas tabelas.
Clique na célula que receberá a fórmula.
Clique no menu Tabela.
Clique em Fórmula.
Na caixa Inserir função, escolha a função.
Na caixa Fórmula, defina os parâmetros.
Clique em OK.

SUBMARINO: Fácil ! Rápido ! Seguro !

19/06 - Rapidinha 23.0 - Word XP: Somar em tabelas ! E pode ?

Sim, microsoftiano(a).
Ao efetuar cálculos em uma tabela, você faz referência às células da tabela como A1, A2, B1, B2. Assim como no Excel XP, a letra representa a coluna e o número representa a linha.
No entanto, as referências de célula no Word XP são sempre referências absolutas ( O Excel XP trabalha com referências absolutas e relativas ).
Outra diferença: No Word XP, as referências de células de tabelas não possuem cifrões ( $A$1 ).

Receita de bolo
Você inseriu uma tabela em um documento do Word XP. Na primeira coluna ( A ), estão os nomes dos vendedores.
Na segunda coluna ( B ), o total de pedidos realizados.
Você deseja somar estes pedidos. Ok.

Insira uma linha no final da tabela.
Na última linha, coluna A, digite, por exemplo, Total de pedidos.
Clique, então, na célula, que receberá o total de pedidos ( a última célula da coluna B ).
Na barra de ferramentas Tabelas e Bordas, clique no botão AutoSoma.
O Word XP somará todos os pedidos.

Obs: Para cálculos complexos, prefira o Excel.
Se você alterar algum valor em uma tabela d