Παρακάτω θα δούμε ένα πρόγραμμα στο Excel VBA ότι μετατρέπει το κείμενο σε κατάλληλη περίπτωση. Δηλαδή, το πρώτο γράμμα σε κάθε λέξη με κεφαλαίο και όλα τα άλλα γράμματα με πεζά.
Κατάσταση:
1. Αρχικά, δηλώνουμε δύο αντικείμενα Range. Τα αντικείμενα Range τα λέμε rng και cell.
Dim rng Ως εύρος, κελί ως εύρος
2. Αρχικοποιούμε το αντικείμενο Rng rng με το επιλεγμένο εύρος.
Ρύθμιση rng = Επιλογή
3. Θέλουμε να ελέγξουμε κάθε κελί σε μια τυχαία επιλεγμένη περιοχή (αυτό το εύρος μπορεί να είναι οποιουδήποτε μεγέθους). Στο Excel VBA, μπορείτε να χρησιμοποιήσετε τον βρόχο Για κάθε επόμενο για αυτό. Προσθέστε τις ακόλουθες γραμμές κώδικα:
Για κάθε κελί σε rng
Επόμενο κελί
Σημείωση: Το rng και το κελί επιλέγονται τυχαία εδώ, μπορείτε να χρησιμοποιήσετε οποιαδήποτε ονόματα. Θυμηθείτε να ανατρέξετε σε αυτά τα ονόματα στον υπόλοιπο κώδικα.
4. Για να αγνοήσετε ένα κελί που περιέχει έναν τύπο, προσθέστε την ακόλουθη γραμμή κώδικα μεταξύ Για Κάθε και Επόμενο (μόνο εάν το κελί.HasFormula είναι ψευδές συνεχίζουμε).
If Not cell.HasFormula Τότε
Τέλος εαν
5. Στη συνέχεια, θέλουμε να μετατρέψουμε κάθε λέξη σε αυτό το εύρος σε "κατάλληλη περίπτωση". Μπορείτε να χρησιμοποιήσετε τη συνάρτηση φύλλου εργασίας Σωστή για αυτήν την εργασία. Προσθέστε την ακόλουθη γραμμή κώδικα στη δήλωση if.
cell.Value = WorksheetFunction.Proper (cell.Value)
6. Δοκιμάστε το πρόγραμμα.
Αποτέλεσμα:
