אתה יכול בקלות להחליף את כל אומלאוטים באמצעות מאקרו
בדרך כלל זו לא בעיה גדולה כמו לפני כמה שנים, אך עדיין ניתן להעלות בעיות עם החלפת נתונים. האיור הבא מציג טבלה עם טקסטים המכילים אומלאוטים:
אם אתה צריך להחליף מידע עם מערכות אחרות או לשלוח נתונים למדינות אחרות, לכן זה יכול להיות שימושי להחליף את כל המסמכים בטבלה. אתה מחליף את ä עם ae, ö עם oe וכו '.
כמובן שאתה יכול לעשות זאת על ידי קריאה חוזרת לפונקציה EDIT - REPLACE. אבל זו הרבה עבודה. אם ברצונך להחליף את כל שלושת העגלות ä, ö ו- ü באותיות גדולות וקטנות כמו גם ב- ß, עליך לבצע שבע פעולות החלפה ברציפות.
זה יותר קל עם מאקרו. להלן קוד התוכנית המתאים:
Sub ReplaceUmlauts ()
עמום תא כטווח
עם Application.WorksheetFunction
לכל תא שנבחר
Cell.Value = .Substitute (.Substitute (.Substitute (.Substitute (_
.Substitute (.Substitute (.Substitute (Cell.Value, "ä", "ae"), _
"ö", "oe"), "ü", "ue"), "Ö", "Oe"), "Ü", "Ue"), "ß", "ss"), _
"Ä", "איי")
התא הבא
סיים עם
סיום תת
המאקרו מקנן את שיחות החלפה המתאימות באמצעות הפונקציה מחליפים אחד לתוך השני. זהו שם הפונקציה האנגלית של פונקציית הטבלה REPLACE.
כדי להשתמש במאקרו, בחר תחילה את התאים שבהם ברצונך להחליף את ה- omlauts ולאחר מכן התקשר למאקרו. האיור הבא מראה כיצד נראית הטבלה עם אומלאוטים לאחר הפעלת המאקרו:
