- הוסף לסימניות
- #1,101
תוכל להפעיל את המאקרו להלן ולאחר השלמת השמות להפעיל את המאקרו השני שמבטל.אני יפרט: יש לי 200 תלמידים ואני אמור לסדר טבלה של חברותות, לכן חשבתי במקום לכתוב בכל פעם משה לומד עם יעקב וכן הלאה פשוט חשבתי שכל אחד יקרא במספר ואז 5 לומד עם 36. 20 לומד עם 12 וכו וכו'. שימיר לי את השם למספר, וכל פעם שאני כותב את המספר הוא יביא לי אוטמטי את השם.
המאקרו הראשון מעדכן באפשרויות>מתקדם>הגהה>תיקון שגיאות אוטומטי
מה להחליף במה בעת ההקלדה.
והמאקרו השני מסיר את ההחלפה הזאת.
איך לעבוד עם זה?
צריך עמודה שבה השמות( למשל עמודה A) ובעמודה שצמודה אליה משמאל (עמודה B) הקוד המספרי (או כל קוד אחר) שתרצה שיוחלף.
לסמן את כל השמות שבעמודה A (לא את כל העמודה רק עד השורה של השם האחרון) ולהפעיל את המאקרו הראשון.
לאחר ההפעלה כל קוד מספרי שתקליד יוחלף בשם שלו.
כשתסיים ותרצה לבטל את ההחלפה האוטומטית, שוב לסמן את כל השמות ולהפעיל את המאקרו השני.
מאקרו ראשון:
קוד:
Sub AutoCorrectNames()
Dim n As Range
For Each cl In Selection
Set n = cl.Offset(0, 1)
Application.AutoCorrect.AddReplacement What:=n.Value, Replacement:=cl.Value
Next
End Sub
מאקרו שני לביטול ההגדרות:
קוד:
Sub DelAutoCorrectNames()
Dim n As Range
For Each cl In Selection
Set n = cl.Offset(0, 1)
Application.AutoCorrect.DeleteReplacement What:=n
Next
End Sub
הנושאים החמים