Jak uzyskać aktualną strefę czasową i wyświetlić ją w komórce w programie Excel?
Czy wiesz, jak sprawdzić, w jakiej strefie czasowej system jest ustawiony na Twoim komputerze? Tutaj pokażę ci łatwy sposób na zapisanie go w Excelu.
Pobierz aktualną strefę czasową i wyświetl w komórce z funkcją zdefiniowaną przez użytkownika
Pobierz aktualną strefę czasową i wyświetl w komórce z funkcją zdefiniowaną przez użytkownika
Poniższa funkcja zdefiniowana przez użytkownika pomoże Ci wyświetlić aktualną strefę czasową systemu bezpośrednio w potrzebnych komórkach w programie Excel. Wykonaj następujące czynności.
1. wciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj poniższy kod VBA do okna modułu.
Kod VBA: pobierz aktualną strefę czasową w programie 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. wciśnij inny + Q klawisze, aby wyjść z Microsoft Visual Basic for Applications okno.
4. Wybierz komórkę, w której chcesz wyświetlić strefę czasową, wpisz następującą formułę: =GetTimeZoneAtPresent() i naciśnij Wchodzę aby uzyskać szczegółowe informacje o strefie czasowej. Zobacz zrzut ekranu:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!