להלן נבחן תוכנית ב Excel VBA זֶה ממיר טקסט לאותיות נכונות. כלומר, האות הראשונה בכל מילה באותיות גדולות וכל שאר האותיות באותיות קטנות.
מַצָב:
1. ראשית, אנו מכריזים על שני אובייקטים של טווח. אנו קוראים לאובייקטים של טווח rng ותא.
Dim rng As Range, cell As Range
2. אנו מאתחלים את אובייקט הטווח rng עם הטווח הנבחר.
הגדר rng = בחירה
3. אנו רוצים לבדוק כל תא בטווח שנבחר באופן אקראי (טווח זה יכול להיות בכל גודל). ב- Excel VBA, תוכל להשתמש בלולאה 'לכל כל הבא' לשם כך. הוסף את שורות הקוד הבאות:
עבור כל תא ב rng
התא הבא
הערה: rng ותא נבחרים כאן באופן אקראי, אתה יכול להשתמש בכל שמות. זכור להתייחס לשמות אלה בשאר הקוד שלך.
4. כדי להתעלם מתא המכיל נוסחה, הוסף את שורת הקוד הבאה בין For Each and Next (רק אם cell.HasFormula שקר אנו ממשיכים).
אם לא תא. יש פורמולה אז
סוף אם
5. לאחר מכן, נרצה להמיר כל מילה בטווח זה ל'מקרה נכון '. באפשרותך להשתמש בפונקציית גליון העבודה המתאימה למשימה זו. הוסף את שורת הקוד הבאה בהצהרת if שלך.
cell.Value = גליון עבודהFunction.Proper (cell.Value)
6. בדוק את התוכנית.
תוֹצָאָה:
