תוכנה לסימון חזרות

OdedDvir

גם כאן מחליפים שני תוים בהתחלה, דהיינו U+1F50D יהפוך ל H1F50D&.
עריכה: כאן לפעמים הפונקציה ChrW לא תעבוד. הסבר לקמן.

פלורידה

@odeddvir
יש הבדל במילה הראשונה? או שעושים את זה כמו הקודים האחרים

ChrW(&H1F50D)
אני שואל את זה אחרי שבדקתי את כל הצורות שחשבתי כי הן אפשריות. והחלפתי את הקודים במקומות שהקודים המקבילים ( ChrW(&H2713) ) פעלו

OdedDvir

@פלורידה אתה צודק. הקידוד של Unicode הוא UTF-32 בעוד שהקידוד של Windows 10 הוא UTF-16. הפונקציה ChrW לא תעבוד בחלק מהערכים.
לחלק מהערכים תצטרך להשתמש בפונקצית VBA המשופרת הבאה:
מקור: StackOverflow

Public 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 באקסל, צור מודל חדש ותדביק שם את הקוד.
כעת תוכל להציג תווי יוניקוד כך:
b9787115-012d-4d68-b47b-39dba669eb02-תמונה.png

רפאל

@odeddvir הניסוח אינו מדויק.
UTF32, UTF16 ,UTF8 כולם Unicode, העניין הוא שChar מכיל רק 16 ביטים, רוב האפליקציות בחרו להתעלם מהעובדה הזו בעיקר משום שרוב התווים שבשימוש תדיר משתתפים בBasic Multilingual Plane (או בקיצור BMP) שדורש 16 ביטים בלבד.
BMP מכסה את כל השפות המודרניות ומכיל יותר מ30,000 אלף תווים בסינית.

פלורידה

@odeddvir תודה רבה לך, מעריך את זה מאוד!!

פלורידה

אני מתכונן להוציא את התוכנה להפצה בעז"ה ביום-יומיים הקרובים. תודות לכם על עזרתכם הרבה!! בפורום ובפרטי!

אשמח אם יעבור עליה מישהו שיש לו הבנה בתחום.

(אני מעלה את הקובץ. יש בו כעת שתי גליונות האחד הוא הגליון שממנו אני עורך את שאר הגליונות, והשני הוא גליון שיישמתי בו את מסכת ברכות)

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

חסר עדיין השלמה גרף שיבטא את קצב ההתקדמות של החזרות לפי תאריך.

תודה רבה לכל מי שיכול לעזור בעניין.
https://send.magicode.me/send-file/file/590fe8b57c55cd935429c15a02b688b56f97e00b/view
סיסמא 123

chagold

@פלורידה פעם ראשונה שפתחתי את זה עכשיו - יפה מאד!!

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

פלורידה

גירסא חדשה.
הדרן עלך.zip
סיסמא 12

אשמח לחוות דעת איזו גירסא יותר טובה/פחות טובה.

chagold

@פלורידה החיפוש מוגן. א"א לחפש.

פלורידה

@chagold הדרן עלך.zip
תוקן

פלורידה

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

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

תודה רבה לכל העוזרים ובפרט ל @amik שהציע לי שלא להתייאש ועזר לי רבות רבות בפרטי, ול @OdedDvir הנפלא, עם הסבלנות.... חפשו אותו כאן בנושאים הרבים שפתחתי.

גם תודה לגרפיקאי המוכשר שיצר לי את הלוגו...

פלורידה

הקישור עודכן לגירסא מתוקנת יותר.

אשמח אם מי שמוצא באגים ויוודע לתקן. שיעלה את זה כאן. תודה רבה.

רפאל

@פלורידה מרשים מאוד!

amik

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

chagold

הורדתי, אפשרתי עריכה ומאקרו.

yossiz

@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

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

פלורידה

@yossiz

זה הפיתרון

' מסך מלא-אירוע

Private Sub Workbook_Open()
  With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        .WindowState = xlNormal
        .Width = 800
        .Height = 450
      End With
 End Sub

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