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

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

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

מאקרו רץ בלולאה

מתוזמן נעוץ נעול הועבר תוכנה
22 פוסטים 4 כותבים 397 צפיות 4 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • O one1010

    @ארי כתב במאקרו רץ בלולאה:

    איזה הודעה הוא מקפיץ לך?

    זאת:

    675d0a42-7715-4f99-9757-f1e8f4d27dcd-image.png

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

    @one1010 כתב במאקרו רץ בלולאה:

    @ארי כתב במאקרו רץ בלולאה:

    איזה הודעה הוא מקפיץ לך?

    זאת:

    675d0a42-7715-4f99-9757-f1e8f4d27dcd-image.png

    וכשאתה לוחץ אישור הוא מציג אותה שוב?

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

      @one1010 כתב במאקרו רץ בלולאה:

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

      לא אמור להיות קשר לקוד, הוא רץ על לולאה בלי קשר לצבע.

      לגבי התאריכים, זה קשור לזה שבחודש 2 יש רק 28 יום, וממילא בין ה15/1 עד ל15/2 יש 31 יום, וגם בין ה15/2 ל18/3 יש 31 ימים.

      בלולאה, איזה הודעה הוא מקפיץ לך? את אותה ההודעה?אולי יש לך קובץ דוגמא, כי לי בקובץ דוגמא שעשיתי זה עובד מצוין. מצרף דוגמא.

      לולאה על טווח תאריכים.xlsm

      O מנותק
      O מנותק
      one1010
      כתב ב נערך לאחרונה על ידי
      #11

      @ארי כתב במאקרו רץ בלולאה:

      לא אמור להיות קשר לקוד, הוא רץ על לולאה בלי קשר לצבע.

      עכשיו אני מבין הכל!!
      זה באמת לא מתייחס לצבע ולכן כל פעם שאני לוחץ אישור זאת לא אותה הודעה אלא הודעה חדשה על רצף חדש של תאריכים...

      א תגובה 1 תגובה אחרונה
      0
      • O one1010

        @ארי כתב במאקרו רץ בלולאה:

        לא אמור להיות קשר לקוד, הוא רץ על לולאה בלי קשר לצבע.

        עכשיו אני מבין הכל!!
        זה באמת לא מתייחס לצבע ולכן כל פעם שאני לוחץ אישור זאת לא אותה הודעה אלא הודעה חדשה על רצף חדש של תאריכים...

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

        @one1010 אכן כך.
        רק שים לב כמו שכתבתי למעלה שהוא מציג גם תאריכים לא צמודים.

        O תגובה 1 תגובה אחרונה
        0
        • א ארי

          @one1010 אכן כך.
          רק שים לב כמו שכתבתי למעלה שהוא מציג גם תאריכים לא צמודים.

          O מנותק
          O מנותק
          one1010
          כתב ב נערך לאחרונה על ידי
          #13

          @ארי כתב במאקרו רץ בלולאה:

          @one1010 אכן כך.

          יש פתרון?!

          עשיתי את הקוד הבא, אבל הוא כותב לי שלא נמצאו תאים...

          Sub SumYellowCells()
          Dim rng As Range
          Dim cell As Range
          Dim sum As Double

          Set rng = Range("A7:AG355") '
          
          For Each cell In rng.SpecialCells(xlCellTypeConstants, 2).Cells
              If cell.DisplayFormat.Interior.Color = RGB(255, 255, 0) Then ' זיהוי תאים מודגשים בצהוב
                  If cell.HasFormula Then ' בדיקה אם התא הנוכחי הוא מחזורי
                      If InStr(1, cell.Formula, "SUM(") = 0 Then ' בדיקה אם התא הוא מסכם עצמאי
                          sum = sum + cell.Value
                      End If
                  End If
              End If
          Next cell
          
          MsgBox "The sum of yellow cells that are not circular references is: " & sum
          

          End Sub

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

          כמו איזה?

          א תגובה 1 תגובה אחרונה
          0
          • O one1010

            @ארי כתב במאקרו רץ בלולאה:

            @one1010 אכן כך.

            יש פתרון?!

            עשיתי את הקוד הבא, אבל הוא כותב לי שלא נמצאו תאים...

            Sub SumYellowCells()
            Dim rng As Range
            Dim cell As Range
            Dim sum As Double

            Set rng = Range("A7:AG355") '
            
            For Each cell In rng.SpecialCells(xlCellTypeConstants, 2).Cells
                If cell.DisplayFormat.Interior.Color = RGB(255, 255, 0) Then ' זיהוי תאים מודגשים בצהוב
                    If cell.HasFormula Then ' בדיקה אם התא הנוכחי הוא מחזורי
                        If InStr(1, cell.Formula, "SUM(") = 0 Then ' בדיקה אם התא הוא מסכם עצמאי
                            sum = sum + cell.Value
                        End If
                    End If
                End If
            Next cell
            
            MsgBox "The sum of yellow cells that are not circular references is: " & sum
            

            End Sub

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

            כמו איזה?

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

            @one1010 מה אתה מנסה לכתוב? שהוא יעבור בלולאה רק על התאים שאתה בוחר?
            תאריכים לא צמודים כוונתי הייתה שאם לדוג' בתא B12 יש תאריך ובתאים D12 וF12 יש אותו תאריך הוא יודיע עליו, ולאו דוקא בתאים צמודים זל"ז.

            O תגובה 1 תגובה אחרונה
            0
            • א ארי

              @one1010 מה אתה מנסה לכתוב? שהוא יעבור בלולאה רק על התאים שאתה בוחר?
              תאריכים לא צמודים כוונתי הייתה שאם לדוג' בתא B12 יש תאריך ובתאים D12 וF12 יש אותו תאריך הוא יודיע עליו, ולאו דוקא בתאים צמודים זל"ז.

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

              @ארי כתב במאקרו רץ בלולאה:

              @one1010 מה אתה מנסה לכתוב? שהוא יעבור בלולאה רק על התאים שאתה בוחר?

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

              תאריכים לא צמודים כוונתי הייתה שאם לדוג' בתא B12 יש תאריך ובתאים D12 וF12 יש אותו תאריך הוא יודיע עליו, ולאו דוקא בתאים צמודים זל"ז.

              אני לא רוצה שיזהה 15-18 לחודש הראשון אלא מחזוריות בחודשים נפרדים. כמו 15 לחודש בראשון ובשני ובשלישי וגם 15 בראשון 16 בשני ו17 בשלישי

              א dovidD 2 תגובות תגובה אחרונה
              0
              • O one1010

                @ארי כתב במאקרו רץ בלולאה:

                @one1010 מה אתה מנסה לכתוב? שהוא יעבור בלולאה רק על התאים שאתה בוחר?

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

                תאריכים לא צמודים כוונתי הייתה שאם לדוג' בתא B12 יש תאריך ובתאים D12 וF12 יש אותו תאריך הוא יודיע עליו, ולאו דוקא בתאים צמודים זל"ז.

                אני לא רוצה שיזהה 15-18 לחודש הראשון אלא מחזוריות בחודשים נפרדים. כמו 15 לחודש בראשון ובשני ובשלישי וגם 15 בראשון 16 בשני ו17 בשלישי

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

                @one1010 הקוד הזה עובד לך?

                Sub SumYellowCells()
                Dim rng As Range
                Dim cell As Range
                Dim sum As Double
                
                Set rng = Range("A7:AG355")
                
                For i = 1 To rng.Count
                    If rng.Cells(i).Interior.Color = RGB(255, 255, 0) Then
                        If rng.Cells(i).HasFormula = False Then
                            If InStr(1, rng.Cells(i).Formula, "SUM(") = 0 Then
                                sum = sum + rng.Cells(i).Value
                            End If
                        End If
                    End If
                Next i
                
                MsgBox "The sum of yellow cells that are not circular references is: " & sum
                End Sub
                

                הוא אמור לעבור בלולאה על כל התאים בצבע צהוב (בטווח שבין A7 לAG355) ולסכם אותם (בתנאי שהם לא נוסחה ולא סיכום).

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

                @one1010 כתב במאקרו רץ בלולאה:

                וגם 15 בראשון 16 בשני ו17 בשלישי

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

                תגובה 1 תגובה אחרונה
                2
                • O one1010

                  @ארי כתב במאקרו רץ בלולאה:

                  @one1010 מה אתה מנסה לכתוב? שהוא יעבור בלולאה רק על התאים שאתה בוחר?

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

                  תאריכים לא צמודים כוונתי הייתה שאם לדוג' בתא B12 יש תאריך ובתאים D12 וF12 יש אותו תאריך הוא יודיע עליו, ולאו דוקא בתאים צמודים זל"ז.

                  אני לא רוצה שיזהה 15-18 לחודש הראשון אלא מחזוריות בחודשים נפרדים. כמו 15 לחודש בראשון ובשני ובשלישי וגם 15 בראשון 16 בשני ו17 בשלישי

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

                  @one1010 סתם שאלה, מי כתב לך את הקוד הראשון?

                  • מנטור אישי בתכנות והמסתעף – להתקדם לשלב הבא!
                  • בכל נושא אפשר ליצור קשר dovid@tchumim.com
                  O תגובה 1 תגובה אחרונה
                  0
                  • O one1010

                    @ארי

                    Private Sub Workbook_Open()
                    
                    Sub FindCycles()
                        Dim i As Integer
                        Dim j As Integer
                        Dim k As Integer
                        Dim date1 As Date
                        Dim date2 As Date
                        Dim date3 As Date
                        Dim rangeToCheck As Range
                        
                        Set rangeToCheck = Range("B12:AG12")
                        
                        For i = 1 To rangeToCheck.Count - 2
                            For j = i + 1 To rangeToCheck.Count - 1
                                For k = j + 1 To rangeToCheck.Count
                                    date1 = rangeToCheck.Cells(i).Value
                                    date2 = rangeToCheck.Cells(j).Value
                                    date3 = rangeToCheck.Cells(k).Value
                                    
                                    If date1 = date2 And date2 = date3 Then
                                        MsgBox "Found a cycle of 3 identical dates: " & date1
                                    ElseIf DateDiff("d", date1, date2) = DateDiff("d", date2, date3) And DateDiff("d", date1, date2) > 0 Then
                                        MsgBox "Found a cycle of 3 dates with equal time differences: " & date1 & ", " & date2 & ", " & date3
                                    End If
                                    
                                Next k
                            Next j
                        Next i
                        
                        ' החלק הבא יכול להיות מוסיף חפיפות לפי המחזוריות
                        
                    End Sub
                    
                    OdedDvirO מחובר
                    OdedDvirO מחובר
                    OdedDvir
                    כתב ב נערך לאחרונה על ידי
                    #18

                    @one1010 כתב במאקרו רץ בלולאה:

                    For i = 1 To rangeToCheck.Count - 2
                    For j = i + 1 To rangeToCheck.Count - 1
                    For k = j + 1 To rangeToCheck.Count

                    1. השורות האלו גורמות לי צמרמורת...לכאורה יש כאן חוסר יעילות גדול בכמות הבדיקות שנעשית.
                    2. אני מודה שלא התעמקתי בכל השרשור, וממילא לא הבנתי מה בדיוק הבדיקה, אבל אני מוכן לעזור לך אם תפרט בדיוק מה אתה רוצה שהקוד יעשה, מא' ועד ת'.
                    O תגובה 1 תגובה אחרונה
                    2
                    • dovidD dovid

                      @one1010 סתם שאלה, מי כתב לך את הקוד הראשון?

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

                      @dovid כתב במאקרו רץ בלולאה:

                      @one1010 סתם שאלה, מי כתב לך את הקוד הראשון?

                      נראה לי שאתה יודע את התשובה...

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

                        @one1010 כתב במאקרו רץ בלולאה:

                        For i = 1 To rangeToCheck.Count - 2
                        For j = i + 1 To rangeToCheck.Count - 1
                        For k = j + 1 To rangeToCheck.Count

                        1. השורות האלו גורמות לי צמרמורת...לכאורה יש כאן חוסר יעילות גדול בכמות הבדיקות שנעשית.
                        2. אני מודה שלא התעמקתי בכל השרשור, וממילא לא הבנתי מה בדיוק הבדיקה, אבל אני מוכן לעזור לך אם תפרט בדיוק מה אתה רוצה שהקוד יעשה, מא' ועד ת'.
                        O מנותק
                        O מנותק
                        one1010
                        כתב ב נערך לאחרונה על ידי
                        #20

                        @OdedDvir כתב במאקרו רץ בלולאה:

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

                        הקוד שאני רוצה הוא לכאורה מאד ארוך, לכן זה יהיה מוגזם שתעזור לי בהכל....
                        אבל אולי שלב שלב...
                        אני רוצה קוד שיזהה תאריכים מסומנים בצהוב ובמידה וביניהם יש מחזוריות מסויימת שחוזרת על עצמה 3 פעמים שיסמן אותם.
                        לדוגמא 15.01 15.02 15.03
                        וגם 15.01 16.02 17.03
                        וכן עוד כאלו בסגנון הזה

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

                          @OdedDvir כתב במאקרו רץ בלולאה:

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

                          הקוד שאני רוצה הוא לכאורה מאד ארוך, לכן זה יהיה מוגזם שתעזור לי בהכל....
                          אבל אולי שלב שלב...
                          אני רוצה קוד שיזהה תאריכים מסומנים בצהוב ובמידה וביניהם יש מחזוריות מסויימת שחוזרת על עצמה 3 פעמים שיסמן אותם.
                          לדוגמא 15.01 15.02 15.03
                          וגם 15.01 16.02 17.03
                          וכן עוד כאלו בסגנון הזה

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

                          @one1010 אני לא מפחד מלכתוב קוד ארוך, אבל אני נרתע מלהתחיל לכתוב אפילו שורה אחת בלי לדעת בדיוק מה המטרה. אתה יכול להגדיר בדיוק את סוגי המחזוריות המבוקשים?
                          לדוגמא:
                          א. דילוגים של טווח קבוע של ימים, כשהטווח נע מ-1 עד 25
                          ב ימים זהים בחודשים עוקבים
                          ג. ימים עוקבים בחודשים עוקבים
                          וכו'

                          תגובה 1 תגובה אחרונה
                          2
                          • O one1010

                            @dovid כתב במאקרו רץ בלולאה:

                            @one1010 סתם שאלה, מי כתב לך את הקוד הראשון?

                            נראה לי שאתה יודע את התשובה...

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

                            @one1010 כתב במאקרו רץ בלולאה:

                            נראה לי שאתה יודע את התשובה...

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

                            אולי זה בגלל זה:

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

                            אני חושב שזה דוקא לא קוד ארוך.
                            אנא פתח נושא חדש ותשתדל להיות שקוף ומדוייק כל הניתן.
                            אל תתבייש ואל תסתיר.

                            • מנטור אישי בתכנות והמסתעף – להתקדם לשלב הבא!
                            • בכל נושא אפשר ליצור קשר dovid@tchumim.com
                            תגובה 1 תגובה אחרונה
                            0
                            • dovidD dovid נעל נושא זה ב-
                            תגובה
                            • תגובה כנושא
                            התחברו כדי לפרסם תגובה
                            • מהישן לחדש
                            • מהחדש לישן
                            • הכי הרבה הצבעות


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

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

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