[kapetang]

Καλησπέρα

Συμφωνώ με τις επεκτάσεις του Σπύρου και προτείνω:

1) Στις συναρτήσεις SumEveryNth() καιSUMperN() η γραμμή κώδικα (δήλωση):

Dim c As Range, sum As Long, i As Long

Να γίνει: Dim sum As Double, i As Long

2) Η διαδικασία (Sub) SumByColor να γίνει συνάρτηση (Function) με 2 ορίσματα:

• rngSum = η περιοχή που θα αθροιστεί
• rngColor = η περιοχή με το χρώμα αθροίσματος.

3) Η διαδικασία (Sub) SumColoredCells να γίνει συνάρτηση με ένα όρισμα:

• rngSum = η περιοχή που θα αθροιστεί

Με τις παραπάνω προτάσεις θα διορθωθεί μια αβλεψία μου κατά τη δήλωση των μεταβλητών και θα αποτραπεί η εμφάνιση των InputBox, που τα θεωρώ "μπέρδεμα".