Διασταύρωση VBA | Παραδείγματα τομής στο Excel VBA | Μέθοδοι

Διασταύρωση Excel VBA

Το VBA Intersect  χρησιμοποιείται για να πάρει ένα αντικείμενο εύρους που είναι μια τομή δύο ή περισσότερων εύρους. Πρέπει να παρέχονται τουλάχιστον δύο περιοχές για να βρείτε το σημείο τομής. Όλα τα άλλα επιχειρήματα είναι προαιρετικά με βάση την απαίτηση.

Παρακάτω είναι η σύνταξη του τύπου VBA INTERSECT.

  • Arg1 ως Range: Πρώτο τεμνόμενο εύρος.
  • Arg2 ως εύρος: Δεύτερο τεμνόμενο εύρος.

Στα παρακάτω παραδείγματα θα δούμε μερικές από τις χρήσιμες τεχνικές.

Παραδείγματα

Μπορείτε να πραγματοποιήσετε λήψη αυτού του προτύπου VBA Intersect Excel εδώ - Πρότυπο VBA Intersect Excel

Παράδειγμα # 1

Για παράδειγμα, χρησιμοποιήστε τα παρακάτω δεδομένα.

Βήμα 1: Δηλώστε τη μεταβλητή ως Παραλλαγή.

Κώδικας:

 Sub Intersect_Example () Dim MyValue ως παραλλαγή End Sub 

Βήμα 2: Για αυτήν τη μεταβλητή εκχωρήστε την τιμή μέσω του τύπου Intersect.

Κώδικας:

 Sub Intersect_Example () Dim MyValue ως παραλλαγή MyValue = Intersect (End Sub 

Βήμα 3: Επιλέξτε το πρώτο εύρος ως B2 έως B9.

Κώδικας:

 Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), End Sub 

Βήμα 4: Επιλέξτε το δεύτερο εύρος από A5 έως D5.

Κώδικας:

 Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5") End Sub 

Βήμα 5: Δοκιμάζουμε μόνο δύο σειρές εδώ. Κλείστε τον τύπο και επιλέξτε τη μέθοδο ως διεύθυνση VBA Cell.

Κώδικας:

 Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Διεύθυνση End Sub 

Βήμα 6: Εμφάνιση της τιμής στο πλαίσιο μηνυμάτων στο VBA.

Κώδικας:

 Sub Intersect_Example () Dim MyValue As Variant MyValue = Intersect (Range ("B2: B9"), Range ("A5: D5")). Διεύθυνση MsgBox MyValue End Sub 

Εντάξει, τελειώσαμε και θα δούμε τι θα λάβουμε στο πλαίσιο μηνυμάτων.

Έχουμε το αποτέλεσμα ως B5, δηλαδή διεύθυνση κυψέλης του σημείου διασταύρωσης της παρεχόμενης περιοχής

Όπως αυτό χρησιμοποιώντας τη μέθοδο VBA INTERSECT, μπορούμε να κάνουμε πολλά περισσότερα πράγματα.

Παράδειγμα # 2

Επιλέξτε το κελί διατομής

Για να επιλέξετε το κελί διασταύρωσης της παρεχόμενης περιοχής χρησιμοποιήστε τον παρακάτω κωδικό.

Κώδικας:

 Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Επιλέξτε End Sub 

Αυτό θα επιλέξει το κελί τομής του παρεχόμενου εύρους.

Παράδειγμα # 3

Εκκαθάριση περιεχομένου του κελιού διατομής : Για να διαγράψετε το περιεχόμενο του κελιού διασταύρωσης της παρεχόμενης περιοχής χρησιμοποιεί τον παρακάτω κώδικα

Κώδικας:

 Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). ClearContents End Sub 

Παράδειγμα # 4

Αλλαγή φόντου χρώματος κελιού και χρώματος γραμματοσειράς κελιού διατομής : Για να αλλάξετε το χρώμα φόντου του κελιού διατομής και το χρώμα γραμματοσειράς της τιμής κελιού διασταύρωσης χρησιμοποιώντας τον παρακάτω κώδικα.

Κώδικας:

 Sub Intersect_Example2 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Cells.Interior.Color = rgbBlue Intersect (Range ("B2: B9"), Range ("A5: D5") Cells.Font.Color = rgbAliceBlue End Υποτ 

Αλλαγή της τιμής του κελιού διατομής: Χρησιμοποιώντας τη συνάρτηση Intersect μπορούμε επίσης να αλλάξουμε την τιμή αυτού του κελιού σε κάτι άλλο.

Στα παραπάνω δεδομένα, η τιμή τομής της περιοχής "B2: B9" & "A5: D5" είναι το κελί B5 δηλ. Επισημαίνεται με μπλε χρώμα. Τώρα παρέχοντας αυτό το εύρος στη διασταυρούμενη λειτουργία, μπορούμε πραγματικά να αλλάξουμε την τιμή σε κάτι άλλο.

Ο παρακάτω κώδικας θα αλλάξει την τιμή από 29398 σε "Νέα τιμή".

Κώδικας:

 Sub Intersect_Example3 () Intersect (Range ("B2: B9"), Range ("A5: D5")). Value = "New Value" End Sub 

Εκτελέστε τον παραπάνω κώδικα θα πάρουμε τη λέξη "Νέα τιμή" στη θέση 29398.

Έτσι, χρησιμοποιώντας τη συνάρτηση Intersect μπορούμε να παίξουμε με την τιμή μέσης θέσης του παρεχόμενου εύρους.

Πράγματα που πρέπει να θυμάστε

  • Στο Excel για να αποκτήσουμε τη διασταυρούμενη τιμή του εύρους, πρέπει να δώσουμε διαστημικό χαρακτήρα μεταξύ δύο περιοχών.
  • Με τη χρήση κωδικοποίησης VBA μπορούμε να επισημάνουμε, να μορφοποιήσουμε, να διαγράψουμε ή να αλλάξουμε και να κάνουμε πολλά άλλα πράγματα στην τιμή διασταύρωσης.
  • Εάν οι πολλαπλές σειρές και στήλες παρέχονται στη συνάρτηση διασταύρωσης, τότε θα λάβουμε τις δύο μεσαίες τιμές.