'A' כמו באלפא, 'B' כמו בראבו, 'C' כמו בצ'רלי. שמעת את המשפטים האלה בעבר?
אלה נקראים קוד האלפבית הצבאי (הידוע גם בשם קוד האלפבית של נאט"ו). הוא משמש לעתים קרובות אנשים (במיוחד אנשי המוקד) כדי להעביר את השם, כתובת הדוא"ל או כתובת הבית/המשרד.
צור קוד אלפבית צבאי ב- Excel
בעבודתי הראשונה קיבלתי פרויקט שבו הייתי צריך לבצע שיחות קרות כדי לקבל מידע על מכשירים רפואיים. מכיוון שהתחברנו לאנשים מכל רחבי העולם עם כל מיני מבטאים, היה - לפעמים - קשה לשתף את שמנו ואת הדוא"ל שלנו או לקבל את שמם. אז התחלתי להסתמך על קודי אלפבית צבאיים כדי לתקשר בצורה ברורה. ראיתי הרבה אנשים ממוקדי טלפונים שעושים זאת ביעילות.
עם זאת, יצרתי תבנית Excel שבה תוכל להזין מחרוזת טקסט, והיא תיצור אוטומטית את קוד האלפבית הצבאי עבור הטקסט שהוזן.
משהו כפי שמוצג להלן:
ברגע שאתה מזין את הטקסט ולחץ על Enter, הוא יפיק אוטומטית את קוד האלף בית הצבאי עבור כל אלפבית במחרוזת הטקסט.
שים לב שבמקרה זה, מספרים ותווים מיוחדים יוצגו כפי שהם. כמו כן, זה יעבוד עם כל מקרה - תחתון או עליון.
מכיוון שחוברת עבודה זו מכילה מאקרו, ברגע שתפתח אותה, ייתכן שתראה פס צהוב עם הלחצן - אפשר תוכן. עליך ללחוץ על כפתור זה כדי שזה יעבוד.
כיצד ליצור תבנית מחולל קוד אלפבית צבאי זה
תבנית זו פועלת אך ורק על קסמי VBA. יש כמה לולאות בתוך הליך אירוע שינוי גליון העבודה שפשוט בודק כל אלפבית ומביא את מילת הקוד לאלפבית זה.
להלן קוד ה- VBA שעושה את העבודה:
גליון תת -עבודה פרטי_שינוי (ByVal Target As Range) 'שנוצר על ידי Sumit Bansal של trumpexcel.com Dim alphabetcount כמספר שלם Dim Alphabet As String Dim result As String Dim i As Integer Dim TargetColumn As Integer Dim TargetRow as Integer On error Resume Next TargetColumn = Target. Column TargetRow = Target.Row אם TargetColumn = 4 ותאים (TargetRow, TargetColumn) = "" ואז תאים (TargetRow, TargetColumn + 1) = "" צא מקצה המשנה אם TargetColumn = 4 ואז alphabetcount = Len (תאים (TargetRow, TargetColumn) )) עבור i = 1 לאלפבית מספר + אלפבית = אמצע (טווח (Target.Address), i, 1) אם טווח ("A2: A27"). מצא (אלפבית) אין כלום ואז תוצאה = תוצאה & "," & אלפבית תוצאה אחרת = תוצאה & "," וטווח ("A2: A27"). מצא (אלפבית) .Offset (0, 1) סוף אם הבא i תאים (TargetRow, TargetColumn + 1) = אמצע (תוצאה, 3, Len (תוצאה) - 4) סוף אם סיום תת
אם ברצונך לשנות כמה מילות קוד אלה כך שיתאימו לקהל/אזור שלך, תוכל פשוט לשנות זאת בעמודה B בקובץ ההורדה. הקוד יבחר אוטומטית את הקודים שהשתנו.
שים לב שמכיוון שחוברת עבודה זו מכילה מאקרו, עליך לשמור את הקובץ בפורמט .xls או .xlsm.
אני מקווה שזה יעזור לך בפעם הבאה שתנסה לתקשר שמות, מזהי דוא"ל או כתובת עם אנשים במהלך שיחה טלפונית.
הודע לי מה אתה חושב על תבנית Excel זו על ידי השארת הערה למטה.
תבניות אקסל אחרות שאתה עשוי לאהוב:
- תבנית מטריקס עדיפות משימות.
- תבנית מחולל הדוא"ל.
- תבנית מעקב אחר עזיבת עובדים.
- תבנית מחשבון לוחות הזמנים של העובד.
- לוח שנה משולב עם תבנית רשימת מטלות.
