Αυτό το σεμινάριο θα δείξει πώς να προσαρμόσετε τις ρυθμίσεις περιγράμματος κυψέλης στο VBA.
Μορφοποίηση περιθωρίων
Πάνω όριο - διπλή γραμμή
Αρχικά ας δούμε ένα παράδειγμα για το πώς να ορίσετε ένα μπλε, παχύ, διπλό επάνω περίγραμμα στο κελί B3 στο Φύλλο 1:
| 123456789 | ΥπόδειγμαSetBorder ()Με φύλλα εργασίας ("Φύλλο1"). Εύρος ("Β3"). Περιγράμματα (xlEdgeTop).LineStyle = xlDouble.Βάρος = xlΠυκνό.ColorIndex = 5Τέλος μεΤέλος υπο |
Παρατηρήστε ότι χρησιμοποιούμε μια δήλωση με για να απλοποιήσουμε την κωδικοποίησή μας.
Έχουμε πρόσβαση στο πάνω περίγραμμα με .Borders (xlEdgeTop).
Άλλα όρια κυψέλης
Αντ 'αυτού, μπορείτε να έχετε πρόσβαση σε άλλα σύνορα, συμπεριλαμβανομένων των διαγωνίων:
| 123456 | Φύλλα εργασίας ("Φύλλο1"). Εύρος ("Β2"). Περιγράμματα (xlEdgeTop). Χρώμα = RGB (128, 0, 0)Φύλλα εργασίας ("Φύλλο1"). Εύρος ("B2"). Περιγράμματα (xlEdgeRight). Χρώμα = RGB (0, 255, 0)Φύλλα εργασίας ("Φύλλο1"). Εύρος ("Β2"). Περιγράμματα (xlEdgeBottom). Χρώμα = RGB (0, 0, 128)Φύλλα εργασίας ("Φύλλο1"). Εύρος ("Β2"). Περιγράμματα (xlEdgeLeft). Χρώμα = RGB (255, 0, 0)Φύλλα εργασίας ("Φύλλο1"). Εύρος ("Β2"). Περιγράμματα (xlDiagonalDown). Χρώμα = RGB (0, 0, 0)Φύλλα εργασίας ("Φύλλο1"). Εύρος ("Β2"). Περιγράμματα (xlDiagonalUp). Χρώμα = RGB (0, 0, 0) |
Μέσα στα σύνορα
Μπορείτε επίσης να προσαρμόσετε οριζόντια (xlInsideHorizontal) και κάθετα (xlInsideVertical) περιγράμματα για όλα τα κελιά μιας περιοχής:
| 12345 | Με φύλλα εργασίας ("Φύλλο1"). Εύρος ("B2: C6"). Περιγράμματα (xlInsideHorizontal).LineStyle = xlDashDotDot.Βάρος = xlΜέσο.ColorIndex = 3Τέλος με |
LineStyle
Η ιδιότητα LineStyle μπορεί να αλλάξει σε xlContinuous, xlDot, xlDash, xlDashDot, xlDashDotDot, xlDouble, xlSlantDashDot και xlLineStyleNone.
Η ιδιότητα Βάρος μπορεί να είναι είτε xlHariline, xlThin, xlMedium και xlThick. Θα έχετε αυτό το αποτέλεσμα με τον παρακάτω κωδικό:
| 12345678 | Φύλλα εργασίας ("Φύλλο1"). Εύρος ("C3"). Περιγράμματα (xlEdgeTop). Βάρος = xlHairlineΦύλλα εργασίας ("Φύλλο1"). Εύρος ("C3"). Περιγράμματα (xlEdgeBottom). Βάρος = xlHairlineΦύλλα εργασίας ("Φύλλο1"). Εύρος ("D3"). Περιγράμματα (xlEdgeTop). Βάρος = xlThinΦύλλα εργασίας ("Φύλλο1"). Εύρος ("D3"). Περιγράμματα (xlEdgeBottom). Βάρος = xlThinΦύλλα εργασίας ("Φύλλο1"). Εύρος ("Ε3"). Περιγράμματα (xlEdgeTop). Βάρος = xlMediumΦύλλα εργασίας ("Φύλλο1"). Εύρος ("Ε3"). Περιγράμματα (xlEdgeBottom). Βάρος = xlΜέσοΦύλλα εργασίας ("Φύλλο1"). Εύρος ("F3"). Περιγράμματα (xlEdgeTop). Βάρος = xlThickΦύλλα εργασίας ("Φύλλο1"). Εύρος ("F3"). Περιγράμματα (xlEdgeBottom). Βάρος = xlΠαχύ |
Τα χρώματα περιγράμματος μπορούν να οριστούν ως ColorIndex ή Color (RGB, σειριακός αριθμός ή vbColor). Δείτε περισσότερες πληροφορίες σχετικά με τις ρυθμίσεις χρώματος εδώ.
Μπορείτε επίσης να προσθέσετε περιγράμματα σε ένα εύρος με μια εντολή μιας γραμμής:
| 1 | Εύρος ("B5: C7"). BorderAround LineStyle: = xlΣυνέχεια, Βάρος: = xlΠυκνό, Χρώμα: = vbRed |
