Διασταύρωση Excel VBA
Το VBA Intersect χρησιμοποιείται για να πάρει ένα αντικείμενο εύρους που είναι μια τομή δύο ή περισσότερων εύρους. Πρέπει να παρέχονται τουλάχιστον δύο περιοχές για να βρείτε το σημείο τομής. Όλα τα άλλα επιχειρήματα είναι προαιρετικά με βάση την απαίτηση.
Παρακάτω είναι η σύνταξη του τύπου VBA INTERSECT.
- Arg1 ως Range: Πρώτο τεμνόμενο εύρος.
- Arg2 ως εύρος: Δεύτερο τεμνόμενο εύρος.
Στα παρακάτω παραδείγματα θα δούμε μερικές από τις χρήσιμες τεχνικές.
Παραδείγματα
Παράδειγμα # 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 Υποτ
Change the Value of the Intersection Cell: Using the Intersect function, we can also change the value of that cell into something else.
In the above data, the intersect value of the range “B2:B9” & “A5:D5” is cell B5 i.e., marked with blue color. Now by supplying this range to intersect function, we can actually change the value to something else.
The below code will change the value from 29398 to “New Value.”
Code:
Sub Intersect_Example3() Intersect(Range("B2:B9"), Range("A5:D5")).Value = "New Value" End Sub
Run the code above. We will get the word “New Value” in place of 29398.
Like this, by using the Intersect function, we can play around with the middle position value of the supplied range.
Things to Remember
- Στο excel, για να πάρουμε τη διασταυρούμενη τιμή του εύρους, πρέπει να δώσουμε διαστημικό χαρακτήρα μεταξύ δύο περιοχών.
- Χρησιμοποιώντας κωδικοποίηση VBA, μπορούμε να επισημάνουμε, να μορφοποιήσουμε, να διαγράψουμε ή να αλλάξουμε και να κάνουμε πολλά άλλα πράγματα στην τιμή διασταύρωσης.
- Εάν οι πολλαπλές σειρές και στήλες παρέχονται στη συνάρτηση διασταύρωσης, τότε θα λάβουμε τις δύο μεσαίες τιμές.
