Χρονόμετρο στο excel..
 

Καλησπέρα σε όλους!

Όλο περίεργες ιδέες μου έρχονται στο project που δουλεύω αυτές τις μέρες......

Μήπως υπάρχει κάποια συνάρτηση που με το πάτημα κουμπιού, να χρονομετρεί και με το πάτημα πάλι να σταματάει ο χρόνος;(χρονόμετρο)

Φιλικά

Λευτέρης.
:thanks:

Λευτέρη,
το θέμα έχει απαντηθεί εδώ http://www.ms-office.gr/forum/excel-...tin-excel.html
Το φόρουμ διαθέτει και αναζήτηση :dft008: για τα μέλη του :icon_yes:

Λευτέρη σου επισυνάπτω σχετικό αρχείο με τον κώδικα όπου με είχε βοηθήσει ο Τάσος.Μάλιστα μπορείς να προσαρμόσεις τον κώδικα βάζοντας ή όχι χρονικό όριο.Το μόνο πρόβλημα είναι ότι το συμβάν Timer απενεργοποιείται όταν εκτελείς κάποια άλλη ενέργεια στην Excel.
Φιλικά

Καλημέρα και ευχαριστώ και τους δυό σας πολύ.

Θανάση λίγα πράγματα ξέρω για το forum(σαν νέο μέλος), αλλά ξέρω πως έχει και αναζήτηση, επειδή την χρησιμοποιώ πάρα πολύ. Πατώντας χθές στην αναζήτηση. "χρονόμετρο στο excel",δεν μου έδινε αποτέλεσμα. Το ίδιο και πρίν λίγο(με παρέπεμπε στο δικό μου θέμα). Μήπως κάνω κάτι λάθος; Ακόμα να πώ πως η ερώτησή μου έλεγε χρονόμετρο με συναρτήσεις, επειδή δεν ξέρω τίποτα από κώδικα. Το θέμα με το χρονόμετρο του Τάσου το είχα βρεί ψάχνοντας στο Google, αλλά επιδή είχε κώδικα, είπα να ρωτλησω για συναρτήσεις.:blush:

Τζίμη, αφού δεν μπορώ, από ότι κατάλαβα να χρησιμοποιήσω συναρτήσεις, να ρωτήσω αν μπορώ να χρησιμοποιήσω το δικό σου ή του Τάσου σε ένα δικό μου πρόγραμμα.(1)Δεν ξέρω άν μου το επιτρέπετε και 2) Δεν ξέρω πως να το κάνω!!!!!!)
Εγώ θα ήθελα σε ένα κελί να κάνω start & stop και στο διπλανό να μετριέται ο χρόνος. Αυτό θα γίνεται σε όλη τη στήλη και για πολλά κελιά...(Αν θέλετε δείτε το συνημένο.) Γίνεται;:pchit:

Φιλικά

Λευτέρης.

Χρονόμετρο με συναρτήσεις χωρίς VBΑ
 

Λευτέρη,
δες στο συνημμένο την πρότασή μου για Χρονόμετρο με συναρτήσεις και χωρίς VBΑ :wink:

Αξιοποίησα την πρόταση του φίλου Τάσου από τα χρήσιμα για Timestamp :icon_hihi:

Τώρα όσον αφορά την αναζήτηση :what:
Μην χρησιμοποιείς εισαγωγικά και προσπάθησε να γράφεις σπάνιες λέξεις:secret:
πχ αν αναζητήσεις χρονόμετρο θα σου δώσει 6-7 θέματα (από όλες τις ενότητες Excel VBA Access κλπ) αν αναζητήσεις "Χρονόμετρο στο Excel" θα σου δώσει μόνο το δικό σου θέμα.

Πες μας αν σε καλύπτει το συνημμένο και αν κάτι δεν είναι κατανοητό, ρώτα στο φόρουμ

Τα λέμε :byebye:
Θανάσης

Θανάση καλημέρα και σε ευχαριστώ για τον χρόνο σου!

Θεωρώ πως η δουλειά σου αυτή, θα φανει χρήσιμη σε πολλούς με πρώτον εμένα.
Δουλέυω στο δικό μου project και με πιέζει ο χρόνος για αυτό δεν το κοιτάω τώρα αναλυτικά
Κοίτα το λίγο, γιατί με το που το ανοίγεις, δημιουργεί κυκλική αναφορά στο D6.
Πάντως ΣΥΓΧΑΡΗΤΗΡΙΑ!!! Εξαιρετική δουλειά!:icon_n1::icon_n1:

Φιλικά

Λευτέρης.:thumbup::thumbup:

Άλλαξε τις διαδοχικές προσεγγίσεις σε 1 στο
Μενού/Επιλογές καρτέλα Υπολογισμός.

Καλή συνέχεια και ευχαριστώ για τα καλά σου λόγια.

Τό έκανα και ο.κ!
Θα μελετήσω αύριο στο σπίτι τις συναρτήσεις για να καταλάβω πως γίνεται...
Αυτό με τις διαδοχικές προσεγγίσεις, τι ακριβώς κάνει φίλε;

Τα λέμε
Λευτέρης.

Χρονόμετρο στο Excel
Γεια χαρά σε όλους . Είναι η πρώτη φορά που γράφω στο ms – office. Με λένε λοιπόν Γιάννη Παπαδόπουλο και ασχολούμαι χρόνια τώρα ερασιτεχνικά με την παρατηρησιακή αστρονομία – αστροφωτογραφία. Τις συννεφιασμένες όμως και κρύες νύχτες του χειμώνα τα τελευταία χρόνια, φτιάχνω στο Excel προγράμματα (αστρονομικού ενδιαφέροντος). Δεν έχω την παραμικρή εκπαίδευση στον προγραμματισμό αλλά τα βρήκα «όλα» σιγά – σιγά από το διαδίκτυο και αφού είχε το Excel (του 2007) το κομπιούτερ, άρχισα να πειραματίζομαι και το αποτέλεσμα ήταν ότι, σαν να μη με έφτανε το γεγονός ότι ήμουν έτσι κι αλλιώς ερασιτέχνης αστρονόμος, κόλλησα τώρα για τα καλά και το μικρόβιο του ερασιτέχνη προγραμματιστή. Έχω φτιάξει και ένα αρκετά μεγάλο πρόγραμμα το οποίο το παίρνω μαζί μου στο τόπο της παρατήρησης και με αυτό κάνω το εξής. Αν το τηλεσκόπιο μου κοιτάζει ένα αόρατο δια γυμνού οφθαλμού στόχο και θέλω από αυτόν να δω έναν άλλο επίσης αόρατο δια γυμνού οφθαλμού στόχο, πληκτρολογώ το όνομα του νέου στόχου και αυτομάτως έχω το πόσες μοίρες νότια ή βόρεια, και πόσες ώρες ανατολικά ή δυτικά θα μετακινήσω το τηλεσκόπιο για να τον σημαδέψω. Εννοείτε φυσικά ότι το τηλεσκόπιο είναι προσαρμοσμένο επάνω σε ειδικές βάσεις οι οποίες εκτός του ότι το κρατάνε γερά επάνω στον στόχο, μπορούν να υποστηρίξουν και τέτοιου είδους χρήση. Δηλαδή να στοχεύουμε αντικείμενα του βαθέως ουρανού, κάνοντας χρήση των ουράνιων συντεταγμένων. Στις αζιμουθιακές συντεταγμένες όμως η τιμή τους αλλάζει με το πέρασμα της ώρας λόγο της περιστροφής της Γής. Αν δηλαδή σημαδέψεις ένα άστρο και διαβάσεις τις ενδείξεις στους δίσκους θέσης του αζιμούθιου και του ύψους, αυτές σε λίγα μόνο δευτερόλεπτα της ώρας θα αλλάξουν διότι το άστρο μετακινήθηκε. Στο πρόγραμμα λοιπόν που έχω φτιάξει, τον χρόνο που πέρασε τον πληκτρολογώ και με το πάτημα του enter έχω το αποτέλεσμα.
Θέλω λοιπόν το εξής. Ένα χρονόμετρο το οποίο με το πάτημα «Έναρξη» να αρχίσει από το 0 και να γράφει δευτερόλεπτά. Μου κάνει αν γράφει μόνο δευτερόλεπτα, χωρίς λεπτά ή ώρες. Αν μείνει μία ώρα πχ χωρίς να μηδενιστεί, να μην γράψει 01:00:00 αλλά να γράψει 3600. Εάν βγάζει Ώρες : Λεπτά : Δευτερόλεπτα και αυτό γίνεται, αρκεί να βγάζει σε ένα κελί μόνο τις Ώρες, σε άλλο τα λεπτά και σε άλλο τα Δευτερόλεπτα. Επίσης μου κάνει και η περίπτωση να βγάζει σε ένα κελί τον χρόνο στην δεκαδική μορφή του. Την μιάμιση ώρα πχ αντί να την γράφει 01:30:00 να την γράφει 1,5. Έτσι κι αλλιώς και τον χρόνο και τις μοίρες που και αυτές διατυπώνονται σε μοίρες - λεπτά – δευτερόλεπτα μετατρέπονται στην δεκαδική μορφή για γίνουν οι πράξεις στο πρόγραμμα.
Επίσης θα μου έκανε τέλεια και ένα πρόγραμμα που κατέβασα από εσάς σε ένα φύλλο του Excel, με τίτλο ΧΡΟΝΟΜΕΤΡΟ_ΧΩΡΙΣ_ΟΡΙΟ. Όμως έχει δύο προβλήματα που πρέπει να επιλυθούν.
1) Δεν λειτούργει και βγάζει το εξής μήνυμα.
«Δεν είναι δυνατή η εκτέλεση της μακροεντολής ΧΡΟΝΟΜΕΤΡΟ_ΧΩΡΙΣ_ΟΡΙΟ. Η μακροεντολή μπορεί να μην είναι διαθέσιμη σε αυτό το βιβλίο εργασίας ή μπορεί να έχουν απενεργοποιηθεί όλες οι μακροεντολές.»
2) Φαίνεται ότι βγάζει σε ένα κελί το αποτέλεσμα διότι στο κελί F1 γράφει 0:00:0 . Αυτό βέβαια είναι αυτό που δεν μου κάνει, αλλά αν λειτουργούσε και μου λέγατε πώς να πάρω από το συγκεκριμένο κελί έναν έναν τους τρείς αριθμούς που διατυπώνεται η ώρα και να τους βάλω εγώ σε τρία κελιά θα έλυνα το πρόβλημα. Και ομολογώ ότι αυτή η λύση για εμένα θα ήταν η καλύτερη, γιατί κάνοντας το μόνος μου θα μάθω και κάτι άλλο, όμως έχω ενδοιασμούς μήπως δεν καταλάβω κάτι καλά και γίνω ενοχλητικός.
Σας ευχαριστώ Γιάννης Παπαδόπουλος

Γιάννη καλώς όρισες στο ms-office.gr

Φαντάζομαι, οτι έχω καταλάβει τι ζητάς και υπάρχει μια λύση στο πιο κάτω βιβλίο...

Χρησιμοποίησα κώδικα, βασισμένο σε ένα άλλο χρονόμετρο που έχω ανεβάσει και τύπους...
Θα πρέπει, να βάλεις το έργο σου σε .xlsm (Save As) για να μπορεί να εκτελέσει τον κώδικα.
Ακόμα, θα πρέπει από τις Options του προγράμματος, να ενεργοποιήσεις τις μακροεντολές,
Σφάλμα: «Δεν είναι δυνατή η εκτέλεση της μακροεντολής.....»

Δοκίμασέ το και τα λέμε.

Αλλαγή αρχείου:

Εκ παραδρομής, (στο αρχικό αρχείο), ξεχάστηκαν 2 σημαντικές γραμμές κώδικα,
οι οποίες απαγορεύουν στα κουμπιά, να «ξανατρέξουν»
πριν ολοκληρωθεί ένας πλήρης κύκλος Αρχή - Τέλος...

Στην Εντολή Sub StartTimer() Προστέθηκε η γραμμή:
If Sh1.Cells(4, 3).Value = "Calculating..." Then Exit Sub

Στην Εντολή Sub EndTimer() Προστέθηκε η γραμμή:
If Sh1.Cells(4, 3).Value <> "Calculating..." Then Exit Sub

Κύριε Σπύρο σας ευχαριστώ για την άμεση ανταπόκριση. Θα το προσπαθήσω. Και το λέω αυτό διότι ναι μεν έφτιαξα αυτό το πρόγραμμα αλλά δεν έχω καταλάβει κάποια βασικά πράγματα όπως πχ τι είναι .xlsm, exe και κάτι τέτοια που ξέρω ότι υπάρχουν αλλά δεν ξέρω τι κάνουν. Επίσης δεν αντιλαμβάνομαι την διαφορά σε αυτό που λέμε φύλο ή βιβλίο στο Excel και αυτά είναι πράγματα που πρέπει σιγά – σιγά να τα μάθω και για να τα χειρίζομαι, διότι το συγκεκριμένο πρόγραμμα αρχίζει και παραγίνεται μεγάλο για να είναι μόνο σε ένα φύλλο. Ορατά ο κατάλογος με τις 900 περίπου καταχωρίσεις (και που ολοένα θα αυξάνει) σε αστέρια και αντικείμενα του βαθέως ουρανού, θα πρέπει να είναι σε διαφορετικό φύλλο, καθώς επίσης και η μελλοντική επέκταση του προγράμματος που θα μετατρέπει τα αριθμητικά δεδομένα σε παλμούς για να κινούν βηματοδοτικά μοτέρ ώστε το τηλεσκόπιο από μόνο του να κινείται από στόχο σε στόχο.
Τα παραπάνω τα γράφω διότι δεν θέλω, αν δείτε ότι η απάντηση μου καθυστερεί, να νομίσετε ότι αδιαφόρησα για τον κόπο σας. Θα το παλέψω και θα σας απαντήσω, ή μάλλον θα σας ξανά ενοχλήσω αν δεν το καταφέρω με πιο συγκεκριμένες απορίες. Και πάλι σας ευχαριστώ.

Τα κατάφερα!!! Γι’ άλλη μία φορά ευχαριστώ.
Λοιπόν το κομπιούτερ μου τρέχει και τα δύο προγράμματα. Και το δικό σου με τίτλο Timer.xlsm και του κύριου ΤΖΙΜΗ με τίτλο ΧΡΟΝΟΜΕΤΡΟ_ΧΩΡΙΣ_ΟΡΙΟ.xls . Απλός στην κορδέλα επάνω με τα εργαλεία του Excel, με ρωτάει πρώτα αν θέλω να ανοίξω το αρχείο και εγώ χθες δεν το είχα προσέξει.
Το έφτιαξα με το πρόγραμμα του Κύριου ΤΖΙΜΗ το ΧΡΟΝΟΜΕΤΡΟ_ΧΩΡΙΣ_ΟΡΙΟ.xls διότι ξεκινά να γράφει από 0:00:00 και κάθε ένα δευτερόλεπτο ανανεώνει την ένδειξη. Από εδώ και πέρα με την προσθήκη ενός δικού μου προγράμματος το «αναβάθμισα» και δείχνει παράλληλα με την πρώτη, άλλες δύο ενδείξεις. Τον χρόνο που περνά εκφρασμένο στην δεκαδική μορφή, και τον χρόνο που περνά μόνο σε δευτερόλεπτα. Με το πάτημα του STOP παγώνουν και οι τρείς ενδείξεις. Αν τώρα ξαναπατήσουμε το πλήκτρο έναρξη το χρονόμετρο ξεκινά και αυξάνει το χρόνο που περνά από εκεί που σταμάτησε. Αν αντί για έναρξη επιλέξουμε το πλήκτρο επανεκκίνηση μηδενίζει και αρχίζει να μετρά και πάλι από το 0.
Το πρόβλημα με το γεγονός ότι η αρχική ένδειξη βρίσκεται σε ένα κελί, (ώρες : λεπτά : δευτερόλεπτα) το έλυσα με τον εξής απλούστατο τρόπο. Εξίσωσα το συγκριμένο κελί με ένα άλλο και σε πρώτη φάση έχω το αποτέλεσμα σε δύο κελία. Στην συνέχεια μαρκάροντας το κελί η ένδειξή επάνω στην κορδέλα των εργαλείων του Excel σου λέει ότι ο αριθμός αυτός είναι ώρα. Εγώ από εκεί άλλαξα την επιλογή και τον έκανα Γενική. Προσοχή! Με το που αρχίζει το χρονόμετρο να μετρά, ο αριθμός είναι τρομερά μικρός. Το 1 δευτερόλεπτο = 1/86.000. Διότι 86.000 δευτερόλεπτα έχει το 24ωρο. Επομένως στο κάτω κελί πολλαπλασιάζουμε αυτή τη μετατροπή που κάνει από μόνο του το Excel με το 86000 και έχουμε τα δευτερόλεπτα.
Τώρα το δικό σου κύριε Σπύρο δεν το επέλεξα διότι βγάζει μεν δευτερόλεπτα, αλλά τα βγάζει ως σύνολο του συμβάντος που χρονομετρήθηκε. Στο πρόγραμμα όμως που έχω φτιάξει οι ουράνιες συντεταγμένες αλλάζουν καθώς περνά ο χρόνος και το μηδέν το βάζουμε αυθαίρετα επάνω σε ένα άστρο που σημαδέψαμε με το τηλεσκόπιο. Καθώς πατάμε έναρξη πλέον το πρόγραμμα δευτερόλεπτο το δευτερόλεπτο υπολογίζει τις συντεταγμένες καθώς αυτές διαμορφώνονται στο πέρασμα του χρόνου και από το την διαφορά τους θα δίνονται εντολές σε δύο βηματοδοτικά μοτέρ να κινούν σιγά σιγά το τηλεσκόπιο ώστε ο στόχος να μένει στο οπτικό πεδίο του προσοφθαλμίου του τηλεσκοπίου. Αυτό με τις εντολές στα βηματοδοτικά μοτέρ δεν το έχω φτιάξει ακόμη και δεν έχω ιδέα πώς να το κάνω. Επίσης μου λείπουν και κάποια δεδομένα τεχνικής φύσεως και μάλλον από το φθινόπωρο θα ασχοληθώ και πάλι με αυτό.
Τέλος επειδή είμαι καινούργιος στην παρέα, και δεν γνωρίζω ακόμα τα «ήθη και τα έθιμα» ρωτάω και το εξής: Θα ήταν αγένεια να σας στείλω και την δική μου εκδοχή του χρονομέτρου του κύριου ΤΖΙΜΗ που εκτός από την ώρα που περνά δείχνει και τα δευτερόλεπτα και την έκφραση της ώρας στο δεκαδικό σύστημα; Την ώρα πχ 01:30:00 τώρα το πρόγραμμα την γράφει σε άλλο κελί και 1,5 και σε τρίτο 5400 δευτερόλεπτα. Εδώ υπενθυμίζω ότι τόσο η ώρα όσο και οι μοίρες πρέπει να μετατρέπονται από (μοίρες - ώρες : λεπτά : δευτερόλεπτα) στο δεκαδικό σύστημα (μοίρες – ώρες , δεκαδικό) ώστε στην συνέχεια να γίνουν κάποιες άλλες αριθμητικές πράξεις στο πρόγραμμα μας. Δεν γίνεται να βρούμε πχ το ημίτονο των 30 μοιρών και 30 λεπτών αλλά γίνεται να βρούμε το ημίτονο των 30,5 μοιρών.