Πώς να Συγκρίνετε Στήλες με VBA

Visual Basic for Applications ( VBA ) είναι μια γλώσσα προγραμματισμού σχεδιασμένη για τα προγράμματα του Microsoft Office , όπως το PowerPoint , Word και Excel . Σας επιτρέπει να δημιουργήσετε προσαρμοσμένα εργαλεία , τα κουμπιά και τα μενού που μπορείτε να χρησιμοποιήσετε για να προσαρμόσετε τις εφαρμογές του Office . Για παράδειγμα , δεν υπάρχει ένα εργαλείο στο Excel που σας επιτρέπει να συγκρίνετε τις στήλες και να τονίσει τις διαφορές . Ωστόσο , με λίγο κώδικα VBA , μπορείτε να δημιουργήσετε ένα χρήσιμο εργαλείο για ακριβώς αυτό το σκοπό . Τα πράγματα που θα χρειαστείτε
Excel 2007 ή το Excel 2010
Η Εμφάνιση Περισσότερες οδηγίες
Η

1 Κάντε κλικ στην καρτέλα "Προγραμματιστής " στο Excel , και στη συνέχεια κάντε κλικ στο " Visual Basic ".

2

Κάντε κλικ στο " Εισαγωγή ". Κάντε κλικ στο " Ενότητα " για να ανοίξετε ένα νέο παράθυρο ενότητα
εικόνων 3

Αποκοπή και επικόλληση του παρακάτω κώδικα στο παράθυρο : .

Sub CompareColumns ( )

Dim στήλη1 Όπως σειρά

Dim στήλη2 Όπως σειρά

« Προτροπή χρήστη για την πρώτη σειρά της στήλης για να συγκρίνετε ...

' ---------- ------------------------------------------

Set στήλη1 = Application.InputBox ( " Επιλέξτε Πρώτη στήλη για να Συγκρίνετε " , Τύπος: = 8 )

« Ελέγξτε ότι το εύρος που έχουν παράσχει αποτελείται από μόλις 1 στήλη ...

Αν Column1.Columns . Count > 1 τότε

Κάντε Μέχρι Column1.Columns.Count = 1

MsgBox " Μπορείτε να επιλέξετε μόνο 1 στήλη "

Set στήλη1 = Application.InputBox ( " Επιλέξτε Πρώτη στήλη για να Συγκρίνετε " , Τύπος: = 8 )

Loop

End If

« Προτροπή χρήστη για την δεύτερη περιοχή στήλης για να συγκρίνετε ...

' ----------------------------------------------- -----

Set στήλη2 = Application.InputBox ( "Επιλογή Δεύτερη στήλη για να Συγκρίνετε " , Τύπος: = 8 )

« Ελέγξτε ότι το εύρος που έχουν παράσχει αποτελείται από μόλις 1 στήλη
...

Αν Column2.Columns.Count > 1 τότε

μην Μέχρι Column2.Columns.Count = 1

MsgBox " Μπορείτε να επιλέξετε μόνο 1 στήλη "

Set στήλη2 = Application.InputBox ( "Επιλογή Δεύτερη στήλη για να Συγκρίνετε " , Τύπος: = 8 ) Τέλος

Loop

Αν

'Έλεγχος τόσο στήλη σειρές έχουν το ίδιο μέγεθος ...

» ----------------------------------- ----------

Αν Column2.Rows.Count <> Column1.Rows.Count τότε

Κάντε Μέχρι Column2.Rows.Count = Column1.Rows . Καταμέτρηση

MsgBox " η δεύτερη στήλη πρέπει να είναι το ίδιο μέγεθος με το πρώτο "

Set στήλη2 = Application.InputBox ( "Επιλογή δεύτερη στήλη για να Συγκρίνετε " , Τύπος: = 8 )

Loop

End If

«Αν έχουν ολόκληρες στήλες έχουν επιλεγεί ( π.χ. $ AA ) , να περιορίσει τα μεγέθη εύρος στο

« UsedRange του ενεργού φύλλου . Αυτό σταματά τη ρουτίνα ελέγξετε ολόκληρο τον Column1.Rows.Count = 65536 Στη συνέχεια

Set στήλη1 = Range ( Column1.Cells ( 1 ) , Column1.Cells ( ActiveSheet.UsedRange.Rows.Count ) )

Σετ στήλη2 = Range ( Column2.Cells ( 1 ) , Column2.Cells ( ActiveSheet.UsedRange.Rows.Count ) )

End If

'Εκτέλεση τη σύγκριση και να ορίσετε τα κύτταρα που είναι το ίδιο με κίτρινο

' ---------------------------------------------- ------------------

Dim intCell Όπως Long

Για intCell = 1 Για να Column1.Rows.Count

Αν Column1.Cells ( intCell ) = Column2.Cells ( intCell ) Στη συνέχεια

Column1.Cells ( intCell ) . Interior.Color = vbYellow

Column2.Cells ( intCell ) . Interior.Color = vbYellow

End If

Επόμενο

End Sub
Η

4 Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη ρουτίνα και να συγκρίνετε τις στήλες .


εικόνων