תוכנה לסימון חזרות
-
@פלורידה אתה צודק. הקידוד של Unicode הוא UTF-32 בעוד שהקידוד של Windows 10 הוא UTF-16. הפונקציה ChrW לא תעבוד בחלק מהערכים.
לחלק מהערכים תצטרך להשתמש בפונקצית VBA המשופרת הבאה:
מקור: StackOverflowPublic Function ChrU(UCode As String) As String Dim CharCode As Long CharCode = Val("&H00" & Right(UCode, Len(UCode) - 2)) If CharCode < 0 Then CharCode = CharCode + 65536 End If Dim lngChar As Long If CharCode >= 0 Then If CharCode < &HD800& Then ChrU = ChrW$(CharCode) Exit Function ElseIf CharCode < &HDC00& Then ' UTF-16 surrogates are invalid in UTF-32 ElseIf CharCode < &HFFFF& Then ChrU = ChrW$(CharCode) Exit Function ElseIf CharCode < &H10FFFF Then lngChar = CharCode - &H10000 ChrU = ChrW$(&HD800& Or (lngChar \ 1024)) & ChrW$(&HDC00& Or (lngChar And &H3FF&)) Exit Function End If End If Err.Raise 5 End Functionתפתח את עורך ה-VBA באקסל, צור מודל חדש ותדביק שם את הקוד.
כעת תוכל להציג תווי יוניקוד כך:
-
אני מתכונן להוציא את התוכנה להפצה בעז"ה ביום-יומיים הקרובים. תודות לכם על עזרתכם הרבה!! בפורום ובפרטי!
אשמח אם יעבור עליה מישהו שיש לו הבנה בתחום.
(אני מעלה את הקובץ. יש בו כעת שתי גליונות האחד הוא הגליון שממנו אני עורך את שאר הגליונות, והשני הוא גליון שיישמתי בו את מסכת ברכות)
אם יש למישהו רעיון לשיפור כדאי ליצור אותו בגליון הבסיסי שממנו ניצור את שאר הגליונות
חסר עדיין השלמה גרף שיבטא את קצב ההתקדמות של החזרות לפי תאריך.
תודה רבה לכל מי שיכול לעזור בעניין.
https://send.magicode.me/send-file/file/590fe8b57c55cd935429c15a02b688b56f97e00b/view
סיסמא 123 -
אני מתכונן להוציא את התוכנה להפצה בעז"ה ביום-יומיים הקרובים. תודות לכם על עזרתכם הרבה!! בפורום ובפרטי!
אשמח אם יעבור עליה מישהו שיש לו הבנה בתחום.
(אני מעלה את הקובץ. יש בו כעת שתי גליונות האחד הוא הגליון שממנו אני עורך את שאר הגליונות, והשני הוא גליון שיישמתי בו את מסכת ברכות)
אם יש למישהו רעיון לשיפור כדאי ליצור אותו בגליון הבסיסי שממנו ניצור את שאר הגליונות
חסר עדיין השלמה גרף שיבטא את קצב ההתקדמות של החזרות לפי תאריך.
תודה רבה לכל מי שיכול לעזור בעניין.
https://send.magicode.me/send-file/file/590fe8b57c55cd935429c15a02b688b56f97e00b/view
סיסמא 123 -
גירסא חדשה.
הדרן עלך.zip
סיסמא 12אשמח לחוות דעת איזו גירסא יותר טובה/פחות טובה.
-
אז בחסדי שמים לאחר מאמצים מרובים, הנה לפניכם המהדורה הראשונה של תכנת "הדרן עלך".
כמובן לא לשכוח לאשר פקודות מאקרו באקסל. אם תתקינו למיקום ברירת המחדל לא אמורה להיות בעיה
תודה רבה לכל העוזרים ובפרט ל @amik שהציע לי שלא להתייאש ועזר לי רבות רבות בפרטי, ול @OdedDvir הנפלא, עם הסבלנות.... חפשו אותו כאן בנושאים הרבים שפתחתי.
גם תודה לגרפיקאי המוכשר שיצר לי את הלוגו...
-
אז בחסדי שמים לאחר מאמצים מרובים, הנה לפניכם המהדורה הראשונה של תכנת "הדרן עלך".
כמובן לא לשכוח לאשר פקודות מאקרו באקסל. אם תתקינו למיקום ברירת המחדל לא אמורה להיות בעיה
תודה רבה לכל העוזרים ובפרט ל @amik שהציע לי שלא להתייאש ועזר לי רבות רבות בפרטי, ול @OdedDvir הנפלא, עם הסבלנות.... חפשו אותו כאן בנושאים הרבים שפתחתי.
גם תודה לגרפיקאי המוכשר שיצר לי את הלוגו...
-
אז בחסדי שמים לאחר מאמצים מרובים, הנה לפניכם המהדורה הראשונה של תכנת "הדרן עלך".
כמובן לא לשכוח לאשר פקודות מאקרו באקסל. אם תתקינו למיקום ברירת המחדל לא אמורה להיות בעיה
תודה רבה לכל העוזרים ובפרט ל @amik שהציע לי שלא להתייאש ועזר לי רבות רבות בפרטי, ול @OdedDvir הנפלא, עם הסבלנות.... חפשו אותו כאן בנושאים הרבים שפתחתי.
גם תודה לגרפיקאי המוכשר שיצר לי את הלוגו...
-
קודם כל תודה על הפירגון !
התוצאה מדהימה !!! - ביופי-ה, ובנוחותה ,ובהצגת תמונת המצב, ובדירבון השטייגען.
ישר כח גדול
ושתזכה הלאה לעודד ולהרבות את לימוד תורתינו הקדושה. -
@chagold גם אצלי.
https://stackoverflow.com/a/56998631
נראה שזה קורה רק אם אקסל נפתח על מסך מלא@yossiz אמר בתוכנה לסימון חזרות:
@chagold גם אצלי.
https://stackoverflow.com/a/56998631
נראה שזה קורה רק אם אקסל נפתח על מסך מלאאני מנסה לפתור את זה. (לא ממש ברור לי איך.)
הבעיה היא בקוד הזה
Private Sub Workbook_Open() Application.Width = 800 Application.Height = 450 End Subאני יכול לומר שאם כאשר סגרת את התוכנה היא היתה על הגודל שתוכנן, בפעם הבאה הוא יפתח תקין, אך אם הגדלנו את התוכנה למסך מלא, סגרנו אותה, ופתחנו שוב, תופיע התקלה פעם נוספת.
-
@chagold גם אצלי.
https://stackoverflow.com/a/56998631
נראה שזה קורה רק אם אקסל נפתח על מסך מלאזה הפיתרון
' מסך מלא-אירוע Private Sub Workbook_Open() With Application .ScreenUpdating = False .Calculation = xlCalculationManual .WindowState = xlNormal .Width = 800 .Height = 450 End With End Subהוקבץ עודכן. אשמח ממי שיש לו נטפרי שיבדוק אם צריך שוב לשלוח לבדיקה
-
הנה טבלת אקסל מוכנה על כל הש"ס, אולי יעזור לך...
00e6dc1d-ab2b-4482-a8c5-6f9c6fdfa75c-Excel כל הש''ס בדף אחד דו-צדדי - טבלת.xlsxוהנה גם ב- PDF
3d2b05d7-9615-4cb7-b25c-98aed3c63a74-PDF כל הש''ס בדף אחד דו-צדדי - קובץ.pdfאם רוצה יש גם על מקצועות התורה, אך בוורד
8566b96e-5064-482c-8424-ed77b47e279f-טבלאת סימונים עמה''ת - כתב רגיל.docx -
הנה טבלת אקסל מוכנה על כל הש"ס, אולי יעזור לך...
00e6dc1d-ab2b-4482-a8c5-6f9c6fdfa75c-Excel כל הש''ס בדף אחד דו-צדדי - טבלת.xlsxוהנה גם ב- PDF
3d2b05d7-9615-4cb7-b25c-98aed3c63a74-PDF כל הש''ס בדף אחד דו-צדדי - קובץ.pdfאם רוצה יש גם על מקצועות התורה, אך בוורד
8566b96e-5064-482c-8424-ed77b47e279f-טבלאת סימונים עמה''ת - כתב רגיל.docx -
עדכון: גירסא 0.0.2 זמינה להורדה.
ישנם כמה שיפורים.
תודה רבה ל @מגדלים היקר מפורום מתמחים, שארז את התכנה להתקנה. תשואות ח"ח לו.
@פלורידה מדהים
2 הערות- כדאי שהתוכנה תשים קיצור דרך בהתחל (בכל התוכניות) ולא רק על שולחן עבודה
- לא הכל נכנס במסך והתזוזה ימינה ושמאלה קצת מסובכת כי זה נותן עד עמודה XEI (לא יודע אם יש לזה פיתרון)
ואגב מה זה שורת סיכום ?
תמשיך ככה -
@פלורידה מדהים
2 הערות- כדאי שהתוכנה תשים קיצור דרך בהתחל (בכל התוכניות) ולא רק על שולחן עבודה
- לא הכל נכנס במסך והתזוזה ימינה ושמאלה קצת מסובכת כי זה נותן עד עמודה XEI (לא יודע אם יש לזה פיתרון)
ואגב מה זה שורת סיכום ?
תמשיך ככה@יעקב-ישראל אמר בתוכנה לסימון חזרות:
@פלורידה מדהים
תודה
- כדאי שהתוכנה תשים קיצור דרך בהתחל (בכל התוכניות) ולא רק על שולחן עבודה
כיצד?
- לא הכל נכנס במסך והתזוזה ימינה ושמאלה קצת מסובכת כי זה נותן עד עמודה XEI (לא יודע אם יש לזה פיתרון)
בשביל זה יש את חלון החיפוש אתה מכניס את שם הדף המבוקש, (כמו כן ישנם כמה מקשי קישור. תראה בהוראות השימוש בגליון בפתיחה.
ואגב מה זה שורת סיכום ?
בגדול - משמש את צורכי התוכנה, ולא את צרכי המשתמש. אם כי שיש שם אינדקציה על ההתקדמות. כלומר מסכם את סכום הדפים שנלמדו.
-
פ פלורידה התייחס לנושא זה ב
-
פ פלורידה התייחס לנושא זה ב
