Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [Συναρτήσεις] Formula function με ημερομηνία

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #11  
Παλιά 24-04-21, 15:06
Όνομα: Μηνας
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 17-06-2015
Μηνύματα: 10
Προεπιλογή

Έτσι είναι στην ουσία το excel μου. Έχει 3 παρόμοια λογικής sheet τα οποία έχουν διαφορετικά νούμερα. Βαζω καθε μέρα τα καινούρια νούμερα της ημέρας (στο πάραδειμα έχω βάλει ως και 3 Mar, το πρώτο sheet τυχαία δεν έχει, μετα συνεχίζουμε με 5 Mar κτλ)
Στο τέλος υπάρχει ένα που τα αθροίζει.
Το πρόβλημα είναι ότι όταν πας στην 1 σελίδα και την κάνεις refresh με alt+ctrl+shift+F9
χαλάει τον υπολογισμό στις υπόλοιπες κτλ.
Τι λάθος κάνω;;;
Μήπως να ορίσω daily1 για την 1η, daily2 για την 2 και daily3 για την 3;
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm test new.xlsm (20,1 KB, 6 εμφανίσεις)
Απάντηση με παράθεση
  #12  
Παλιά 24-04-21, 18:03
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.233
Προεπιλογή

Καλησπέρα

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

Για το πρόβλημα που αναφέρεις συνεπώς μάλλον θα έπρεπε να το κοιτάξει ο Χρήστος.
Απάντηση με παράθεση
  #13  
Παλιά 24-04-21, 19:25
Το avatar του χρήστη ChrisGT7
Όνομα: Χρήστος Ζώρζος
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 20-09-2013
Μηνύματα: 490
Προεπιλογή

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

Όπως φαίνεται, ο επαναϋπολογισμός της 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.
__________________
Your Curiosity Will Be The Death Of You!!!
Απάντηση με παράθεση
  #14  
Παλιά 24-04-21, 22:32
Όνομα: Μηνας
Έκδοση λογισμικού Office: Ms-Office 2013
Γλώσσα λογισμικού Office: Αγγλική
 
Εγγραφή: 17-06-2015
Μηνύματα: 10
Προεπιλογή

Χρήστο λειτουργεί τέλεια τώρα, ευχαριστώ πάρα πολύ! Γιώργο το δοκίμασα αυτό που μου είπες και το κατάλαβα, σ' ευχαριστώ και σένα πάρα πολύ!
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[VBA] Formula To Comment jockey17 Excel - Ερωτήσεις / Απαντήσεις 6 15-10-14 16:17
[ Συναρτήσεις ] Προγραμματιζόμενα πλήκτρα FUNCTION pdhmos Access - Ερωτήσεις / Απαντήσεις 5 24-10-10 19:07
Εισαγωγή formula σε κελί μέσω VBA... ChryssaV Access - Ερωτήσεις / Απαντήσεις 4 09-10-09 10:05
Function IIF Deminio Access - Ερωτήσεις / Απαντήσεις 1 04-03-09 17:39


Η ώρα είναι 12:52.