להלן נבחן תוכנית ב Excel VBA זֶה מפריד מחרוזות.
מַצָב:
מקם כפתור פקודה בגליון העבודה שלך והוסף את שורות הקוד הבאות:
1. ראשית, אנו מכריזים על משתנה שנקרא שם מלא של סוג String, משתנה הנקרא קומפוזיציה מסוג מספר שלם, ומשתנה הנקרא i מסוג מספר שלם.
עמום שם מלא כמחרוזת, מיקום כמספר שלם, i כמספר שלם
הבעיה שאנו מתמודדים איתה היא שעלינו לספר ל- Excel VBA היכן אנו רוצים להפריד את המחרוזת. במקרה של סמית ', מייק הפסיק נמצא בעמדה 6 ואילו במקרה של וויליאמס, ג'נט הפסיק נמצא בעמדה 9.
2. אנו משתמשים בלולאה לביצוע הפעולות על כל שם שהוזן ב- Excel. ראשית, אנו מאתחלים את המשתנה המלא. לאחר מכן, אנו משתמשים בפונקציית Instr כדי למצוא את מיקום הפסיק.
עבור i = 2 עד 7
שם מלא = תאים (i, 1). ערך
commaposition = InStr (שם מלא, ",")
3. לבסוף, נרצה לכתוב את החלק שאחרי הפסיק לעמודה B ואת החלק שמול הפסיק לעמודה C. ניתן להשיג זאת על ידי הוספת השורות:
תאים (i, 2). ערך = אמצע (שם מלא, מצבה + 2)
תאים (i, 3). ערך = שמאל (שם מלא, מיקום - 1)
אמצע (שם מלא, קומפוזיציה + 2) פירושו שאנו רוצים את החלק של שם מלא המתחיל בתו 'קומפוזיציה + 2' (זהו בדיוק השם הפרטי).
משמאל (שם מלא, קומפוזיציה - 1) פירושו שאנו רוצים את החלק של שם מלא המתחיל בהתחלה עד לתו 'commaposition- 1' (זהו בדיוק שם המשפחה).
4. אל תשכח לסגור את הלולאה.
הבא i
5. הוסיפו שישה שמות המופרדים באמצעות פסיק ומרווח לטווח ("A2: A7").
6. בדוק את התוכנית.
תוֹצָאָה: