Excel VBA - Compara

  • - Acesso Livre (há alguns arquivos nesta categoria com restrição de acesso - faça o login ou Registre-se)
    Acesso Livre - Registrados (REGISTRE-SE!)
  • Documentos

    Ordenar por : Nome | Data | Acessos [ Descendente ]

    Excel planilha vba compara dados duas coluna cores Excel planilha vba compara dados duas coluna cores

    popular!
    Adicionado em: 27/11/2011
    Modificado em: 27/11/2011
    Tamanho: 90.81 KB
    Downloads: 2053

    Escola Saberexcel VBA Estudos e Treinamentos com Macros Fórmulas e Funções

    O CRITÉRIO USADO É O NÚMERO 1 'UM'
    O macro verifica as quatro colunas como você pode observar,por exemplo verifica se existe o número (1) , poderia ser qualquer número ou palavra.
    Um contador com a instrução (For ..Next) entra na coluna(B) verifica se existe o número (1), desloca uma coluna à direita e insere a cor vermelho se o valor for igual a 1 também. na realização do teste o que for diferente de (1) não será verificado e não será inserido a formatação vermelho.

    Se voce é aprendiz de VBA ou está iniciando, depois de dominar bem todo vocabulário do vb, as propriedades dos objetos e com seus métodos e eventos, é de extrema importância aprender tudo sobre as instruções LOOP (\While...Wend \Do...While...Loop \Do...Loop...While\ Do...until..Loop \ Do...Loop...unti l \ For...Next \For...Each...next ) e também sobre a propriedade DESLOC(offset) e finalmente praticar bastante, pois não há outro caminho para o aprendizado a não ser centenas e até milhares de horas praticando com macros e observando resultados, pois qualquer linguagem de programação é um universidade de dados, cálculos e lógica.

    Aprender a programar e desenvolver é algo fascinante, nosso objetivo é oferecer aos nossos alunos material didático para prática com excelente qualidade e baixo custo. Ser um programado/desenvolvedor precisa de esforço, tenacidade, criatividade, atenção e muita determinação, a lógica vai acontecendo com a prática.

    Desejo-lhes todo o bem
    Fique com Deus, paz, saúde, hamonia e alegria de viver.
    Expedito Marcondes
    Escola Saberexcel VBA Estudos® - Treinamento com Macros, Fórmulas e Funções

    Laila , minha aluna querida.
    veja bem ao inserir cores, poderiamos fazer mil ações.
    deletar planilha, deletar células, deletar linhas, deletar colunas, inserir, copiar, apagar, substituir, deslocar, formatar, adicionar, somar, dividir, et.......
    é só usar a criatividade, veja que nesse momento, voce poderá relacionar uma lista enorme de ações que poderiamos fazer ao retornar critério "(true= verdadeiro)" a ação instrução loop. não é mesmo? Fique com Deus. Expedito Marcondes

    Sub Inserir_cores_celula_determinada()
    Dim vContador As Long
    Dim UltimaLinha As Long
    Dim vPrimeiraLinha As Long
    Dim UltimaColuna As Long
    Dim vPrimeiraColuna As Long
    Dim vArea As Long


    [B2:E22].ClearFormats 'limpando os formatos para o procedimento entrar com novas formatações.
    'formatando a area depois do clearformats
    [B2:E22].Borders.LineStyle = xlHairline 'xlThick
    [B2:E22].Font.Size = 8
    [B2:E22].Font.Name = "Consolas"
    [B2:C22].Interior.ColorIndex = 35
    [D2:E22].Interior.ColorIndex = 36

    'localizando linhas e colunas
    UltimaLinha = Range("A1000000").End(xlUp).Row 'Procura pela última linha
    UltimaColuna = Range("XFD4").End(xlToLeft).Column 'determina última coluna utilizada
    vContador = 0 'Contador linhas
    vPrimeiraLinha = 4 'Primeira linha dados desejado

    'instrução For Next com Select Case para identificar as células com o critério desejado (neste caso o número.1)
    For vArea = vPrimeiraLinha To UltimaLinha
    For vPrimeiraColuna = 3 To UltimaColuna Step 2 'escolha proxima D coluna

    Select Case Cells(vArea, vPrimeiraColuna - 1).Value 'verifica a entrada da coluna anterior
    Case 1
    If Cells(vArea, vPrimeiraColuna).Value = 1 Then 'verifica se o valor é igual a 1
    Cells(vArea, vPrimeiraColuna).Interior.Color = RGB(254, 0, 0) 'define a cor do interior da célula localizada
    vContador = vContador + 1 'incrementa o contador da célula encontrada
    End If
    Case 0 'caso for zero não faça nada (end select)
    End Select

    Next vPrimeiraColuna

    Next vArea

    MsgBox "verificação concluida colorida " & vContador & " casos ", vbInformation, "Escola Saberexcel VBA Estudos®"
    [G7].Value = "Foram verificados [ " & vContador & " ] casos em que ocorreram o critério(1) e correspondencia"
    End Sub

    'retorna o número da ultima coluna usada
    'observe que usei esse código no macro acima para identificar a coluna desejada,
    'não deixe de ver nosso trabalho sobre a propriedade desloc(offset (linhas, células e colunas))
    Sub treinamento_saberexcel_ultima_coluna()
    UltimaColuna = Range("XFD4").End(xlToLeft).Column
    MsgBox UltimaColuna
    End Sub

    'macro apenas para treinamento localiza ultima linha também usada também no macro acima
    'não deixe de ver nosso trabalho sobre a propriedade desloc(offset (linhas, células e colunas))

    Sub treinamento_saberexcel_ultima_linha()
    UltimaLinha = Range("A1000000").End(xlUp).Row
    MsgBox UltimaLinha
    End Sub

    'macro apenas para treinamento insere bordas, usada também no macro acima
    Sub treina_saberexcel_bordas()
    Range("A1:G17").Borders.LineStyle = xlThick 'xlContinuous
    End Sub



    Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.





    Excel planilha vba compara dados intervalo celulas Excel planilha vba compara dados intervalo celulas

    popular!
    Adicionado em: 21/05/2011
    Modificado em: 21/05/2011
    Tamanho: 67.84 KB
    Downloads: 1059

    Saberexcel - o site de quem precisa Aprender Macros Microsoft Excel VBA.

    Esse macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), compara dados em intervalo de células, se não for ou não idênticos, retorna uma mensagem, VERDADEIRO OU FALSO

    Option Explicit
    Sub Verifica_se_intervalos_identicos()
    Dim a, b As Variant, c As Boolean, i As Long, j As Long, X As String
    X = "Há dados diferentes"
    a = Range("A1:A10").Value
    b = Range("B1:B10").Value
    c = True

    For i = LBound(a, 2) To UBound(b, 2)
    For j = LBound(a, 1) To UBound(a, 1)
    If Not a(j, i) = b(j, i) Then
    c = False: Exit For
    End If
    Next j
    If Not c Then Exit For
    Next i

    If c = False Then
    MsgBox "Dados idênticos? : [ " & c & " ] " & X, vbCritical, "Saberexcel"
    Else
    MsgBox "Dados idênticos? : [ " & c & " ]", vbInformation, "Saberexcel"
    End If

    If Application.CountIf([a1:a10], 0) >= 1 Then MsgBox "Intervalo col(A) contém zero"
    End Sub



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


    ´



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


    Google Associados

    Depoimentos

    Adicione Saberexcel Favoritos

     
     

    Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

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


       Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA