Visual Basic für Applikationen ( VBA) ist eine Programmiersprache für Microsoft Office -Programmen wie PowerPoint, Word und Excel entwickelt . Es ermöglicht Ihnen, benutzerdefinierte Tools , Schaltflächen und Menüs, die Sie benutzen, um Ihre Office-Anwendungen anpassen können . Zum Beispiel , gibt es nicht ein Tool in Excel , die Sie Spalten vergleichen und die Unterschiede hervorheben können. Allerdings mit einigen VBA-Code , können Sie ein nützliches Werkzeug für genau diesen Zweck . Things You
Excel 2007 oder Excel 2010
brauchen anzeigen Weitere Anweisungen
1
Klicken Sie auf die Registerkarte "Entwicklertools" in Excel , und klicken Sie dann auf " Visual Basic. "
2
Klicken Sie auf " einfügen". Klicken Sie auf " Module" ein neues Modul zu öffnen
3
Cut und fügen Sie den folgenden Code in das Fenster : .
Sub CompareColumns ()
Dim Spalte1 As Range Dim
Column2 As Range
' Benutzer nach der ersten Spalte Spektrum zum Vergleich ...
' ---------- ------------------------------------------
Set Column1 = Application.InputBox ( "Wählen Sie Erste Spalte zu vergleichen " , Type: = 8)
' prüfen Sie, ob der Bereich zur Verfügung gestellt haben sie von nur 1 Spalte besteht ...
Wenn Column1.Columns . Count > 1 Then
tun, bis Column1.Columns.Count = 1
MsgBox " Sie können nur 1 Spalte "
Set Spalte1 = Application.InputBox ( " Wählen Sie Erste Spalte auf " , Typ: = 8)
Schleife
End If
' Benutzer nach der zweiten Spalte Bereich zu vergleichen ...
< p> ' ----------------------------------------------- -----
Set Column2 = Application.InputBox ( "Select zweiten Spalte zu vergleichen " , Type: = 8)
' prüfen Sie, ob der Bereich zur Verfügung gestellt haben sie von nur 1 Spalte besteht ...
Wenn Column2.Columns.Count > 1 Then
Do Until Column2.Columns.Count = 1
MsgBox " Sie können nur 1 Spalte "
Set Column2 = Application.InputBox ( "Select zweiten Spalte zu vergleichen " , Type: = 8)
Schleife
End If
'Check beide Spalte reicht die gleiche Größe ...
' ----------------------------------- ----------
Wenn Column2.Rows.Count <> Column1.Rows.Count Dann
Do Until Column2.Rows.Count = Column1.Rows . Graf
MsgBox " die zweite Spalte müssen die gleiche Größe haben wie der erste "
Set Column2 = Application.InputBox ( "Select zweiten Spalte zu vergleichen " , Type: = 8)
Schleife
End If
"Wenn ganze Spalten ausgewählt wurden ( zB $ AA) , das Spektrum Größen des
' UsedRange der aktiven Blatt . Dies stoppt die Routine der Überprüfung der gesamten Column1.Rows.Count = 65536 Dann
Set Spalte1 = Range ( Column1.Cells (1) , Column1.Cells ( ActiveSheet.UsedRange.Rows.Count ) )
Set Column2 = Range ( Column2.Cells (1) , Column2.Cells ( ActiveSheet.UsedRange.Rows.Count ) ) End If
' Führen Sie die Vergleichs-und set -Zellen, die das gleiche zu gelb
sind
' ---------------------------------------------- ------------------
Dim intCell As Long
intCell = 1 To Column1.Rows.Count
Wenn Column1.Cells ( intCell ) = Column2.Cells ( intCell ) Dann
Column1.Cells ( intCell ) . Interior.Color = vbYellow
Column2.Cells ( intCell ) . Interior.Color = . vbYellow
End If Next
End Sub
4
"F5" drücken , um die Routine ausgeführt und vergleichen Sie die Spalten
