הסקריפט שלי הוא עם טריגר מובנה 'onedit' האם יש אפשרות להחליף אותו שהטריגר המובנה יהיה עם פתיחת הגיליון? תודה.

@חנון-המרבה אתה כמעט שם, פשוט תשתמש באובייקט ThisWorkbook במקום באובייקט ActiveWorkbook, כך: Sub סגירה() If Workbooks.Count = 1 Then Application.Quit Else ThisWorkbook.Close End If End Sub ההבדל ביניהם הוא ש ThisWorkbook מחזיר את החוברת שמתוכה רץ הקוד, ואילו ActiveWorkbook מחזיר את החוברת הפעילה.

@יהודי-טוב רק האחרון הכלי הנ"ל שהוירוס משתמש בו. השאר, תשאיר.

@זלמן https://t.me/autoMsgForward_bot

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

@פלורידה אמר בwindows 10 | פתיחת משתמש חדש והעברת כל הנתונים.: פתקים נדבקים וכדומה (אני לא מצליח להעלות בדעתי מה עוד יכול להיות כגון זה), יעבור או יעלם? אפשרויות ההעתקה המפורטת כאן לכאורה יספיקו לך. יש תוכנות צד שלישי שאמורות להיות משוכללות יותר אבל לכאורה הנ''ל מספיק. נסה ותעדכן ואל תמחק את המשתמש הישן עד שבטוח לך שהכל בסדר.

@בערל אמר בסידור מספרי טלפון באקסל: נ.ב. האם יש דרך לאמת את הנתונים ולוודא שאין טעויות אם ישנה תא שלא מתחיל במספר 0 כנראה שיש טעות. (לדוג' בקובץ שהעלת בפוסט הראשון כאן, שלושת השורות הבעיתיות אינן מתחילות במספר 0)

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

@odeddvir אמר בבעיה בהצגת נוסחה מאקסל ברשימת דיוור ב Publisher: @ראש-פינה נראה לי שהטעות היא בעיצוב התאריך, במקום להציג את היום בחודש ראשון dd/mm/yyyy הוא מציג את החודש ראשון כך: mm/dd/yyyy. לכאורה אתה פשוט צריך לשנות את עיצוב התאריך בפובלישר. גאון.. זה היתה הבעיה באמת אבל מוזר שפובלישר משנה את העיצוב, כי בפובלישר זה תיבת טקסט פשוטה ששואבת נתון מאקסל. בשביל לפתור את הבעיה נכנסתי להגדרות עיצוב התאריך בפובלישר ושינתי לצורה הרצויה.

@פלורידה אמר ברשמים מ windows11: @odeddvir אמר ברשמים מ windows11: למייקרוסופט יש מסורת של שנים רבות ולפיה הם מתנדנדים בין מערכת הפעלה טובה או מצויינת לבין כזו שהיא אכזבה, לדוגמא: Windows 95 היה נהדר, Windows 98 היה שיפור לא משמעותי במיוחד, Windows 98 SE היה שיפור גדול מאוד, Windows Millenium היה נוראי, Windows XP היה טוב, Windows Vista היה קטסטרופה, Windows 7 היה מצויין, Windows 8.x היה אכזבה גדולה, Windows 10 היה ועדיין - מצויין, השמטתי כאן את מערכות NT או SERVER, וגם את Windows 2000 שהיה אחד המצויינים ביותר בעיני (באורח לא מפליא הוא התבסס על NT). לכן אני לא ממהר לקפוץ ל-Windows 11. מחכה ל Windows 12... אני ממש לא משוכנע שבמבט לאחור וינדוס 11 יחשב לגירסא בפני עצמה... יותר דומה לעדכון גירסא... משהו כמו 8.1 לעניות דעתי אתה ממש לא צודק. השינויים בווינדוס 11 הם ממש משמעותיים. אלא אם כן גם את ווינדוס 10 אתה מחשיב כ-8.2 או 7.1... עוד דבר שיש להביא בחשבון, זה שההפרש בין ההוצאה של 10 ל-11 הוא של די הרבה שנים בהשוואה להוצאות קודמות!

@פלורידה הצד כאן (ימין או שמאל) לא רלוונטי, כי אם תשנה את תצוגת הגיליון עדיין תהיה בבעיה... בברירת המחדל אקסל מוסיף עמודה לפני העמודה הנבחרת. ואתה, מעוניין להוסיף אחרי. תוכל לעשות זאת ע''י מאקרו כמופיע בתשובה כאן: https://www.mrexcel.com/board/threads/852847/post-4147812

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

אפשר לכתוב פונקצית מעטפת (wrapper) ל-InputBox, שניתן להעביר אליה רשימת ערכים מותרים. בדוגמא הבאה ניתן להעביר רשימת ערכים מותרים המופרדים על ידי צינור pipe |. Public Function LimitedInputBox(prompt As String, title As String, valuesList As String) As String Dim userInput As String Dim done As Boolean: done = False Dim values As Variant values = Split(valuesList, "|") Do userInput = InputBox(prompt, title) If Len(userInput) > 0 Then Dim val As Variant For Each val In values If userInput = val Then done = True Exit For End If Next val End If Loop Until done LimitedInputBox = userInput End Function כעת ניתן לקרוא לפונקציה כך: selectedColor = LimitedInputBox ("Please enter a color (white, black, or blue):", "Color selection", "white|black|blue") או בדוגמא שלך (סדר הפרמטרים מוצג הפוך בגלל העברית...): selectedClass = LimitedInputBox ("בחר כיתה מ-א עד ח:", "בחירת כיתה", "א|ב|ג|ד|ה|ו|ז|ח") שים לב שתיבת הקלט תמשיך לבקש קלט מהמשתמש גם אם הוא יבחר Cancel או ילחץ על לחצן הביטול. אם רוצים לאפשר גם אי-בחירה, אפשר כמובן להוסיף בדיקה כזו.

@זלמן נסה גם אופציה נוספת: לפתוח את קובץ התוכנה באמצעות תוכנת 7-ZIP ולחלץ את כל התוכן שלה לתיקייה כלשהי (עדיף ריקה ובמיקום מסודר). לאחר מכן הפעל את הקובץ wsatoolbox.hta .

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

@פלורידה אמר בהתקנת תוכנה מפעילה את המחשב מחדש? צריך לחשוש??: ניסיתי להתקין את התוכנה הזאתFormScanner מהאתר https://sourceforge./ ובגמר ההתקנה הוא מתחיל להפעיל לי את המחשב מחדש. למזלי היו לי מסמכים של אופיס פתוחים כך שהמחשב הפסיק את ההפעלה מחדש לשאול אותי אם לשמור את הקבצים... האם צריך לחשוש מזה???? האתר שממנו הורדת הוא אמין לא רואה סיבה לחשוש

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

@יהודי-טוב אמר בתמלול - קיצור מקשים לעצירת שמע: אגב מצאתי ש @בערל העלה לפורום קבצים שמגדירים את מקשי F11/10/9 לעצירה והמשך עוד משהו שטוב במה ש @בערל העלה. זה שבמייל כשאני פותח קובץ שמע, ויוצא מההקלטה [image: 1635442239476-b225adbb-2573-42f7-b731-a0331bc33e77-image.png] אם אני לוחץ על המקש הנ"ל אני ממשיך לשמוע את ההקלטה.