Ανανέωση ιστοσελίδας
ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [VBA] Χρονομέτρηση αθλητών

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 16-01-25, 12:44
Όνομα: πανος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 09-06-2011
Μηνύματα: 2
Προεπιλογή Χρονομέτρηση αθλητών

Είναι η πρώτη φορά που απευθύνομαι σε εσάς.
Φτιάχνω ένα αρχείο Excel με VB για να κάνω κάποιες χρονομετρήσεις.

Θα ήθελα να ευχαριστήσω το forum που μου έλυσε αρκετές απορίες. Δεν είμαι κάποιος ειδικός και ακόμα μαθαίνω.
Για αυτόν τον λόγο απευθύνομαι σε εσάς, μήπως βρω κάποια λύση.

Το αρχείο Excel έχει δύο προβλήματα (έχει πολλά περισσότερα, αλλά αυτά τα δύο πρέπει να λύσω):

Όταν πηγαίνω σε ένα κελί για να γράψω κάτι, ο χρόνος (ως απεικόνιση) παγώνει και πρέπει να το λύσω με κάποιον τρόπο.
Το επόμενο που θέλω είναι όταν να γράφω έναν αριθμό στη στήλη P2, P3, P4 κ.ο.κ. (Αρ. Αθλητή) να πατάω Enter, και να κάνει αυτό που κάνει και το κουμπί "Lap".
Σας ευχαριστώ εκ των προτέρων!
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm Timer1.xlsm (48,6 KB, 7 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 16-01-25, 12:54
Το avatar του χρήστη ChrisGT7
Διαχειριστής
Όνομα: Χρήστος Ζώρζος
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 20-09-2013
Περιοχή: Κοντά σε ηφαίστειο...
Μηνύματα: 1.046
Προεπιλογή

Καλησπέρα Πάνο,

Είναι ευχάριστο που έχεις λύσει αρκετές απορίες σου μέσα από την κοινότητά μας!

Για τον αριθμό του αθλητή, κάνε μια δοκιμή στον παρακάτω κώδικα αν σε βοηθήσει κάπως:
Κώδικας:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [P:P]) Is Nothing Then Exit Sub
    'Εδώ γράφεις το όνομα της υπορουτίνας ή τον αντίστοιχο κώδικα
End Sub
Για το πάγωμα του χρόνου όμως, θα πρέπει να ανεβάσεις ένα υπόδειγμα του αρχείου για να μπορέσουμε να σε βοηθήσουμε περισσότερο.

Επεξεργασία: Φαίνεται γράφαμε μαζί και μετά είδα το αρχείο που ανέβασες. Θα το επεξεργαστώ τότε και θα σε ενημερώσω.
__________________
Your Curiosity Will Be The Death Of You!
Απάντηση με παράθεση
  #3  
Παλιά 17-01-25, 07:13
Το avatar του χρήστη ChrisGT7
Διαχειριστής
Όνομα: Χρήστος Ζώρζος
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 20-09-2013
Περιοχή: Κοντά σε ηφαίστειο...
Μηνύματα: 1.046
Προεπιλογή

Καλημέρα Πάνο,

Μιλώντας χθες με το διαχειριστή Tasos (ο οποίος έφτιαξε και τη συνημμένη πρόταση), δυστυχώς δεν υπάρχει τρόπος να γράφεις σε κάποιο κελί και ταυτόχρονα να συνεχίζεται η χρονομέτρηση σε άλλο κελί.

Αυτό γιατί είναι αδύνατο στο Excel να επεξεργάζονται ταυτόχρονα πάνω από ένα κελιά, όπως ακριβώς γίνεται στο αρχείο σου.

Επομένως, η πρόταση του Τάσου είναι η χρήση φόρμας (userform) ως αναδυόμενο παράθυρο. Πατώντας το ΧΡΟΝΟΜΕΤΡΟ και στη συνέχεια Start, ξεκινάει η χρονομέτρηση επιτρέποντάς σου να μπορείς να επεξεργαστείς οποιοδήποτε κελί χωρίς πρόβλημα. Η καθυστέρηση τικ αλλάζει τη διάρκεια του χρονόμετρου όσο μεγαλύτερη είναι.

Απλά εσύ τώρα θα πρέπει να τροποποιήσεις ανάλογα το αρχείο σου έτσι ώστε τα δεδομένα του χρόνου να τα αντλείς από την ετικέτα Label1, όπου εμφανιζόνται εκεί τα δευτερόλεπτα, όπως γίνεται στο C2.

Για οποιαδήποτε άλλη βοήθεια ή απορία, μας ενημερώνεις ανάλογα.
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm ΧΡΟΝΟΜΕΤΡΗΣΗ.xlsm (56,9 KB, 7 εμφανίσεις)
__________________
Your Curiosity Will Be The Death Of You!
Απάντηση με παράθεση
  #4  
Παλιά 17-01-25, 10:40
Όνομα: πανος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 09-06-2011
Μηνύματα: 2
Προεπιλογή

Καλημέρα στην κοινότητα,
Ευχαριστώ για την άμεση ανταπόκριση.
Ευχαριστώ τον Χρήστο για το ενδιαφέρον που έδειξε, καθώς και τον Τάσο για την πρόταση.
Με τη χρήση της φόρμας έλυσα και τα δύο προβλήματα.
Την προσάρμοσα στα δικά μου δεδομένα και μοιράζομαι ό,τι έχω κάνει μέχρι τώρα.
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsm Timer.xlsm (54,7 KB, 11 εμφανίσεις)
Απάντηση με παράθεση
Απάντηση στο θέμα


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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Συναρτήσεις] Επίδοση αθλητών argisl Excel - Ερωτήσεις / Απαντήσεις 2 25-05-16 23:26


Η ώρα είναι 10:30.