Πώς να αποκτήσετε την τρέχουσα ζώνη ώρας και να εμφανιστεί στο κελί στο Excel;
Ξέρετε πώς να μάθετε σε ποια ζώνη ώρας έχει ρυθμιστεί ένα σύστημα στον υπολογιστή σας; Εδώ θα σας δείξω έναν εύκολο τρόπο για να το κατεβάσετε στο Excel.
Λήψη τρέχουσας ζώνης ώρας και εμφάνιση σε κελί με λειτουργία που καθορίζεται από το χρήστη
Λήψη τρέχουσας ζώνης ώρας και εμφάνιση σε κελί με λειτουργία που καθορίζεται από το χρήστη
Η ακόλουθη λειτουργία που καθορίζεται από τον χρήστη θα σας βοηθήσει να εμφανίσετε την τρέχουσα ζώνη ώρας του συστήματος απευθείας σε απαιτούμενα κελιά στο Excel. Κάντε τα εξής:
1. Πάτα το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε κάτω από τον κώδικα VBA στο παράθυρο Module.
Κωδικός VBA: Λάβετε την τρέχουσα ζώνη ώρας στο Excel
Function GetTimeZoneAtPresent() As String
'Updated by Extendoffice 20180814
Dim xObjIs, xObjI
On Error GoTo ER
Set xObjIs = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * From Win32_TimeZone")
If xObjIs.Count = 1 Then
For Each xObjI In xObjIs
If Len(xObjI.Caption) > 1 Then
GetTimeZoneAtPresent = xObjI.Caption
Exit Function
Else
GetTimeZoneAtPresent = "Null"
Exit Function
End If
Next
End If
ER:
GetTimeZoneAtPresent = "Failed"
End Function
3. Πάτα το άλλος + Q πλήκτρα για έξοδο από το Microsoft Visual Basic για εφαρμογές παράθυρο.
4. Επιλέξτε ένα κελί που θέλετε να εμφανίσετε τη ζώνη ώρας, πληκτρολογήστε αυτόν τον τύπο: =GetTimeZoneAtPresent() και πατήστε το εισάγετε κλειδί για να λάβετε τις λεπτομέρειες της ζώνης ώρας. Δείτε το στιγμιότυπο οθόνης:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!