31/12 - 03:00 - Rapidinha 108.0 - Excel: Elucubrações filosóficas sobre a função MÍNIMO
- Faça o download das planilhas
Parcerias RicardoHorta.Net
30/12 - 12:00 - Rapidinha 107.0 - Excel: Bela dupla: MÁXIMO + Formatação condicional
- Faça o download da planilha -
Parcerias RicardoHorta.Net
29/12 - 03:00 - Rapidinha 106.0 - Excel: Funções de Data / Hora - Tutoriais e Exemplos.
-
AGORA -
DATADIF -
DIA.DA.SEMANA -
HORA -
MINUTO -
SEGUNDO -
NÚMSEMANA -
Parcerias RicardoHorta.Net
28/12 - 03:00 - Rapidinha 105.0 - Excel: Funções de Texto - Tutoriais e Exemplos.
-
Funcoes_RicardoHortaNet.xls -
Parcerias RicardoHorta.Net
27/12 - 03:00 - Rapidinha 104.0 - Excel: Funções de Estatística - Tutoriais e Exemplos.
-
CONT.SE -
CONT.VALORES -
CONTAR.VAZIO -
MÍNIMOA -
MODO -
Parcerias RicardoHorta.Net
26/12 - 10:00 - Rapidinha 103.0 - Excel: Funções de Informações - Tutoriais e Exemplos.
Parcerias RicardoHorta.Net
20/12 - 10:00 - Rapidinha 102.0 - Excel: Funções Lógicas - Tutoriais e Exemplos.
-
E -
ÉLÓGICO -
ÉNÚM -
OU -
Parcerias RicardoHorta.Net
18/12 - 10:00 - Rapidinha 101.0 - Excel: Funções Matemáticas - Tutoriais e Exemplos.
-
ABS -
ARREDONDAR.PARA.BAIXO -
ARREDONDAR.PARA.CIMA -
ÍMPAR -
PAR -
SINAL -
SOMA -
SOMASE -
SOMASE -
SOMASE -
SUBMARINO: Fácil ! Rápido ! Seguro !
17/12 - 10:00 - Rapidinha 100.0 - Excel: Funções Procura - Tutoriais e Exemplos.
Parcerias RicardoHorta.Net
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 -
Parcerias RicardoHorta.Net
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 -
Parcerias RicardoHorta.Net
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 -
Parcerias RicardoHorta.Net
12/12 - 10:00 - Rapidinha 96.0 - Formulário Padrão
- 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 -
Parcerias RicardoHorta.Net
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.
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.
Parcerias RicardoHorta.Net
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.
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.
Parcerias RicardoHorta.Net
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.
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.
Parcerias RicardoHorta.Net
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 !
Parcerias RicardoHorta.Net
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
Parcerias RicardoHorta.Net
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 !
Parcerias RicardoHorta.Net
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
Parcerias RicardoHorta.Net
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
Parcerias RicardoHorta.Net
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
Parcerias RicardoHorta.Net
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
Parcerias RicardoHorta.Net
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
Parcerias RicardoHorta.Net
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
Parcerias RicardoHorta.Net
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
Parcerias RicardoHorta.Net
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
Parcerias RicardoHorta.Net
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
Parcerias RicardoHorta.Net
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
Parcerias RicardoHorta.Net
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
Parcerias RicardoHorta.Net
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
Parcerias RicardoHorta.Net
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.
Parcerias RicardoHorta.Net
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
Parcerias RicardoHorta.Net
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
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
Parcerias RicardoHorta.Net
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
Parcerias RicardoHorta.Net
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.
Parcerias RicardoHorta.Net
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
Parcerias RicardoHorta.Net
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
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.
Parcerias RicardoHorta.Net
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.
Parcerias RicardoHorta.Net
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.
Parcerias RicardoHorta.Net
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.
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,
Parcerias RicardoHorta.Net
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.
Parcerias RicardoHorta.Net
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.
Parcerias RicardoHorta.Net
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.
Parcerias RicardoHorta.Net
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.
Parcerias RicardoHorta.Net
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:
-
-
-
Textos de Apoio:
Método AddShape - PowerPoint XP:
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:
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:
-
Parcerias RicardoHorta.Net
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:
-
-
-
Parcerias RicardoHorta.Net
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
Parcerias RicardoHorta.Net
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.
Parcerias RicardoHorta.Net
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 !
Parcerias RicardoHorta.Net
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
Parcerias RicardoHorta.Net
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.
Parcerias RicardoHorta.Net
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 )
Parcerias RicardoHorta.Net
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.
Parcerias RicardoHorta.Net
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.
Parcerias RicardoHorta.Net
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.
Parcerias RicardoHorta.Net
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.
Parcerias RicardoHorta.Net
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.
Parcerias RicardoHorta.Net
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.
Parcerias RicardoHorta.Net
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
Parcerias RicardoHorta.Net
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.
Parcerias RicardoHorta.Net
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 )
Parcerias RicardoHorta.Net
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 !
Parcerias RicardoHorta.Net
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)
Parcerias RicardoHorta.Net
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
Parcerias RicardoHorta.Net
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.
Parcerias RicardoHorta.Net
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.
Parcerias RicardoHorta.Net
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 do Word, terá que executar, novamente,
a função AutoSoma. Ao contrário da planilha microsoftiana, o Word
não atualiza, automaticamente, os valores. Portanto, atenção.
Parcerias RicardoHorta.Net
19/06 - Rapidinha 22.0 - Excel XP: Somar número de dias a uma data ?
- Simples, microsoftiano(a), simples
Em A:1, digite, por exemplo, 10/12/2007
Em B:1, 5
Em C:1, informe a fórmula =A1+B1 e tecle [ Enter ]
Parcerias RicardoHorta.Net
18/06 - Rapidinha 21.0 - Excel XP: Copiando e colando entre planilhas, fácil e rapidamente.
- Abra uma pasta vazia
Ative Plan1.
Digite
Em A:1, São Paulo.
Em A:2, Rio de Janeiro
Em A:3, Bahia
Vamos utilizar apenas 3 células, mas poderiam ser 100.
É um exemplo, não vou complicar.
Clique na guia Plan1.
Em seguida, mantendo a tecla [ Ctrl ] pressionada, clique em Plan2 e Plan3.
Libere [ Ctrl ].
Neste momento, as 3 planilhas estão agrupadas. OK.
Selecione as células que contêm os dados que serão copiados.
Neste simples exemplo, selecione o intervalo A1:A3.
Clique no menu Editar.
Posicione o ponteiro em Preencher.
Clique na opção Entre planilhas.
Agora, visualize o resultado. Ative Plan3 e depois Plan2.
As células foram copiadas e coladas, corretamente.
Parcerias RicardoHorta.Net
18/06 - Rapidinha 20.0 - Excel XP: Nomeando fórmulas
- Da mesma forma que você nomeia células é possível nomear
fórmulas.
Receita de bolo
Em A:1, digite 2
Em B:1, digite 5
Clique no menu Inserir, posicione o ponteiro em Nome e selecione Definir.
Na caixa Nomes na pasta de trabalho, digite axb.
Na caixa Refere-se a, digite =Plan1!$A$1*Plan1!$B$1
Clique no botão OK.
Selecione C:1, digite a fórmula =axb e tecle [ Enter ]
O cálculo será efetuado, corretamente.
Outro teste ? Então, em G:4, informe =axb e tecle [ Enter ]
O Excel XP fará o dever de casa.
Nomes podem facilitar a sua tarefa diária se as fórmulas forem grandes e
complexas.
Parcerias RicardoHorta.Net
17/06 - Rapidinha 19.0 - Excel XP: Teclas [ Ctrl ] + ` ( acento grave )
- Para alternar entre a exibição de fórmulas e a exibição
dos resultados, retornados pelas fórmulas, utilize, em conjunto as teclas
[ Ctrl ] + ` ( acento grave ).
Por padrão, as células exibem os resultados das fórmulas. Ao selecionar a
célula, a barra de fórmulas exibirá a fórmula daquela célula.
Utilizando, em conjunto, as teclas acima, você exibe todas as fórmulas da
planilha. Todas. As fórmulas substituirão os resultados, sem prejuízo para
os cálculos.
Pressionando, novamente, [ Ctrl ] + ` ( acento grave ), os
resultados serão, novamente, exibidos. O padrão microsoftiano será
restabelecido.
Tranqüilo, microsoftiano(a) ?
Parcerias RicardoHorta.Net
17/06 - Rapidinha 18.0 - Excel XP: Executando um formulário ( UserForm ) a partir de outro.
- Você criou 2 formulários ( Userform1 / Userform2 )
e deseja ativar o segundo Userform a partir do primeiro.
Ok, microsoftiano.
Na janela Projeto ( Editor Visual Basic ), clique 2 vezes
em UserForm1.
Insira um Botão de comando.
Altere a propriedade Caption ( por exemplo, Ajuda )
Clique 2 vezes no CommandButton ou clique com o botão direito e
escolha Exibir código.
No evento Click, digite UserForm2.Show
Em seguida, na janela Projeto, clique 2 vezes em UserForm2.
Insira um Botão de comando.
Altere a propriedade Caption ( Fechar )
Clique 2 vezes no botão ou clique com o botão direito e escolha Exibir código.
No evento Click, digite Unload Me
Para testar, clique ( janela Projeto ) 2 vezes em UserForm1
Pressione F5 ou clique no botão Executar Sub/ UserForm
Clique no botão Ajuda. O segundo formulário será exibido
Clique no botão Fechar. UserForm2 será fechado e o controle do
programa retornará para UserForm1
Parcerias RicardoHorta.Net
16/06 - Rapidinha 17.0 - Excel XP: A função InputBox
- A função InputBox exibe uma caixa de diálogo com
uma caixa de texto para entrada de dados, além de 2 botões( OK e Cancelar ).
Se você preencher a caixa de texto e clicar no botão OK, InputBox
retornará o conteúdo da caixa de texto.
Se você clicar no botão Cancelar, a função retornará uma seqüência de
caracteres de comprimento zero ( "" ).
Receita de bolo:
Abra uma pasta vazia.
Abra o Editor do Visual Basic
Na janela Projeto, clique 2 vezes em EstaPasta_de_trabalho.
Na janela Objeto, selecione Workbook.
Programe o evento Open. O código ficará assim:
Private Sub Workbook_Open()
Dim Nome As String
Nome = InputBox("Digite o seu nome", "www.ricardohorta.net")
With Worksheets("Plan1")
.Activate
.Range("A1").Value = Nome
End With
End Sub
Feche o Editor do Visual Basic
Clique no botão Salvar.
Feche e, em seguida, reabra a pasta com a função InpuBox.
A planilha Plan1 será ativada e uma caixa de diálogo será exibida.
Digite o seu nome e clique no botão OK.
A célula A:1 será preenchida com o conteúdo da caixa de texto.
A sintaxe da função é InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
Prompt: a mensagem que será exibida
Title: o texto da barra de título
Xpos e Ypos: a posição horizontal e vertical da caixa de diálogo. São parâmetros opcionais. Se não forem informados, a caixa de diálogo será exibida centralizada na tela.
Helpfile e Context são utilizados para exibir arquivos de Ajuda ( F1 ).
Parcerias RicardoHorta.Net
15/06 - Rapidinha 16.0 - Excel XP: A opção Cálculo automático
- A digitação em planilhas grandes pode ser um
martírio ( Oh, Céus, como esta vida é má ! ) para quem tem pouco tempo ou
paciência. A cada alteração os cálculos são refeitos, o que pode retardar a
digitação, dependendo do tamanho da pasta.
Você pode solucionar este imbróglio, desativando o cálculo automático do Excel XP, enquanto trabalha com a planilha. E ativá-lo, novamente, ao término dos trabalhos.
Para desativar o cálculo automático:
Na barra de menus, clique em Ferramentas.
Clique em Opções.
Clique na guia Cálculo.
Ative a opção Manual
Clique no botão OK.
Digite os dados. Durante a digitação, você poderá calcular toda a planilha,
pressionando a tecla [ F9 ].
Para ativar o cálculo automático:
Terminada a digitação, abra, novamente, a caixa de diálogo Opções.
( Menu Ferramentas ).
Ative a guia Cálculo e marque a opção Automático.
Clique no botão OK.
As fórmulas farão o dever de casa.
Parcerias RicardoHorta.Net
15/06 - Rapidinha 15.0 - Excel XP: Inserir fórmula em várias células
- Você pode inserir a mesma fórmula em um intervalo de células.
Primeiro, selecione o intervalo de células que receberá a fórmula
Clique na barra de fórmulas.
Digite a fórmula
Para finalizar, pressione CTRL+ENTER.
Parcerias RicardoHorta.Net
14/06 - Rapidinha 14.0 - Excel XP: Contando células vazias.
- Você precisa calcular o total de células vazias em um conjunto de células ? Simples, microsoftiano(a), simples.
Siga este pequeno exemplo.
Digite
Em A:1, 10
Em A:2, 20
Em A:3, 100
Em A:4, 200
Em A:5, 300
Em A:6, 400
Em A:7, 300
Selecione B:1
Clique na barra de fórmulas.
Digite a fórmula =SOMA(SE(ÉCÉL.VAZIA(A1:A7);1;0)) e não tecle [ Enter ]
Para finalizar a fórmula, utilize, em conjunto, as teclas
[ Ctrl ] + [ Shift ] + [ Enter ]
Nesta etapa, B:1 retornará 0 ( zero ). O intervalo A1:A7
não possui células vazias.
Agora, clique em A:1 e pressione [ Delete ], apagando o conteúdo.
B:1 retornará 1
Selecione, por exemplo, A:7 e pressione [ Delete ].
B:1 retornará 2, porque o intervalo tem 2 células vazias.
Parcerias RicardoHorta.Net
14/06 - Rapidinha 13.0 - Excel XP: ÉERROS + TIPO.ERRO
- Experimente outra maneira de tratar o erro de divisor
zero ( #DIV/0! )
Em F:1, digite 10
Em G:1, digite 5
Em A:1, digite a fórmula =F1/G1 e tecle [ Enter ].
A:1 ficará com o valor 2, porque 10/5 é igual a 2.
Em B:1, digite a fórmula =SE(ÉERROS(A1);SE(TIPO.ERRO(A1)=2;"O divisor é Zero !");"OK")
Tecle [ Enter ]
As células ficarão assim:
A:1 = 2
B:1 = OK
Como não houve erro, a fórmula, digitada em B:1, retornou OK.
Outro teste. Em G:1, digite 0 ( zero ) e tecle [ Enter ]
As células ficarão assim:
A:1 = #DIV/0!
B:1 = O divisor é Zero !
Parcerias RicardoHorta.Net
13/06 - Rapidinha 12.0 - Excel XP: Personalizando a mensagem de erro nas fórmulas.
- Fórmulas com erros ( divisão por zero, nome não
encontrado, etc., etc. ) retornam mensagens algumas vezes indecifráveis.
O pobre coitado do usuário fica olhando para a dita cuja sem saber o que
aconteceu. Joguei pedra na cruz, pensa ele.
Você pode amenizar este problema, substituindo o resultado, retornado pela
fórmula, por uma mensagem personalizada.
Exemplo:
Em F:1, digite 10.
Em G:1, digite 2.
Em A:1, digite =SE(ÉERROS(F1/G1);"Ô meu, deu tilte na fórmula"; F1/G1)
Tecle [ Enter ].
A fórmula retornará 5, que é a divisão de 10 por 2.
Agora, digite 0 em G:1.
A fórmula retornará a sua mensagem de erro.
Parcerias RicardoHorta.Net
13/06 - Rapidinha 11.0 - Excel XP: Local e nome da pasta
- Para facilitar a sua rotina diária, você gostaria de
armazenar local e nome da pasta de trabalho ativa em uma célula.
Ok, microsoftiano(a).
Selecione a célula.
Digite a fórmula =CÉL("filename") e tecle [ Enter ]
A célula exibirá local, nome da pasta e planilha.
Por exemplo: C:\Meus documentos\[Cidades.xls]Plan1
Parcerias RicardoHorta.Net
12/06 - Rapidinha 10.0 - Excel XP: Ocultando a barra de fórmulas.
- Algumas células possuem extensas fórmulas. Quando selecionadas, a fórmula é exibida em mais de 1 linha, causando uma aparência meio esquisita.
Se a planilha já estiver montada com as fórmulas calculando e retornando, corretamente, os resultados, você pode ocultar a barra de fórmulas.
Receita de bolo:
Abra o Editor do Visual Basic.
Na janela Projeto, clique 2 vezes em EstaPasta_de_trabalho.
Na janela Objeto, selecione Workbook.
No evento Open, digite Application.DisplayFormulaBar = False
Em seguida, na janela Procedimento, selecione o evento BeforeClose.
Digite Application.DisplayFormulaBar = True
Salve o código VBA, feche o Editor e a pasta de trabalho.
Em seguida, abra-a, novamente, clicando em Ativar macros.
A barra de fórmula não será exibida.
Clique no botão Fechar e o evento BeforeClose irá restaurar a tradicional barra microsoftiana.
Parcerias RicardoHorta.Net
12/06 - Rapidinha 9.0 - Excel XP: Exibindo o aplicativo sem barras de ferramentas.
- Você criou um aplicativo no Excel XP e gostaria de
exibi-lo em tela cheia, sem as tradicionais barras microsoftianas. Ok, microsoftiano(a)
Abra o aplicativo.
Abra o Editor do Visual Basic ( Menu Ferramentas / Macros )
Na janela Projeto, clique 2 vezes em EstaPasta_de_trabalho.
Na janela Objeto, selecione Workbook.
No evento Open, digite Application.DisplayFullScreen = True
DisplayFullScreen = True exibe o Excel XP em tela inteira,
ocultando as barras de ferramentas e a barra de título
Para retornar as barras, utilize o evento BeforeClose, que ocorre antes
da pasta ser fechada.
Clique na janela Procedimento e selecione BeforeClose.
Digite Application.DisplayFullScreen = False
Para o teste, salve as alterações, feche a tela do Editor VB e feche a
pasta de trabalho.
Em seguida, abra-a, novamente.
O Excel XP será exibido sem as barras de ferramentas Padrão,
Formatação e qualquer outra que você tenha ativado.
Clique, então, no botão Fechar ( X ), localizado à direita da
barra de menus.
BeforeClose pintará no pedaço, a pasta será fechada e as barras
microsoftianas aparecerão, novamente, na tela.
Parcerias RicardoHorta.Net
12/06 - Rapidinha 8.0 - Validação de dados - Definindo a mensagem de erro.
- Você definiu critérios de validação de dados para determinada célula.
Se você digitar um dado inválido nesta célula, o Excel XP exibirá uma
mensagem de erro que é de amargar: Outro usuário restringiu valores que podem ser inseridos nesta célula.
Você pode dar uma paginada nesta mensagem, torná-la mais amigável, mais
acessível para os seus usuários.
Receita de bolo:
Selecione a célula com a validação.
Clique no menu Dados e na opção Validação.
Caixa Validação de dados aberta, clique na guia Alerta de erro.
Na caixa Título, digite o texto que será exibido na barra de título da mensagem.
E em Mensagem de erro, digite a sua mensagem. Por exemplo: Valor da célula deve ser maior do que zero.
Clique no botão OK para fechar a caixa de diálogo.
Em seguida, faça o teste. Digite um valor inválido na célula. A mensagem,
criada por você, será exibida, substituindo a mensagem predefinida do
Excel XP.
Parcerias RicardoHorta.Net
11/06 - Rapidinha 7.0 - Validação de dados - Números negativos.
- Você criou uma planilha para controlar as vendas da sua
loja. Na coluna com os valores das vendas de cada funcionário, números
negativos ou zeros não podem ser digitados. E por que ? Simples.
O vendedor ficar sem vender é uma situação impossível para a sua loja.
E realizar uma venda com valor negativo é coisa de outro mundo.
Logo, a célula com o valor da venda não pode aceitar zeros ou números
negativos.
Formatar a célula como numérica, não impede que, por exemplo, um número
negativo seja digitado. Solução ? Validação de dados.
Selecione a célula que será validada.
Clique na opção Dados, localizada na barra de menus, e em Validação.
A caixa de diálogo Validação de dados será exibida.
Abra a guia Configurações.
Clique na seta à direita da caixa Permitir e ative Decimal.
Na caixa Dados, selecione maior do que. E na caixa Mínimo,
digite 0 ( zero ).
Parâmetros informados, clique no botão OK.
Na célula validada, digite o sinal negativo ( - ) seguido, por exemplo,
de 2000 e tecle [ Enter ].
O Excel XP exibirá a mensagem O valor inserido não é válido.
Parcerias RicardoHorta.Net
11/06 - Rapidinha 6.0 - Excluindo Nomes de células
- Para excluir o nome, criado para uma célula ou intervalo,
siga esta receita de bolo.
Na barra de menus, clique na opção Inserir.
Posicione o ponteiro em Nome.
No menu que surgir, escolha Definir.
A caixa de diálogo Definir nome será exibida.
Em Nomes na pasta de trabalho, selecione o nome que deseja excluir.
Na caixa Refere-se a será exibido o endereço da célula ou intervalo
relativo ao nome selecionado.
Clique no botão Excluir.
O nome será deletado.
Clique, então, no botão OK.
Obs.: As fórmulas, que fizerem referência ao nome excluído,
retornarão erro. Você deverá alterá-las, substituindo o nome excluído pelo
endereço da célula, coluna, linha ou intervalo.
Parcerias RicardoHorta.Net
11/06 - Rapidinha 5.0 - Documentando Nomes de células.
- É possível listar todos os nomes criados para a pasta ativa.
Clique em uma coluna vazia de uma das planilhas ( Serão utilizadas 2 colunas,
ok ? ).
Clique no menu Inserir.
Posicione o ponteiro em Nome e em Colar.
A caixa de diálogo Colar nome será exibida.
Clique no botão Colar lista.
Os nomes e os endereços ( planilhas, células, colunas ou linhas ) serão listados, corretamente.
Na primeira coluna, serão inseridos os nomes. Na segunda coluna, os endereços
das células.
Parcerias RicardoHorta.Net
10/06 - Rapidinha 4.0
- Você pode criar nomes para grandes intervalos de células como colunas ou linhas inteiras.
Receita de bolo:
Selecione a coluna ou linha.
Clique em Caixa de Nome.
Digite o nome para coluna / linha e tecle [ Enter ].
Você pode, por exemplo, definir o nome TotalSalarios para uma coluna.
Desse modo, será possível substituir nas fórmulas o nome da coluna pelo nome, criado em Caixa de Nome:
Sai, por exemplo, =Soma(D:D), entra =Soma(TotalSalarios)
Parcerias RicardoHorta.Net
10/06 - Rapidinha 3.0 - Nomes de células: Regras
- No Excel XP, nomes para células ou intervalos
podem ter até 255 caracteres.
Portanto, microsoftiano(a), você não precisa criar nomes truncados, difíceis
de serem entendidos.
Os nomes devem começar com letras ou sublinhado ( _ ).
Os outros caracteres podem ser letras, números, pontos e sublinhado.
Não utilize caracteres especiais. O Excel XP não aceitará.
Além disso, o nome não pode ser referência de célula como Z$10 ou L1C1.
Parcerias RicardoHorta.Net
10/06 - Rapidinha 2.0
- É fácil e rápido criar nomes para células.
Selecione a célula ( por exemplo, A:1 ).
Clique em Caixa de nome ( aquela caixa que fica à esquerda na barra de fórmula )
Digite o nome ( por exemplo, Salario )
Tecle [ Enter ]
Assim, nas fórmulas e em códigos VBA, você poderá utilizar A:1 ou Salario.
Parcerias RicardoHorta.Net
10/06 - Rapidinha 1.0
- Na maioria das vezes, ao trabalhar com planilhas, você
utiliza a notação padrão das células: A:1, A:3, B3:D7,
=Soma(A1:D1), etc., etc.
Você está acostumado(a) a referenciá-las através de linhas e colunas. Porém,
você já pensou na hipótese de criar nomes para as células ou intervalos de
células ? Que tal mudar um pouco esta rotina ?
Assim, no lugar de, por exemplo, =Soma(B1:B10), você poderia utilizar
=Soma(Valor_Produto).
Não há dúvida de que nomeando os intervalos ou células as fórmulas ficarão mais legíveis
RicardoHorta.Net
Parcerias RicardoHorta.Net
www.ricardo.horta.nom.br - Direitos adquiridos - Autor: Ricardo Horta
