Visual Basic, Applications Edition (VBA ) è un linguaggio di programmazione progettato per i programmi di Microsoft Office , come PowerPoint , Word ed Excel . Esso consente di creare strumenti personalizzati , pulsanti e menu che è possibile utilizzare per personalizzare le applicazioni di Office. Per esempio, non c'è uno strumento in Excel che permette di confrontare le colonne ed evidenziare le differenze . Tuttavia, con un po 'di codice VBA , è possibile creare uno strumento utile solo per tale scopo . Cose che ti serviranno
Excel 2007 o Excel 2010
Mostra più istruzioni
1 Fare clic sulla scheda " Sviluppo " in Excel e quindi fare clic su " Visual Basic ".
2
Fare clic su " Inserisci ". Fare clic su "Modulo" per aprire una nuova finestra del modulo
3
Tagliare e incollare il seguente codice nella finestra : .
Sub CompareColumns ()
dim Colonna1 come gamma
dim Column2 come gamma
' Richiedi all'utente per la prima gamma colonna di confrontare ...
' ---------- ------------------------------------------
Colonna1 = Application.InputBox ( " Selezionare prima colonna al Confronto " , Type : = 8 ) per
' Controllare che il range di aver fornito consiste di solo 1 colonna ...
Column1.Columns . conte > 1 Then
Do Until Column1.Columns.Count = 1
MsgBox " È possibile selezionare solo 1 colonna "
Colonna1 = Application.InputBox ( " selezionare prima colonna al Confronto " , Type : = 8 ) per
loop
End If
' Richiedi all'utente per il secondo intervallo di colonna per confrontare ...
< p > ' ----------------------------------------------- -----
Column2 = Application.InputBox ( " Select seconda colonna a Confronto " , Type : = 8 ) per
' Controllare che il range di aver fornito consiste di solo 1 colonna ...
Se Column2.Columns.Count > 1 Then
Do Until Column2.Columns.Count = 1
MsgBox " È possibile selezionare solo 1 colonna " < br
Set> Column2 = Application.InputBox ( " Select seconda colonna a Confronto " , Type : = 8 ) per
loop
End If
'Check sia colonna intervalli sono le stesse dimensioni ...
' ----------------------------------- ----------
Se Column2.Rows.Count < > Column1.Rows.Count Poi
Do Until Column2.Rows.Count = Column1.Rows . Conte
MsgBox " la seconda colonna deve essere la stessa dimensione come il primo"
Column2 = Application.InputBox ( " Select seconda colonna al Confronto " , Type : = 8 ) per
loop
End If
' Se sono state selezionate intere colonne (ad esempio, $ AA ) , limitare le dimensioni della gamma per la
' UsedRange del foglio attivo . Questo interrompe la routine di controllo dell'intero Column1.Rows.Count = 65536 Poi
Colonna1 = Range ( Column1.Cells ( 1 ) , Column1.Cells ( ActiveSheet.UsedRange.Rows.Count ) ) per
Column2 = Range ( Column2.Cells ( 1 ) , Column2.Cells ( ActiveSheet.UsedRange.Rows.Count ) ) per
End If
'Esecuzione delle cellule di confronto e set che sono gli stessi di
giallo
' ---------------------------------------------- ------------------
Dim intCell As Long
intCell = 1 Per Column1.Rows.Count
Se Column1.Cells ( intCell ) = Column2.Cells ( intCell ) Then
Column1.Cells ( intCell ) . Interior.Color = vbYellow
Column2.Cells ( intCell ) . Interior.Color = vbYellow
End If
Avanti
End Sub
4
Premere " F5 " per eseguire la routine e confrontare le colonne .
