רוצה לעזור לכם באקסל

[למה?]

קובץ עם שמות פרטיים ומשפחה באותו תא,
אני רוצה להפריד בין הפרטי למשפחה,
הבעיה שיש לפעמים שני פרטי ולפעמים אחד (אברהם יצחק כהן, ויעקב כהן)
אני רוצה שבתא אחד יהיה רק השם משפחה, ובתא אחר השמות הפרטיים,
איך עושים?
בתודה מראש

יש ע"ז כל מיני פתרונות ע"י נוסחאות
אבל הפתרון הקל לכתוב בעמודה הסמוכה רק את שם המשפחה- עם מילוי מהיר על כל העמודה ואח"כ לעשות אותו דבר רק על השמ/ות הפרטי (טיפ: חשוב למלא 2 שורות הראשונות ושיהיה בשורה אחת שם אחד, ובשורה השני 2 שמות ואז למלא במילוי מהיר)

 

[מרובע]

יש ע"ז כל מיני פתרונות ע"י נוסחאות
אבל הפתרון הקל לכתוב בעמודה הסמוכה רק את שם המשפחה- עם מילוי מהיר על כל העמודה ואח"כ לעשות אותו דבר רק על השמ/ות הפרטי (טיפ: חשוב למלא 2 שורות הראשונות ושיהיה בשורה אחת שם אחד, ובשורה השני 2 שמות ואז למלא במילוי מהיר)

האם יש מילוי מהיר בשיטס?

 

[מרובע]

אני מעוניין לקבל תצוגה נוחה של כל הגופנים המותקנים במחשב,
האם יש איזה פונקציה שמשנה גופן? ואז אני אדביק רשימה של כל הגופנים וזה יוצג באקסל.
אם לא, מה הייתם ממליצים לי לעשות כדי להגיע לזה?
בינתיים ניסיתי לעבור אחד אחד ולשנות גופן אבל זה עבודת נמלים על יותר מאלף גופנים.
אשמח לרעיונות.
בתודה מראש

 

[יעקב ויצמן]

האם יש מילוי מהיר בשיטס?

ראה בלינק

 

[יעקב ויצמן]

אני מעוניין לקבל תצוגה נוחה של כל הגופנים המותקנים במחשב,
האם יש איזה פונקציה שמשנה גופן? ואז אני אדביק רשימה של כל הגופנים וזה יוצג באקסל.
אם לא, מה הייתם ממליצים לי לעשות כדי להגיע לזה?
בינתיים ניסיתי לעבור אחד אחד ולשנות גופן אבל זה עבודת נמלים על יותר מאלף גופנים.
אשמח לרעיונות.
בתודה מראש

על חוברות עבודה באקסל מכאן ואילך בלבד .זה אפשרי .ראה בלינק

 

[מרובע]

ראה בלינק

לא ממש הבנתי והלינק לא פתוח לי, תוכל להעתיק את התוכן הרלוונטי לכאן?

 

[מרובע]

על חוברות עבודה באקסל מכאן ואילך בלבד .זה אפשרי .ראה בלינק

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

להלן הקוד:

Sub changeFontEntireWorkbook()
    For Each Worksheet In Worksheets
        Worksheet.Activate
        ActiveSheet.UsedRange.Select
        Selection.Font.Name = "Arial"
    Next
End Sub

 

[יעקב ויצמן]

ראה בלינק

לא ממש הבנתי והלינק לא פתוח לי, תוכל להעתיק את התוכן הרלוונטי לכאן?

מתורגם אוטומטית מאנגלית

 

[יעקב ויצמן]

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

להלן הקוד:

Sub changeFontEntireWorkbook()
    For Each Worksheet In Worksheets
        Worksheet.Activate
        ActiveSheet.UsedRange.Select
        Selection.Font.Name = "Arial"
    Next
End Sub

אכן.
עכשיו הבנתי..
לא מכיר פתרון לשאלתך

 

[אבי2021]

אני מעוניין לקבל תצוגה נוחה של כל הגופנים המותקנים במחשב,
האם יש איזה פונקציה שמשנה גופן? ואז אני אדביק רשימה של כל הגופנים וזה יוצג באקסל.
אם לא, מה הייתם ממליצים לי לעשות כדי להגיע לזה?
בינתיים ניסיתי לעבור אחד אחד ולשנות גופן אבל זה עבודת נמלים על יותר מאלף גופנים.
אשמח לרעיונות.
בתודה מראש

להלן התוכנית...
בהנחה שכל הרשימה מופיע בעמודה a.
להעתיק הקוד ברמת גיליון.
ובכל שינוי (Change) בעמודה יפעל התוכנית.
בהצלחה.

Private Sub Worksheet_Change(ByVal Target As Range)

LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Debug.Print LastRow

If Target.Column = 1 Then
For i = 1 To LastRow
Dim NameFont As String
NameFont = Cells(i, 1)
Cells(i, 1).Select
Selection.Font.Name = NameFont

Next
End If
End Sub

 

[מרובע]

להלן התוכנית...
בהנחה שכל הרשימה מופיע בעמודה a.
להעתיק הקוד ברמת גיליון.
ובכל שינוי (Change) בעמודה יפעל התוכנית.
בהצלחה.

Private Sub Worksheet_Change(ByVal Target As Range)

LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Debug.Print LastRow

If Target.Column = 1 Then
For i = 1 To LastRow
Dim NameFont As String
NameFont = Cells(i, 1)
Cells(i, 1).Select
Selection.Font.Name = NameFont

Next
End If
End Sub

תודה רבה,
אבל משהו לא מסתדר לי כאן.
אני עושה INSERT ואז MODUL ובחלון שנפתח מדביק את כל זה, ואז אני פותח את רשימת ה"פקודות מאקרו" והיא ריקה,
מה חסר כאן?

 

[מרובע]

תודה רבה,
אבל משהו לא מסתדר לי כאן.
אני עושה INSERT ואז MODUL ובחלון שנפתח מדביק את כל זה, ואז אני פותח את רשימת ה"פקודות מאקרו" והיא ריקה,
מה חסר כאן?

תוספת להנ"ל:
שמתי לב שבשביל להציג את המאקרו ברשימה צריך למחוק גם את המילה PRIVATE וגם את הטקסט שבסוגריים של שם הפונקציה.
בכל מקרה הפונקציה לא עובדת בשום מצב, וכשאני מצליח להציג אותה ברשימה (ע"י המחיקות הנ"ל) היא מציגה שגיאה.

 

[אבי2021]

תוספת להנ"ל:
שמתי לב שבשביל להציג את המאקרו ברשימה צריך למחוק גם את המילה PRIVATE וגם את הטקסט שבסוגריים של שם הפונקציה.
בכל מקרה הפונקציה לא עובדת בשום מצב, וכשאני מצליח להציג אותה ברשימה (ע"י המחיקות הנ"ל) היא מציגה שגיאה.

בvba באקסל יש שני סוגים.
1. ברמת חוברת.
2. ברמת גיליון.
כל האירועים (events) כותבים ברמת גיליון...
בכל מקרה מצרף קובץ אקסל.

בבקשה.

 

[מרובע]

טוב אני לא מבין בזה.
הקובץ ששלחת עובד לי מצויין,
אבל עכשיו אני לא יודע איך מייצאים רשימת גופנים כדי להדביק שם.
ושאלה שניה: הבעיה כאן היא שהפונקציה פועלת על התא עצמו, ואם יש גופן עברי עם שם אנגלי זה לא יפעל. (זאת אומרת האותיות הם VILNA לדוגמא, אבל אי אפשר להחיל עליהם את העיצוב של וילנא) מה עושים?

 

[אבי2021]

ושאלה שניה: הבעיה כאן היא שהפונקציה פועלת על התא עצמו, ואם יש גופן עברי עם שם אנגלי זה לא יפעל. (זאת אומרת האותיות הם VILNA לדוגמא, אבל אי אפשר להחיל עליהם את העיצוב של וילנא) מה עושים?

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

Rashi DP​

מצרף אקסל עם שינויים.
לגבי אייך לייבא פונטים אין לי מענה.

 

[יעקב ויצמן]

יש ע"ז כל מיני פתרונות ע"י נוסחאות
אבל הפתרון הקל לכתוב בעמודה הסמוכה רק את שם המשפחה- עם מילוי מהיר על כל העמודה ואח"כ לעשות אותו דבר רק על השמ/ות הפרטי (טיפ: חשוב למלא 2 שורות הראשונות ושיהיה בשורה אחת שם אחד, ובשורה השני 2 שמות ואז למלא במילוי מהיר)

בהמשך לשאלתך @מרובע
עד כמה שניסיתי ,במקרה של שני שמות פרטיים כדוגמת אברהם יצחק כהן בעמודה a.
שמפוצל בעזרת כלי/תכונת ה flash fill (זמין בגרסאות החל מ2013)
אברהם יופרד בעמודה b.
וכהן יופרד בעמודה c
השם השני-יצחק "יפול בין הכסאות" ולא יוצג.
כך או כך, אני מצרף פתרון על טהרת הפונקציות באקסל .
הפונקציות יעילות ומוגבלות פה לשני שמות פרטיים (ולא ליותר מכך!)
וכן- לשם משפחה אחת ולא יותר.(זהו המצב הנפוץ ביותר)

מצורף גיליון לביצוע העתק הדבק.
נ.ב בשמות בעברית זה יותר מורכב משמות באנגלית.זה נובע בין היתר מחילוף בשימוש בין פונקציות left ו-right.
בהצלחה!

 

[יעקב ויצמן]

לצערי לא הבנתי
נראה שכתבתם לי נוסחה מצוינת,
אבל היות שלא למדתי אקסל לא הצלחתי להבין אותה
אין איזה נוסחה שאעשה העתק הדבק?
או אולי יש דרך בכל אופן להסביר לי מהי פקודת מאקרו, איך בונים נוסחה לפי סינון...
מה הכוונה

תודה!
[אם זה מורכב מדי בשביל שאבין אז אין צורך]

סורי על האיחור
שלחתי כאן-לעיל פתרון מוכן עם גיליון בהתאם לדוגמא ששלחת.
אם מכל סיבה שתהיה, צריך עזרה נוספת בגיליון המקורי.
נא לשלוח למייל את הקובץ המקורי/לינק לקובץ דוקס ואטפל בזה
yv0528174820 שטרודל גימייל

 

[יעקב ויצמן]

יש אפשרות להמרת אקסל לpdf או לקובץ תמונה?

לגבי קובץ תמונה
ניתן להוריד כקובץ xlsx ולבצע המרה ל-png
באתר הזה למשל.בקלי קלות והכל חינמי.
בהצלחה

 

[Yanky Itskowitz]

יש לי אקסל עם נתוני האזנה למערכת
עמודה A מספר טלפון
עמודה B מספר דקות

איך אני עושה סיכום של הדקות האזנה לפי מספר טלפון?

 

[יעקב ויצמן]

יש לי אקסל עם נתוני האזנה למערכת
עמודה A מספר טלפון
עמודה B מספר דקות

איך אני עושה סיכום של הדקות האזנה לפי מספר טלפון?

בבקשה
צריך להעתיק את עמודות c וd
ולהדביק עם התאמת הטווחים.
יש להקפיד מאוד למשוך את ידית המילוי בעמודה d עד לסיום גבולות הטבלה בעמודות a ו b

מצורף גיליון אקסל לביצוע העתק הדבק
אם משהו לא ברור נא לעדכן
בהצלחה