Αυτόματη εξαναγκαστική σωστή, κεφαλαία ή πεζά - Παραδείγματα κώδικα VBA

Χρειάζεται να αλλάξετε αυτόματα ένα κείμενο κελιών σε σωστό, κεφαλαίο ή πεζό μετά την εισαγωγή του από το χρήστη; Υπάρχουν πολλοί τρόποι για να το πετύχετε αυτό και πολλές δυνατότητες. Ακολουθεί ένα παράδειγμα που αλλάζει αυτόματα τα πάντα αφού εισαχθεί σε μια συγκεκριμένη στήλη. Ας ελπίσουμε ότι μπορείτε να δημιουργήσετε από αυτό το παράδειγμα!

1. Πατήστε ALT και F11 για να ανοίξετε το παράθυρο κωδικού

2. Κάντε διπλό κλικ στο όνομα του φύλλου που θέλετε αυτόματα

αλλαγή υπόθεσης

3. Τοποθετήστε αυτόν τον κωδικό στο παράθυρο κωδικού:

Αλλαγή κειμένου σε κατάλληλη περίπτωση

Κωδικός για Σωστή θήκη

Private Sub Worksheet_Change (ByVal Target As Excel.Range) Application.EnableEvents = False If Target.Column = 5 Στη συνέχεια Target = StrConv (Target, vbProperCase) Τέλος εάν η εφαρμογή. EnableEvents = True End Sub

Αλλαγή κειμένου σε κεφαλαία

Για Κεφαλαία περίπτωση μπορείς να αλλάξεις

StrConv (Target, vbProperCase)

προς το

Ucase (Στόχος)

Αλλαγή κειμένου σε πεζά

Για Πεζά μπορείς να αλλάξεις

StrConv (Target, vbProperCase)

προς το

Lcase (Στόχος)