הקמת רשימת פריטים בשורה עם רווח בין פריט לפריט

[vl4]

הקמת רשימת פריטים בשורה עם רווח בין פריט לפריט

שלום,

יש לי רשימה כזו-
A
B
C
ואני מעוניין שהרשימה תיראה כך
A,B,C

הרשימות שאיתן אני עובד מכילות מעל 1000 פריטים

אשמח אם תוכלו לסייע במציאת פתרון

תודה רבה

 

[iyyi]

תלוי בגרסת האקסל. ב-2019 אתה יכול לעשות זאת לפי צילום המסך

בגרסאות קודמות יש צורך לכתוב פונקציית משתמש בעזרת קוד VBA.
אם תעלה קובץ דוגמה יהיה אפשר להציע משהו.
שאלת הבנה. אתה רוצה לשרשר 1000 פריטים לשורה אחת?

 

[vl4]

האם ישנה דרך אחרת ?

משתמש באקסל 2010

לפעמים יש אפילו יותר פריטים.

 

[iyyi]

אפשר גם בעזרת UDF

UDF היא ראשי התיבות באנגלית של פונקציה המוגדרת ע"י המשתמש.
חוץ מהפונקציות הרגילות של אקסל, המשתמשים יכולים להוסיף פונקציות אותן כותבים בקוד VBA.
הקובץ המצורף כולל UDF בשם Range2Cell הפונקציה מקבלת שני פרמטרים:

• הפרמטר הראשון הוא תחום התאים שצריך לחבר את הטקסטים שלהם.
• הפרמטר השני הוא התו המפריד בין הטקסטים. אם נכתוב שם "" אז הטקסטים יודבקו ללא הפרדה.

להלן קוד הפונקציה:

Function Range2Cell(rng As Range, sep As String) As String
For Each c In rng
    t = t & c.Value & sep
Next
Range2Cell = Left(t, Len(t) - 1)
End Function

כדי לשתול את הפונקציה בקובץ שלך את מבצע את הפעולות הבאות:

1. בקובץ שלך הקש את צירוף המקשים Alt+F11 צירוף זה פותח את עורך המקרו של קוד ה-VBA.
2. בחר בתפריט המסך ב: Insert>Module
3. הדבק את הקוד למעלה באזור העריכה של הקוד.
4. סגור את חלון העורך
5. שמור את הקובץ כסוג xlsm שהוא הסוג של קבצים הכוללים מקרו.

בגיליון עצמו אתה כותב את הפונקציה כמודגם בצילום המסך של הגיליון.

שים לב שכדי לאפשר הרצה של קוד מקרו אתה צריך לשנות את אפשרויות האבטחה כך שתתאפשר הרצה של קוד.

מצורף קובץ הדגמה

 

[iyyi]

אתה יכול להכניס בתחום התאים יותר מעמודה אחת. למשל כך