Visual Basic for Applications (VBA) é uma linguagem de programação projetada para programas do Microsoft Office, como PowerPoint , Word e Excel. Ele permite que você para criar ferramentas personalizadas , botões e menus que você pode usar para personalizar seus aplicativos do Office. Por exemplo, não há uma ferramenta no Excel que permite que você compare colunas e destacar as diferenças. No entanto, com algum código VBA , você pode criar uma ferramenta útil para esse fim . Coisas que você precisa
Excel 2007 ou Excel 2010
Show Mais instruções
1
Clique na guia "Desenvolvedor" no Excel, e , em seguida, clique em " Visual Basic ".
Página 2
Clique em "Inserir ". Clique em " Módulo " para abrir uma nova janela módulo
3
Recorte e cole o seguinte código para a janela : .
Sub CompareColumns ()
Dim Column1 Como faixa
Dim Column2 Como faixa
' Avisar usuário para o primeiro intervalo da coluna para comparar ...
' ---------- ------------------------------------------
Set Column1 = Application.InputBox ("Select primeira coluna para comparar " , Type: = 8)
' Verifique se o intervalo que eles forneceram consiste em apenas uma coluna ...
Se Column1.Columns . Contagem > 1 Então
Do Until Column1.Columns.Count = 1
MsgBox " Você pode selecionar apenas uma coluna "
Set Column1 = Application.InputBox ( " Selecione Primeira coluna para comparação " , Type: = 8)
loop
End If
' Avisar usuário para o segundo intervalo de coluna para comparar ...
' ----------------------------------------------- -----
Set Column2 = Application.InputBox ("Select segunda coluna para comparar " , Type: = 8)
' Verifique se o intervalo que eles forneceram consiste em apenas 1 coluna ...
Se Column2.Columns.Count > 1 Então
fazer até Column2.Columns.Count = 1
MsgBox " Você pode selecionar apenas uma coluna"
Definir Column2 = Application.InputBox ("Select segunda coluna para comparar " , Type: = 8)
loop
End If
'Check ambos coluna faixas são do mesmo tamanho ...
' ----------------------------------- ----------
Se Column2.Rows.Count < > Column1.Rows.Count Então
Do Until Column2.Rows.Count = Column1.Rows . contagem
MsgBox " a segunda coluna deve ser do mesmo tamanho que o primeiro "
Set Column2 = Application.InputBox ("Select segunda coluna para comparar " , Type: = 8)
loop
End If
"Se colunas inteiras foram selecionados (por exemplo $ AA) , limitar os tamanhos de intervalo para o
' UsedRange da planilha ativa . Isso interrompe a rotina de verificação de toda a Column1.Rows.Count = 65536 Então
Set Column1 = Range ( Column1.Cells (1), Column1.Cells ( ActiveSheet.UsedRange.Rows.Count ) )
Set Column2 = Range ( Column2.Cells (1), Column2.Cells ( ActiveSheet.UsedRange.Rows.Count ) )
End If
' executar a comparação e definir células que são os mesmos para amarelo
' ---------------------------------------------- ------------------
Dim intCell As Long
Para intCell = 1 To Column1.Rows.Count
Se Column1.Cells ( intCell ) = Column2.Cells ( intCell ) Então
Column1.Cells
( intCell ) . Interior.Color = vbYellow
Column2.Cells ( intCell ) . Interior.Color = vbYellow
End If
Próxima
End Sub
4
Pressione " F5 " para executar a rotina e comparar as colunas.
