Excel'de geçerli saat dilimini nasıl alır ve bir hücrede görüntülerim?
Excel elektronik tablolarıyla, özellikle işbirlikçi veya uluslararası ortamlarda çalışırken, sisteminizin saat dilimi ayarını bilmek büyük önem taşır. Geçerli sistem saat diliminizi doğrudan bir Excel hücresinde belirleyip görüntüleyerek, farklı bölgelerdeki kullanıcılarla paylaşılabilen dosyalarda zamanla ilgili hesaplamaların, raporlamanın ve veri karşılaştırmalarının doğruluğunu kolayca sağlayabilirsiniz. Ancak ne yazık ki, Excel sistem saat dilimi bilgisini doğrudan bir hücre içinden almanızı sağlayan yerleşik bir işleve sahip değildir.
Kullanıcı tanımlı işlevle geçerli saat dilimini alın ve hücrede görüntüleyin
Kullanıcı tanımlı işlevle geçerli saat dilimini alın ve hücrede görüntüleyin
Sisteminizin geçerli saat dilimini doğrudan bir Excel hücresine almak ve görüntülemek için VBA ile yazılmış bir kullanıcı tanımlı işlevi (UDF) kullanabilirsiniz. Bu yöntem, çalışma kitabınızda bu bilgiye sıkça ihtiyacınız olduğunda pratik ve etkili bir çözüm sunar. İşte bunu adım adım nasıl yapacağınız:
Not: Bu yaklaşım, Excel ortamınızda makrolar etkinleştirilmişse ve VBA kodunu çalıştırmaya izniniz varsa en iyi şekilde çalışır. Bilgisayarınızda yapılandırılmış Windows sisteminden bölgesel ayarı doğrudan okur.
1. Aynı anda Alt + F11 tuşlarına basın. Bu işlem, Microsoft Visual Basic for Applications (VBA) düzenleyici penceresini açar.
2. VBA düzenleyicide soldaki Proje bölmesini bulun, ardından Ekle > Modül seçeneğine tıklayın. Bu işlem, özel kodunuzu girebileceğiniz çalışma kitabınıza yeni bir modül ekler. Aşağıdaki VBA kodunu dikkatlice kopyalayın ve boş modül penceresine yapıştırın:
VBA kodu: Excel'de geçerli saat dilimini alın
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 FunctionYukarıdaki tüm kodu kopyaladığınızdan emin olun. Makroları veya UDF’yi çalıştırmadan önce, makro ayarlarınızın kodun çalışmasına izin verdiğinden emin olun. Bir hata veya güvenlik uyarısıyla karşılaşırsanız, makro ayarlarınızı Dosya > Seçenekler > Güven Merkezi > Güven Merkezi Ayarları > Makro Ayarları yolundan güncelleyin.
3. Kodu yapıştırdıktan sonra VBA düzenleyicisini kapatıp Excel’e dönmek için Alt+Q tuşlarına basın.
4. Saat dilimini görüntülemek istediğiniz herhangi bir hücreyi seçin ve şu formülü girin: =GetTimeZoneAtPresent(), ardından Enter tuşuna basın. Sisteminizde ayarlı geçerli saat dilimi, seçili hücrede anında görünecektir.
Bu yöntem, saat dilimi farkının kritik olduğu farklı coğrafi bölgelerdeki meslektaşlar arasında paylaşılabilen otomatik raporlama şablonları veya panolar için özellikle etkilidir. Ancak unutmayın: Kullanıcı Tanımlı İşlevler (UDF’ler), çalışma kitabınız yalnızca makro destekli bir dosya (.xlsm) olarak kaydedildiğinde çalışır. Dosyayı taşırsanız ya da makroları devre dışı bırakılmış birine gönderirseniz, sonuçlar güncellenmeyebilir veya görüntülenemeyebilir.
Açıklık için ekran görüntüsüne bakın:
Sonuç görünmezse veya bir hata görüntülenirse aşağıdakileri kontrol edin:
- Makro ayarlarınız, VBA kodunun çalıştırılmasına izin veriyor.
- Kod, tamamen ve hiçbir değişiklik yapılmadan kopyalandı.
- Excel Çevrimiçi veya kısıtlanmış bir ortamda değilsiniz; VBA çözümleri yalnızca masaüstü Excel ile çalışır.
Saat dilimi bilgilerini güncellemek veya yenilemek için sayfayı yeniden hesaplayın ()F9) ya da Excel oturumunuz sırasında sistem saat dilimi değiştiyse formülü tekrar girin.
İpucu: Bu sonuç, bilgisayarınızın işletim sistemi ayarlarını yansıtır. Dosyayı paylaşmanız durumunda her kullanıcı, yerel Excel ortamında formülü yeniden hesaplayarak kendi sistemlerinin saat dilimini görebilir.
Excel'in sihrini KUTOOLS AI ile keşfedin
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsini basit komutlarla grafiklere dönüştürün.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve anında uygulayın.
- Formül Yorumlama: Karmaşık formülleri bir çırpıda anlayın.
- Metin Çevirisi: Elektronik tablolarınızda dil bariyerlerini aşın.
En İyi Office Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi geliştirin ve verimlilikten önce hiç yaşanmamış bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okumayı etkinleştirin.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük üretkenliğinizi %50 artırır ve sizin için her gün yüzlerce fare tıklamasını ortadan kaldırır!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi; Excel, Word, Outlook ve PowerPoint için eklentileri ve ayrıca Office Tab Pro’yu içerir—bu da Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada kurulum tamamlanır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat-performans— tek tek eklenti satın alımına göre tasarruf edin