Μορφοποίηση τιμών χρόνου - Συμβουλές για το Excel

Πίνακας περιεχομένων

Χρόνια πολλά στο.com! Πριν από τρία χρόνια σήμερα, αυτός ο ιστότοπος κυκλοφόρησε. Χρειάστηκαν τέσσερις μέρες για να μπουν οι δύο πρώτες ερωτήσεις. Τους άνοιξα με ανυπομονησία και δεν είχα ιδέα πώς να απαντήσω σε καμία. Σκέφτηκα, "Ω όχι - ίσως αυτό ήταν λάθος …".

Από τότε, η κίνηση έχει αυξηθεί σημαντικά. Πρόκειται να ολοκληρώσω την προβολή του εκατομμυρίου σελίδων για το έτος 2001. Υπάρχει αρκετή συμβουλευτική εργασία για να απασχοληθώ, καθώς και περισσότερα έργα για τον Juan Pablo και το Mala και περιστασιακά Πρόσβαση σε έργα για τον Mike και ανάλυση δεδομένων για τον John.

Οι άνθρωποι απλώς εκπλήσσονται όταν βλέπουν τι μπορεί να γίνει με το Excel / VBA. Για όλα αυτά, είμαι πολύ ευγνώμων. Αύριο είναι η Ημέρα των Ευχαριστιών στις Ηνωμένες Πολιτείες και θα ήθελα να ευχαριστήσω τους πιστούς αναγνώστες και πελάτες που έκαναν την επιτυχία του.com.

Σήμερα ερώτηση:

Η ερώτησή μου ακούγεται απλή αλλά δεν μπορώ να το καταλάβω. Δουλεύω σε ένα τηλεφωνικό κέντρο και εισάγω πληροφορίες από αναφορές που δημιουργήθηκαν από το Σύστημα Avaya (τηλεφωνικό σύστημα). Τώρα, αυτές οι αναφορές έχουν χρόνο ομιλίας, χρόνο ολοκλήρωσης και άλλα στατιστικά.

Όταν εισάγω τα στατιστικά στο Excel εάν ο χρόνος είναι μικρότερος από 1 λεπτό εμφανίζεται ως: 01 δευτερόλεπτο. Αυτό που χρειάζομαι είναι το Excel να το αλλάξει σε 0:01. Ο κύριος λόγος που χρειάζομαι το μηδέν είναι επειδή όταν μεταφέρω αυτές τις πληροφορίες στην Access δεν αναγνωρίζει τίποτα που δεν εμφανίζεται σε αυτήν τη μορφή (0:00). Έχω παίξει με τη Μορφοποίηση και δεν το έχω καταλάβει ακόμη. Είναι πολύ χρονοβόρο να καθίσετε εκεί και να προσθέσετε μηδενικά για να το διορθώσετε! Οι γνώσεις μου για το Excel είναι πολύ βασικές. Μπορείτε να δημιουργήσετε μια μακροεντολή; Ή τι γίνεται με τη μορφοποίηση υπό όρους;

Θα χρησιμοποιούσα αυτήν την απλή μακροεντολή. Αρχικά, επισημάνετε την επιλογή με τους χρόνους και, στη συνέχεια, εκτελέστε τη μακροεντολή.

Sub TryThis() For Each cell in Selection If Left(cell.value, 1) = ":" Then cell.Value = "0" & cell.Value End if Next cell End Sub

Για όλους τους αναγνώστες μας στις ΗΠΑ, περάστε ένα υπέροχο Σαββατοκύριακο Ευχαριστιών!

ενδιαφέροντα άρθρα...