דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תוכנה
  3. תוכנה לסימון חזרות

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

מתוזמן נעוץ נעול הועבר תוכנה
69 פוסטים 13 כותבים 3.1k צפיות 10 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • פ פלורידה

    @odeddvir אמר בתוכנה לסימון חזרות:

    ב. האם אפשר לשלוט בגודל של התיבה ובעיצוב שלה?, (אני לא מצליח להגדיל את הריבוע)

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

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

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

    "בוצע";" ";" "
    

    ובעיצוב מותנה כשהערך גבוה מ=1 התא מקבל סימון v

    כמובן שאם אני מוחק את המילים בוצע, הרי מתקבל לי פקד תוכן שנותן v עם ערך 1
    5401eaca-8983-41ed-99f5-b5eb7382e69e-image.png

    מה שאני עדיין לא מבין, איך עושים שעל ידי לחיצה כפולה הוא נותן לתא ערך = 1 (וכשאלה נגזרת, האם אפשר לעשות שייוצר על ידי לחיצה בודדת)

    פ מנותק
    פ מנותק
    פלורידה
    כתב ב נערך לאחרונה על ידי פלורידה
    #8

    @פלורידה אמר בתוכנה לסימון חזרות:

    מה שאני עדיין לא מבין, איך עושים שעל ידי לחיצה כפולה הוא נותן לתא ערך = 1 (וכשאלה נגזרת, האם אפשר לעשות שייוצר על ידי לחיצה בודדת)

    מצאתי כאן את הקוד הזה

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        On Error Resume Next
        If Not Intersect(Target, Range("A1")) Is Nothing Then
          Range("A1").Value = Range("A1").Value + 1
          Cancel = True
        End If
    End Sub
    

    בכל פעם שאלחץ על תא a1 הוא יקבל תוספת של 1 אם נניח הערך שקיים בו הוא 173, על ידי לחיצה הוא יהיה 174.

    מה שאני רוצה לעשות שכאשר אני לוחץ פעם שנייה הוא יהיה 0, כלומר פעם אחת הוא יהיה 0 פעם שניה 1 וכן הלאה.


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

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
            Application.EnableEvents = False
            If ActiveCell.Value = ChrW(&H2713) Then
                ActiveCell.ClearContents
            Else
                ActiveCell.Value = ChrW(&H2713)
            End If
            Cancel = True
        End If
        Application.EnableEvents = True
    End Sub
    

    אולי ניתן ליצור נוסחה v=1????

    OdedDvirO תגובה 1 תגובה אחרונה
    0
    • פ פלורידה

      @פלורידה אמר בתוכנה לסימון חזרות:

      מה שאני עדיין לא מבין, איך עושים שעל ידי לחיצה כפולה הוא נותן לתא ערך = 1 (וכשאלה נגזרת, האם אפשר לעשות שייוצר על ידי לחיצה בודדת)

      מצאתי כאן את הקוד הזה

      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
          On Error Resume Next
          If Not Intersect(Target, Range("A1")) Is Nothing Then
            Range("A1").Value = Range("A1").Value + 1
            Cancel = True
          End If
      End Sub
      

      בכל פעם שאלחץ על תא a1 הוא יקבל תוספת של 1 אם נניח הערך שקיים בו הוא 173, על ידי לחיצה הוא יהיה 174.

      מה שאני רוצה לעשות שכאשר אני לוחץ פעם שנייה הוא יהיה 0, כלומר פעם אחת הוא יהיה 0 פעם שניה 1 וכן הלאה.


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

      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
          If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
              Application.EnableEvents = False
              If ActiveCell.Value = ChrW(&H2713) Then
                  ActiveCell.ClearContents
              Else
                  ActiveCell.Value = ChrW(&H2713)
              End If
              Cancel = True
          End If
          Application.EnableEvents = True
      End Sub
      

      אולי ניתן ליצור נוסחה v=1????

      OdedDvirO מנותק
      OdedDvirO מנותק
      OdedDvir
      כתב ב נערך לאחרונה על ידי
      #9

      @פלורידה אמר בתוכנה לסימון חזרות:

      אך לא נותן ערך לתא.

      זה לא מדויק. למעשה הוא נותן ערך לתא, התא מכיל את התו ChrW(&H2713).

      @פלורידה אמר בתוכנה לסימון חזרות:

      אולי ניתן ליצור נוסחה v=1????

      לא. אבל אפשר לסכם לפי תנאי, אם התא ריק אז להוסיף 0, ואם יש בו ערך כלשהוא (או ליתר דיוק את התו הנ"ל) להוסיף 1.
      ואפשר גם להכניס בפועל את הערך True/False ולהשתמש בעיצוב מתנה כדי להציג V.

      פ 2 תגובות תגובה אחרונה
      1
      • OdedDvirO OdedDvir

        @פלורידה אמר בתוכנה לסימון חזרות:

        אך לא נותן ערך לתא.

        זה לא מדויק. למעשה הוא נותן ערך לתא, התא מכיל את התו ChrW(&H2713).

        @פלורידה אמר בתוכנה לסימון חזרות:

        אולי ניתן ליצור נוסחה v=1????

        לא. אבל אפשר לסכם לפי תנאי, אם התא ריק אז להוסיף 0, ואם יש בו ערך כלשהוא (או ליתר דיוק את התו הנ"ל) להוסיף 1.
        ואפשר גם להכניס בפועל את הערך True/False ולהשתמש בעיצוב מתנה כדי להציג V.

        פ מנותק
        פ מנותק
        פלורידה
        כתב ב נערך לאחרונה על ידי פלורידה
        #10

        @odeddvir אמר בתוכנה לסימון חזרות:

        לא. אבל אפשר לסכם לפי תנאי, אם התא ריק אז להוסיף 0, ואם יש בו ערך כלשהוא (או ליתר דיוק את התו הנ"ל) להוסיף 1.

        זה ממש רעיון מבריק. איך עושים את זה?

        כלומר: איך מסכמים לפי תנאי? או לחילופין מה שם הנוסחה??.



        למתעניינים צירפתי את הפיתרון שאני בחרתי לצורך המסמך שאני עורך

        הכנסתי את הקוד הזה:

        Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = Date Then
        ActiveCell.ClearContents
        Else
        ActiveCell.Value = Date
        End If
        Cancel = True
        End If
        Application.EnableEvents = True
        End Sub

        המשמעות שלו, שלחיצה תתן את התאריך
        [אני כבר יעלים אותו על ידי התאמת אישית לסוג " ";" ";" " ככה:
        0ee9320d-a11f-4b6f-b72a-9ae3ea891711-image.png

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

        תגובה 1 תגובה אחרונה
        0
        • פ מנותק
          פ מנותק
          פלורידה
          כתב ב נערך לאחרונה על ידי פלורידה
          #11

          אולי יותר פשוט לסכם על ידי ספירה??

          86eac290-39c8-484e-8015-2d715b73a25a-image.png

          אשמח אם מישהו יודע מהי הפונקציה של ספירה באקסל??

          OdedDvirO תגובה 1 תגובה אחרונה
          0
          • פ פלורידה

            אולי יותר פשוט לסכם על ידי ספירה??

            86eac290-39c8-484e-8015-2d715b73a25a-image.png

            אשמח אם מישהו יודע מהי הפונקציה של ספירה באקסל??

            OdedDvirO מנותק
            OdedDvirO מנותק
            OdedDvir
            כתב ב נערך לאחרונה על ידי
            #12

            @פלורידה תשתמש ב CountIF:

            =COUNTIF(E1:E10,ChrW(&H2713))
            
            פ תגובה 1 תגובה אחרונה
            1
            • OdedDvirO OdedDvir

              @פלורידה תשתמש ב CountIF:

              =COUNTIF(E1:E10,ChrW(&H2713))
              
              פ מנותק
              פ מנותק
              פלורידה
              כתב ב נערך לאחרונה על ידי
              #13

              @odeddvir אמר בתוכנה לסימון חזרות:

              @פלורידה תשתמש ב CountIF:

              =COUNTIF(E1:E10,ChrW(&H2713))
              

              אצלי זה לא עוזר, כי במקום ChrW(&H2713) שמתי Date מה שגורר שבתאים מוגדר 11/11/2020 כך שאני כן זקוק להגיע לפונקצייה של ספירה

              OdedDvirO תגובה 1 תגובה אחרונה
              0
              • פ פלורידה

                @odeddvir אמר בתוכנה לסימון חזרות:

                @פלורידה תשתמש ב CountIF:

                =COUNTIF(E1:E10,ChrW(&H2713))
                

                אצלי זה לא עוזר, כי במקום ChrW(&H2713) שמתי Date מה שגורר שבתאים מוגדר 11/11/2020 כך שאני כן זקוק להגיע לפונקצייה של ספירה

                OdedDvirO מנותק
                OdedDvirO מנותק
                OdedDvir
                כתב ב נערך לאחרונה על ידי OdedDvir
                #14

                @פלורידה אז תשתמש פשוט ב CountA:

                COUNTA(E1:E10)
                

                תוספת:
                אם אתה משתמש רק בתאריכים, אתה יכול להשתמש גם ב-Count הרגילה, ההבדל הוא ש-CountA תספור גם טקסט, ערכים לוגיים כמו True/False, ואפילו שגיאות ושאר מרעין בישין, בעוד ש Count תספור רק תאים עם ערך מספרי (כולל תאריכים)

                תגובה 1 תגובה אחרונה
                1
                • OdedDvirO OdedDvir

                  @פלורידה אמר בתוכנה לסימון חזרות:

                  אך לא נותן ערך לתא.

                  זה לא מדויק. למעשה הוא נותן ערך לתא, התא מכיל את התו ChrW(&H2713).

                  @פלורידה אמר בתוכנה לסימון חזרות:

                  אולי ניתן ליצור נוסחה v=1????

                  לא. אבל אפשר לסכם לפי תנאי, אם התא ריק אז להוסיף 0, ואם יש בו ערך כלשהוא (או ליתר דיוק את התו הנ"ל) להוסיף 1.
                  ואפשר גם להכניס בפועל את הערך True/False ולהשתמש בעיצוב מתנה כדי להציג V.

                  פ מנותק
                  פ מנותק
                  פלורידה
                  כתב ב נערך לאחרונה על ידי
                  #15

                  @odeddvir אמר בתוכנה לסימון חזרות:

                  התא מכיל את התו ChrW(&H2713).

                  היכן אני מוצא את מילון הסימנים?

                  OdedDvirO תגובה 1 תגובה אחרונה
                  0
                  • פ פלורידה

                    @odeddvir אמר בתוכנה לסימון חזרות:

                    התא מכיל את התו ChrW(&H2713).

                    היכן אני מוצא את מילון הסימנים?

                    OdedDvirO מנותק
                    OdedDvirO מנותק
                    OdedDvir
                    כתב ב נערך לאחרונה על ידי OdedDvir
                    #16

                    @פלורידה פתח את האפליקציה "מפת תוים":
                    67d6ee57-aec9-4d4f-85e9-86f29aac356d-תמונה.png
                    בחר את הפונט הרצוי ואת התו, ולמטה יופיע הקוד שלו:
                    9c547f76-909b-4df1-b55b-41655b8f81ba-תמונה.png

                    שים לב שהקוד מופיע בקידוד HEX, אבל שיטת הסימון בVBA וממילא גם באקסל היא מעט שונה.
                    פשוט תחליף את הקידומת 0x לקידומת H&. למשל במקום 0xFC תכתוב HFC&

                    פ 2 תגובות תגובה אחרונה
                    2
                    • OdedDvirO OdedDvir

                      @פלורידה פתח את האפליקציה "מפת תוים":
                      67d6ee57-aec9-4d4f-85e9-86f29aac356d-תמונה.png
                      בחר את הפונט הרצוי ואת התו, ולמטה יופיע הקוד שלו:
                      9c547f76-909b-4df1-b55b-41655b8f81ba-תמונה.png

                      שים לב שהקוד מופיע בקידוד HEX, אבל שיטת הסימון בVBA וממילא גם באקסל היא מעט שונה.
                      פשוט תחליף את הקידומת 0x לקידומת H&. למשל במקום 0xFC תכתוב HFC&

                      פ מנותק
                      פ מנותק
                      פלורידה
                      כתב ב נערך לאחרונה על ידי
                      #17

                      @odeddvir

                      האם יש דרך לעשות בכיוון ההפוך?

                      לי יש את תו ה"חיפוש" 🔍
                      יצרתי אותו דרך אימוג'י, והוא נמצא לי בתוך הגליון אבל אין לי מידע איך אקסל מגדיר אותו (כדי להשתמש בו בתוך VBA)
                      cb57a9ab-f5ab-4ae3-9dac-bc308885c847-image.png

                      OdedDvirO תגובה 1 תגובה אחרונה
                      0
                      • פ פלורידה

                        @odeddvir

                        האם יש דרך לעשות בכיוון ההפוך?

                        לי יש את תו ה"חיפוש" 🔍
                        יצרתי אותו דרך אימוג'י, והוא נמצא לי בתוך הגליון אבל אין לי מידע איך אקסל מגדיר אותו (כדי להשתמש בו בתוך VBA)
                        cb57a9ab-f5ab-4ae3-9dac-bc308885c847-image.png

                        OdedDvirO מנותק
                        OdedDvirO מנותק
                        OdedDvir
                        כתב ב נערך לאחרונה על ידי
                        #18

                        @פלורידה יש טבלה של כל קודי היוניקוד של אימוג'י כאן

                        פ תגובה 1 תגובה אחרונה
                        1
                        • OdedDvirO OdedDvir

                          @פלורידה יש טבלה של כל קודי היוניקוד של אימוג'י כאן

                          פ מנותק
                          פ מנותק
                          פלורידה
                          כתב ב נערך לאחרונה על ידי
                          #19

                          @odeddvir תודה רבה.
                          שלחתי לבדיקה

                          תגובה 1 תגובה אחרונה
                          0
                          • OdedDvirO OdedDvir

                            @פלורידה פתח את האפליקציה "מפת תוים":
                            67d6ee57-aec9-4d4f-85e9-86f29aac356d-תמונה.png
                            בחר את הפונט הרצוי ואת התו, ולמטה יופיע הקוד שלו:
                            9c547f76-909b-4df1-b55b-41655b8f81ba-תמונה.png

                            שים לב שהקוד מופיע בקידוד HEX, אבל שיטת הסימון בVBA וממילא גם באקסל היא מעט שונה.
                            פשוט תחליף את הקידומת 0x לקידומת H&. למשל במקום 0xFC תכתוב HFC&

                            פ מנותק
                            פ מנותק
                            פלורידה
                            כתב ב נערך לאחרונה על ידי
                            #20

                            @odeddvir אמר בתוכנה לסימון חזרות:

                            פשוט תחליף את הקידומת 0x לקידומת H&. למשל במקום 0xFC תכתוב HFC&

                            למה משנים את הקידומת של יוניקוד

                            U+1F50D

                            OdedDvirO תגובה 1 תגובה אחרונה
                            0
                            • פ פלורידה

                              @odeddvir אמר בתוכנה לסימון חזרות:

                              פשוט תחליף את הקידומת 0x לקידומת H&. למשל במקום 0xFC תכתוב HFC&

                              למה משנים את הקידומת של יוניקוד

                              U+1F50D

                              OdedDvirO מנותק
                              OdedDvirO מנותק
                              OdedDvir
                              כתב ב נערך לאחרונה על ידי OdedDvir
                              #21

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

                              פ תגובה 1 תגובה אחרונה
                              1
                              • OdedDvirO OdedDvir

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

                                פ מנותק
                                פ מנותק
                                פלורידה
                                כתב ב נערך לאחרונה על ידי פלורידה
                                #22

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

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

                                OdedDvirO תגובה 1 תגובה אחרונה
                                0
                                • פ פלורידה

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

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

                                  OdedDvirO מנותק
                                  OdedDvirO מנותק
                                  OdedDvir
                                  כתב ב נערך לאחרונה על ידי
                                  #23

                                  @פלורידה אתה צודק. הקידוד של 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

                                  רפאלר פ 2 תגובות תגובה אחרונה
                                  4
                                  • OdedDvirO 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

                                    רפאלר מנותק
                                    רפאלר מנותק
                                    רפאל
                                    כתב ב נערך לאחרונה על ידי רפאל
                                    #24

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

                                    תגובה 1 תגובה אחרונה
                                    2
                                    • OdedDvirO 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

                                      פ מנותק
                                      פ מנותק
                                      פלורידה
                                      כתב ב נערך לאחרונה על ידי
                                      #25

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

                                      תגובה 1 תגובה אחרונה
                                      1
                                      • פ מנותק
                                        פ מנותק
                                        פלורידה
                                        כתב ב נערך לאחרונה על ידי
                                        #26

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

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

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

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

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

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

                                        chagoldC תגובה 1 תגובה אחרונה
                                        5
                                        • פ פלורידה

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

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

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

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

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

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

                                          chagoldC מנותק
                                          chagoldC מנותק
                                          chagold
                                          כתב ב נערך לאחרונה על ידי
                                          #27

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

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

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


                                          • 1
                                          • 2
                                          • 3
                                          • 4
                                          בא תתחבר לדף היומי!
                                          • התחברות

                                          • אין לך חשבון עדיין? הרשמה

                                          • התחברו או הירשמו כדי לחפש.
                                          • פוסט ראשון
                                            פוסט אחרון
                                          0
                                          • דף הבית
                                          • קטגוריות
                                          • פוסטים אחרונים
                                          • משתמשים
                                          • חיפוש
                                          • חוקי הפורום