[Συναρτήσεις] Formula function με ημερομηνία

[kapetang]

Καλησπέρα

Μηνά βλέπω ότι στο βιβλίο σου χρησιμοποιείς τη συνάρτηση του Χρήστου.

Για το πρόβλημα που αναφέρεις συνεπώς μάλλον θα έπρεπε να το κοιτάξει ο Χρήστος.

[ChrisGT7]

Καλησπέρα σας,

Όπως φαίνεται, ο επαναϋπολογισμός της daily αναφερόταν στα εύρη του τρέχοντος φύλλου, γι' αυτό είχε λάθος αποτελέσματα στα υπόλοιπα φύλλα.

Δοκίμασε τον παρακάτω νέο κώδικα της daily:

Function Daily(MyColors As Range, MyDates As Range, Str As Range) As Double
    Dim R  As Long: R = MyColors(1, 1).Row - MyDates(1, 1).Row
    Dim C  As Long: C = MyColors(1, 1).Column
    Dim Dt As Range
    
    Application.Volatile
    With MyColors.Parent
        For Each Dt In MyDates
            If InStr(Dt.Value, Str.Value) Then
                If .Cells(Dt.Row + R, C).Interior.Color = RGB(255, 0, 0) Then
                    Daily = Daily - 6
                ElseIf .Cells(Dt.Row + R, C).Interior.Color = RGB(0, 176, 80) Then
                    Daily = Daily + (.Cells(Dt.Row + R, C).Value - 1) * 0.97
                Else
                    Daily = Daily
                End If
            End If
        Next
    End With
End Function

Πλέον, όταν γίνεται μια αλλαγή σ' ένα κέλι (πλην χρώματος), γίνεται αυτόματος επαναϋπολογισμός σ' όλα τα φύλλα. Όταν αλλάζεις το χρώμα σ' ένα κελί, απλά πάτα το F9.

[minas84]

Αρχική Δημοσίευση από ChrisGT7

Καλημέρα Μηνά,

Χρησιμοποίησα λάθος λογική, όπως φαίνεται... Αντικατέστησε τον κώδικα της daily με τον παρακάτω και έλεγξε αν όλα είναι εντάξει:

Function Daily(MyColors As range, MyDates As range, Str As range) As Double
    Dim R  As Long: R = MyColors(1, 1).Row - MyDates(1, 1).Row
    Dim C  As Long: C = MyColors(1, 1).Column
    Dim Dt As range
    
    For Each Dt In MyDates
        If InStr(Dt.Value, Str.Value) Then
            If Cells(Dt.Row + R, C).Interior.Color = RGB(255, 0, 0) Then
                Daily = Daily - 6
            ElseIf Cells(Dt.Row + R, C).Interior.Color = RGB(0, 176, 80) Then
                Daily = Daily + (Cells(Dt.Row + R, C).Value - 1) * 0.97
            Else
                Daily = Daily
            End If
        End If
    Next
End Function

Υ.Γ. Σ' ευχαριστώ πολύ! :)

Υπέρ υπέρ ευχαριστώ, το προσπαθώ πολλές μέρες, με έσωσες!