Excel planilha vba celula navegar pelas celulas digitacao instrucao select case

Qui, 18 de Novembro de 2010 20:39 Expedito Marcondes
Imprimir

Saberexcel - o site das macros

Essse exemplo do Aplicativo Microsoft Excel VBA, contém macro que utilizando da Instrução Select Case, seleciona determinada células na folha de planilha e em seguida abre uma caixa de diálogo, (existem centenas de caixas de diálogo), e insere nas Células[C3] e [C4], o número do botão que foi executado como também a célula que foi selecionada pela instrução Select Case . Detalhe, observe que todos os shapes(Autoformas) que representam os botões , botão1, botão2, foram antecipadamente renomeados observem na caixa de nome.


Option Explicit

Sub Seleciona_celula_mostra_FC()
Select Case
Application.Caller

Case "botao1"

Range("A2").Select
[C3].Value = "Voce Acionou o Botão 1"
[C4].Value = "Voce selecionou :" & ActiveCell.Address

Case
"botao2"
Range("D2").Select
[C3].Value = "Voce Acionou o Botão [2]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address

Case "botao3"
Range("F2").Select
[C3].Value = "Voce Acionou o Botão [3]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address

Case "botao4"
Range("A2").Select
[C3].Value = "Voce Acionou o Botão [4] "
[C4].Value = "Voce selecionou :" & ActiveCell.Address

Case "botao5"

Range("D2").Select
[C3].Value = "Voce Acionou o Botão [5]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address

Case "botao6"
Range("E2").Select
[C3].Value = "Voce Acionou o Botão [6]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address

Case "botao7"
Range("F2").Select
[C3].Value = "Voce Acionou o Botão [7]"
[C4].Value = "Voce selecionou :" & ActiveCell.Address

Case "botao8"

Range("G2").Select
End Select
Application.Dialogs(xlDialogConditionalFormatting).Show
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



 Baixe a planilha exemplo da macro acima
 
Excel planilha vba celulas seleciona celulas usando instrucao select case (38.98 kB)



Publicidade
Compre com segurança, garantia e ótimos preços
Eletrônicos - Submarino.com.br

Tags:
Última atualização em Qua, 10 de Agosto de 2011 08:16