דילוג לתוכן
פורום לעורך התורני

הפורום לעורך התורני
  1. דף הבית
  2. ארכיון: הקבוצה הישנה
  3. 2024
  4. למבינים במאקרו
שימו לב — קטגוריית ארכיון
הנושאים בקטגוריה זו הועברו מארכיון קבוצת גוגל, והמשתמשים המוצגים בהם אינם פעילים בפורום.
לקבלת מענה או לתחילת דיון, מומלץ לפתוח נושא חדש בקטגוריה המתאימה.

למבינים במאקרו

2024
4 4 24 1
התחברו כדי לפרסם תגובה

  • ה

    למבינים באקסל

    2024
    5
    0 הצבעות
    5 פוסטים
    27 צפיות
    ג
    תאריך ההודעה המקורית: 06/02/2024 15:04 קישורים למדריכים מקצועיים שיטה מהירה למי שיש את המהדורה/התוסף המתאימה https://excel.kova.co.il/2023/3/ שיטה אוניברסלית https://excel.kova.co.il/2019/06/איך-להשוות-רשימות-באקסל-למצוא-הבדלים/ יש עוד אפשרות שמציג במדריכים אלו דומה למה שכתבתי לעיל - מדביקים את נתוני קובץ ב' בעמודות מקבילות לצד נתוני קובץ א' [יתכן שיש צורך למיין שיהיו שניהם באותו סדר] ועושים מיון כנ"ל מגדרים בעיצוב מותנה צבע שונה לערכים כפולים ואז זה ניכר הבדל כשלא מסומן בצבע המיוחד [image: image.png]
  • מ

    תיקון באג במאקרו ההזרחה

    2024
    1
    0 הצבעות
    1 פוסטים
    10 צפיות
    מ
    תאריך ההודעה המקורית: 28/05/2024 23:29 לאחר שימוש במאקרו ההזרחה החדש שפירסמתי לפני יומיים, גיליתי באג. כשעמדתי בהערות השוליים וחיפשתי את ההזרחה הבאה, הוא קפץ להזרחה הראשונה בהערות השוליים. לאחר בדיקות נראה שעכשיו זה מתוקן ומושלם. וזרח עליו השמש. הנה המאקרו המתוקן: Sub הדגשצהוב() ' Check if text is selected If Selection.Type = wdSelectionIP Then ' No text selected, search and select next highlighted text Dim rng As Range Set rng = ActiveDocument.Range ' Set the starting point to the current selection rng.Start = Selection.End ' Find the next highlighted text in the main document With rng.Find .ClearFormatting .Highlight = True .Wrap = wdFindStop .Forward = True .Execute End With If rng.Find.Found Then rng.Select Else ' If not found in main document, check in footnotes Dim ftNote As Footnote Dim ftRng As Range Dim foundInFootnote As Boolean foundInFootnote = False ' Adjust the range for searching footnotes Dim currentPosition As Long currentPosition = Selection.End For Each ftNote In ActiveDocument.Footnotes Set ftRng = ftNote.Range If ftRng.End > currentPosition Then ftRng.Start = Max(ftRng.Start, currentPosition) With ftRng.Find .ClearFormatting .Highlight = True .Wrap = wdFindStop .Forward = True .Execute End With If ftRng.Find.Found Then ftRng.Select foundInFootnote = True Exit For End If End If Next ftNote If Not foundInFootnote Then MsgBox "אין עוד טקסט מסומן עד סוף המסמך, כולל הערות שוליים." End If End If Else ' Check if the selected range is already highlighted If Selection.Range.HighlightColorIndex = wdYellow Then ' If highlighted, remove the highlighting Selection.Range.HighlightColorIndex = wdNoHighlight Selection.MoveRight Unit:=wdCharacter, Count:=1 Else ' If not highlighted, apply yellow highlighting Options.DefaultHighlightColorIndex = wdYellow Selection.Range.HighlightColorIndex = wdYellow End If End If End Sub Function Max(value1 As Long, value2 As Long) As Long If value1 > value2 Then Max = value1 Else Max = value2 End If End Function --
  • מ

    תיקון באג במאקרו ההזרחה

    2024
    1
    0 הצבעות
    1 פוסטים
    9 צפיות
    מ
    תאריך ההודעה המקורית: 30/05/2024 01:07 לאחר שפרסמתי את זה, וב"ה אצלי עובד מצויין, וכן עוד מחשב שהתקנתי בו, מישהו כתב לי שלא עובד אצלו טוב ומחזיר שגיאה. האם עוד מישהו ניסה אותו? מאת: [email protected] --
  • א

    עזרה במאקרו

    2024
    5
    0 הצבעות
    5 פוסטים
    26 צפיות
    א
    תאריך ההודעה המקורית: 01/08/2024 20:15 תנסה לעשות תיקון לתוכנות אופיס זה עוזר הרבה פעמים במקרים בדיוק כאלו. תיכנס ל'לוח הבקרה > תוכניות > תוכניות ותכונות', ושם תחפש את ישומי מייקרוסופט, בגירסת משרד החינוך זה נקרא כך- 'he-il-לארגונים 365 Microsoft יישומי', קליק ימני 'שנה', אחרי האישור שם, תפעיל 'תיקון מהיר'.
  • א

    שאלה למבינים: כונן חיצוני SSD עבור אוצר החכמה

    2024
    4
    0 הצבעות
    4 פוסטים
    20 צפיות
    ח
    תאריך ההודעה המקורית: 25/08/2024 14:59 המחירים כבר עלו *בתחילת שבוע שעבר *במאות שקלים לכל דיסק.
  • א

    שאלה במאקרו. למקצוענים

    2024
    8
    0 הצבעות
    8 פוסטים
    23 צפיות
    מ
    תאריך ההודעה המקורית: 10/11/2024 20:47 אה. מכיר. אבל כל פעם צריך לכווין את העסק מחדש. --
  • ש

    למבינים ב'קבוצות מייל'

    2024
    1
    0 הצבעות
    1 פוסטים
    9 צפיות
    ש
    תאריך ההודעה המקורית: 01/12/2024 17:39 פתחתי קבוצת מייל, הוא לא מאשר לצרף יותר מ[בערך] 50 אנשי קשר ביום. יש לי כמה אלפי כתובות מייל לצרף... יש דרך לעקוף את זה ? באישי, חדש. פליז. תודה
  • מ

    מבקש עזרה במאקרו שיגלה טעויות

    2024
    10
    0 הצבעות
    10 פוסטים
    43 צפיות
    ע
    תאריך ההודעה המקורית: 26/12/2024 21:31 בהצגת שינויים של משתמש אחד בלבד, כל שאר השינויים מוטמעים בגוף הטקסט ואינם נעלמים, הם רק לא מוצגים כשינויים ככה זכור לי עכ"פ מאת: [email protected] --

1

מחובר

1.1k

משתמשים

14.3k

נושאים

64.4k

פוסטים