=E(A1>10;B1<20)

=OU(A1>10;B1<20)

Sub VerificaIdade()
    If Range("A1").Value >= 18 Then
        MsgBox "Maior de idade"
    End If
End Sub

Sub VerificaNota()
    If Range("B1").Value >= 7 Then
        MsgBox "Aprovado"
    Else
        MsgBox "Reprovado"
    End If
End Sub

Sub VerificaAprovacao()
    If Range("A1").Value >= 18 And Range("B1").Value >= 7 Then
        MsgBox "Aprovado com mérito"
    End If
End Sub

Sub VerificaCondicional()
    If Range("A1").Value >= 18 Or Range("B1").Value >= 7 Then
        MsgBox "Aprovado em uma das condições"
    End If
End Sub

Sub DestacarNota()
    If Range("B1").Value < 5 Then
        Range("B1").Interior.Color = vbRed
    End If
End Sub

Sub MensagemNota()
    If Range("B1").Value >= 9 Then
        MsgBox "Excelente!"
    ElseIf Range("B1").Value >= 7 Then
        MsgBox "Bom!"
    Else
        MsgBox "Precisa melhorar."
    End If
End Sub

Sub VerificaFaltas()
    If Range("C1").Value > 5 Or Range("B1").Value < 7 Then
        MsgBox "Reprovado por faltas ou nota"
    End If
End Sub

Sub AprovadoComCor()
    If Range("A1").Value >= 18 And Range("B1").Value >= 7 Then
        Range("D1").Value = "Aprovado"
        Range("D1").Interior.Color = vbGreen
    End If
End Sub

Sub EntradaNota()
    Dim nota As Double
    nota = InputBox("Digite a nota:")
    If nota >= 7 Then
        MsgBox "Aprovado"
    Else
        MsgBox "Reprovado"
    End If
End Sub

Sub EntradaCondicional()
    Dim idade As Integer
    idade = InputBox("Digite a idade:")
    If idade < 18 Or idade > 60 Then
        MsgBox "Idade fora do padrão"
    End If
End Sub

Sub VerificaVazio()
    If Range("A1").Value = "" Then
        MsgBox "Campo vazio!"
    End If
End Sub

Sub VerificaTexto()
    If Range("A1").Value = "João" Then
        MsgBox "Nome encontrado!"
    End If
End Sub

O post 🏆 Tutorial Completo de Excel com VBA Funções Lógicas E e OU e 12 Macros com IF e OR apareceu primeiro em Excel - Curso VBA - Aprender Programação.

Nesta video aula excel vba [ M1 – Aula 75 ], aprenderemos a lidar com Evento WorkSheet_SelectionChange Linha Coluna MsgBox 42, retornando linha coluna ao seleciona.

+ 1.000 Video Aulas sobre programação Excel VBA
Curso Excel VBA SomaExcel – Escrevendo Menos e Fazendo Menos
Prof. Expedito Marcondes

   Faça o Download do Exemplo de Planilha( Liberado na area de membros )
Licao_75 Evento Wst_SelChange lin col msgbox 42.xlsm

Queridos Alunos,

Aqui estão alguns exemplos práticos de procedimentos que utilizam o evento Worksheet_Change:

Excel VBA – Entendendo o Evento Worksheet_SelectionChange!

Queridos Alunos,

É com imensa gratidão que trago mais uma videoaula incrível, abordando um dos eventos mais úteis e dinâmicos do Excel VBA: Worksheet_SelectionChange – O evento que detecta quando uma célula é selecionada e retorna informações importantes, como linha e coluna, permitindo interações mais avançadas com o usuário.

Dominar esse conceito abre novas possibilidades na automação de planilhas, tornando suas soluções mais inteligentes e interativas.

Frases Bíblicas Inspiradoras Para Nossa Jornada no Conhecimento

“O coração do sábio busca o conhecimento, mas a boca dos tolos se alimenta de insensatez.” – Provérbios 15:14
“A sabedoria é a coisa principal; adquire, pois, a sabedoria, e com todos os teus bens adquire o entendimento.” – Provérbios 4:7
“O Senhor dá a sabedoria; da sua boca é que vem o conhecimento e o entendimento.” – Provérbios 2:6

Que estas palavras fortaleçam sua caminhada e revigorem sua força de vontade em buscar mais conhecimento e aperfeiçoamento, pois a sabedoria nos guia para caminhos de honra e sucesso!

A Importância da Lógica na Programação

A lógica é fundamental para resolver problemas de forma clara e estruturada! No mundo atual, quem domina a programação e a lógica está à frente no mercado de trabalho, criando soluções eficientes para empresas e sendo altamente valorizado.

Aprender VBA permite que você crie soluções automatizadas e seja requisitado no seu trabalho! Seja reconhecido como um especialista e conquiste oportunidades únicas! A lógica e a programação são ferramentas de crescimento humano, profissional e espiritual!

Exemplos de Macros VBA – Evento Worksheet_SelectionChange

Exemplo 1 – Exibir a Linha e a Coluna ao Selecionar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox "Você selecionou a linha " (codigos excel vba)
🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
End Sub

Exemplo 2 – Destacar a Célula Selecionada

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Target.(códigos) ' Amarelo
    🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
End Sub

Exemplo 3 – Exibir o Nome da Coluna Selecionada

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox "Você selecionou a coluna: " & Split(x(código vba)(1)
    🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
End Sub

Exemplo 4 – Impedir Seleção de Células Específicas

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not (códigos vba) Is Nothing Then
       🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
         MsgBox "Você não pode selecionar essa área!"
        Application.(código vba)
    End If
End Sub

Exemplo 5 – Exibir Mensagem Somente Para Coluna Específica

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target(codigo vba) = (código vba) Then
        🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
    End If
End Sub

Exemplo 6 – Colorir Linha Selecionada

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Rows(codigos vba) = (códigos excel vba) ' Azul
    🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
End Sub

Exemplo 7 – Registrar Última Célula Selecionada em Outra Célula

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range(x).Value = (Excel Range codigo vba)  & (Excel código excel vba)
    🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
End Sub

Exemplo 8 – Impedir Seleção na Coluna A

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (excel código vba)  = (excel códigos vba) Then
        MsgBox "Não é permitido selecionar a Coluna A!"
    🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
        (excel código vba)
    End If
End Sub

Exemplo 9 – Exibir Número Total de Células Selecionadas

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox (VBA Codigo Excel) & (excel códigos vba) & " células." 
    🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
End Sub

Exemplo 10 – Alterar Fonte de Texto ao Selecionar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    (excel códigos vba) 
       🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
End Sub

Exemplo 11 – Exibir Tipo de Dado da Célula

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox "Tipo de dado: " & (excel planilha códigos)
      🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
End Sub

Exemplo 12 – Enviar Notificação ao Selecionar Célula Específica

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (excel códigos vba) = "$A$1" Then
        MsgBox "Você clicou na célula especial A1!" 
       🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not x(codigos excel vba) Is (codigos vba) Then 
       🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
       Target(codigos vba) = Target.(codigos excel vba)
    End If 
End Sub 

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect codigos vba Then 
 🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
        Application.EnableEvents = False 
        Target.(codigos area membros) = xxxx
    End If
End Sub 

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not Intersect(codigos programação excel vba )  Then 
        Application.EnableEvents = False 
        (codigos excel vba programação - area membros)
        Application.EnableEvents = True 
    End If 
End Sub 

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not (codigos) Is Nothing Then  
       🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
        Application.EnableEvents = False 
        Range("E1").Value = (códigos)
        Application.EnableEvents = True 
    End If 
End Sub 

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not (codigos excel vba planilhas registrar alterações data) Nothing Then 
        Application.EnableEvents = False   
        🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
        Target.(codigos vba planilha) 
        Target.(codigos vba planilha) 
        Application.EnableEvents = True 
    End If 
End Sub 

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not (codigos excel vba treinamentos curso) Is Nothing Then 
        Application.EnableEvents = False  
      🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
         If xxxxxxx > 10 Then 
           xxxxxxxx = xxxxxxx + xxxxxxxx 
        Else 
            MsgBox xxxxxxxx
        End If 
        Application.EnableEvents = True 
    End If 
End Sub 

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not (codigos programação excel vba planilha)  Then 
   🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
        Application.EnableEvents = False 
        xxxxxxxx = xxxxxxx + xxxxx 
        Application.EnableEvents = True 
    End If
End Sub 

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not (codigos programação excel vba) Is Nothing Then
🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊 
        Application.EnableEvents = False 
        (codigos planilha programação)  = (códigos) + (códigos)
        Application.EnableEvents = True 
    End If 
End Sub 

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not (codigos excel vba) Is Nothing Then 
🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
        Application.EnableEvents = False 
        Range("J1").Value = (codigos excel vba) 
        Application.EnableEvents = True 
    End If 
End Sub 

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Not (excel vba planilha programação) Nothing Then 
      🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
        Application.EnableEvents = False 
        (códigos) = (códigos) + (códigos)
        Application.EnableEvents = True 
    End If 
End Sub 

Conclusão – A Sabedoria Nos Guia Para o Sucesso!

Queridos alunos, lembrem-se: o conhecimento adquirido nunca se perde! Cada linha de código, cada lógica compreendida e cada funcionalidade implementada abre um novo horizonte para sua vida e carreira.

“Porque o Senhor dá a sabedoria; da sua boca é que vem o conhecimento e o entendimento.” – Provérbios 2:6

Mantenham-se firmes nos estudos, pois o esforço de hoje é o sucesso de amanhã!

Prof. Expedito Marcondes
Suporte: suportecursovba@gmail.com

Que esta aula fortaleça sua jornada rumo ao domínio do Excel VBA e à transformação pessoal e profissional! Bons estudos!

O post M1 – Aula 75 – Evento WorkSheet_SelectionChange Linha Coluna MsgBox 42 apareceu primeiro em Excel - Curso VBA - Aprender Programação.