M2 – Aula 278 – Excel VBA Celulas e Range Função Instr() e Mid() Extrair Dados 2

💡 Excel VBA Planilha como  fazer Exemplos práticos em VBA para aplicar os conceitos para treinamento com Excel VBA.

Exemplo 1 – Excel VBA Planilha como   Localizar a posição de um texto específico
→Excel VBA Planilha como  Mostra em que posição da célula A1 aparece a palavra “CPF”

Sub Exemplo1() 
    acesse parea de membros 
    MsgBox InStr(1, Range("A1").Value, "CPF")
End Sub

Exemplo 2 –Excel VBA Planilha como  Extrair uma parte fixa do texto em A1
→ Excel VBA Planilha como  Extrai 10 caracteres a partir da 5ª posição e joga na célula B1

Sub Exemplo2()
    Dim texto As String
     🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
End Sub

Exemplo 3 – Excel VBA Planilha como  Extrair dados após dois-pontos
→ Excel VBA Planilha como   De “Cliente: João Silva”, extrai “João Silva”

Sub Exemplo3()
    Dim pos As Integer
    Dim frase As String
     🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊 
End Sub

Exemplo 4 – Excel VBA Planilha como   Verificar várias células com Cells()
→Excel VBA Planilha como  Marcar com “Contém erro” se a palavra “Erro” aparecer nas 10 primeiras linhas da coluna A

Sub Exemplo4()
    Dim i As Integer
    For i = 1 To 10
       Acesse área de membros
    Next i
End Sub

Exemplo 5 – Excel VBA Planilha como   Extrair o domínio de um e-mail
→Excel VBA Planilha como  extrair o dominio de um email De “joao@email.com”, extrai “email.com”

Sub Exemplo5()
    Dim email As String, pos As Integer
    Acesse área de membros 
End Sub

Exemplo 6 – Excel VBA Planilha como  Função personalizada para extrair após hífen
→ Excel VBA Planilha como  a Função Excel VBA pode ser usada direto na célula: =Extrair_Apos_Hifen(A1)

Function Extrair_Apos_Hifen(txt As String) As String
    Dim pos As Integer
    🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
End Function

Exemplo 7 – Excel VBA Planilha como  Separar nome e sobrenome
→ Excel VBA Planilha como  mostrar e separar nome sobrenome De “Joana Costa”, coloca “Joana” em B1 e “Costa” em C1

Sub Exemplo7()
    Dim nome As String, pos As Integer
      nome = Range("A1").Value 
      🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊
 End Sub

Exemplo 8 –Excel VBA Planilha como  erificar se o texto contém a palavra “OK”
→ Excel VBA Planilha como  Mostrar uma mensagem de “Aprovado!” ou “Revisar”

Sub Exemplo8()
     🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊 (uso do Instr())
        MsgBox "Aprovado!"
    Else
        MsgBox "Revisar"
    End If
End Sub

Exemplo 9 – Excel VBA Planilha como  Extrair número de telefone depois de “Tel:”
→ Excel VBA Planilha como extrair De “Contato: Tel:999998888”, extrai “999998888”

Sub Exemplo9()
    Dim posição As Integer
    Acesse a Area de Membros 
End Sub

Exemplo 10 – Excel VBA Planilha como  Combinar partes de textos de duas células
→ Excel VBA Planilha como  Juntar os 3 primeiros caracteres de A1 com o restante de B1 (a partir da posição 4)

Sub Exemplo10()
    Acesse àrea de Membros
End Sub

Exemplo 11 – Excel VBA Planilha como Exibir Verificar se há código “COD-” na célula
→ Excel VBA Planilha como Exibir Apresenta mensagem se o código for localizado

Sub Exemplo11()
    If   > 0 Then
      🔑 Conteudo na Área de Membros Excel VBA - Acessar Agora!📊 
    End If
End Sub

Exemplo 12 – Excel VBA Planilha como Listar todas as ocorrências da palavra “erro”
→ Excel VBA Planilha como Exibir no console as posições onde “erro” aparece no texto de A1

Sub Exemplo12()
    Dim texto As String, pos As Integer
    texto = Range("A1").Value
    pos = InStr(texto, "erro")
    Do While pos > 0
        Acesse a parea de Membros 
    Loop
End Sub