Dosya simgesi

Tarihi yıla dönüştürme

Bu dosya, seçilen hücrelerdeki tarih değerlerini yalnızca yıl bilgisine dönüştüren bir makro içerir. Tarih sütunundaki her değer, ilgili yıl sayısıyla (örneğin 2021) değiştirilir.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Dosya .xlsm biçimindedir.

Dosyanın içeriği​

  • Sheet1: F2 hücresinde "Resme Tıklat" yazısı bulunur. F10 hücresinde dosyanın adını gösteren formül yer alır.
  • Module1: date2year makrosunu ve FileName fonksiyonunu barındıran VBA modülüdür.

Kullanılan formüller​

F10 hücresinde, çalışma kitabının dosya adını döndüren özel fonksiyon çağrılır:
Excel formülü
=FileName()
FileName fonksiyonu VBA ile yazılmıştır ve ThisWorkbook.Name değerini verir.

Makrolar​

  • date2year: Seçili alandaki hücreleri tek tek dolaşır. Önce seçimin değerini kendi üzerine yazarak biçimlendirme kaynaklı görünümü gerçek değere çevirir. Ardından hücre tarih olarak tanınıyorsa Year fonksiyonuyla yıl sayısını hücreye yazar ve sayı biçimini "0" yapar. Tarih olmayan hücrelere dokunmaz.
  • FileName: Çalışma kitabının adını döndüren fonksiyondur; F10 hücresinde kullanılır.
Makro kodunda dosya silme veya dışarıya bağlantı gibi işlem yoktur. Makro yalnızca seçili hücrelerin değerini değiştirir.

Nasıl kullanılır​

  1. Dosyayı açın ve makroları etkinleştirin.
  2. Dönüştürmek istediğiniz tarihlerin bulunduğu hücreleri veya sütunu seçin.
  3. Excel'de Alt+F8 tuşlarına basın, date2year makrosunu seçip Çalıştır'a tıklayın.
  4. Seçili tarihler yıl sayısına dönüşür.
  5. Kendi çalışma kitabınızda kullanmak için Module1 içeriğini o kitaba kopyalayabilirsiniz.
Makro, hücreleri doğrudan değiştirir ve işlem geri alınamaz; bu nedenle çalıştırmadan önce verinin bir kopyasını saklayın.

ExcelDepo tarafından daha fazla dosya

Detaylar
Yazar
ExcelDepo
İndirme
11
Gösterim
1,923
İlk sürüm
Güncel
SHA-256
17dd5d3a986ce1264593ff586c8af3b2f992fa1aa36fc994457f7fe4f9d6db1a

Puanlar

5.00 Oylama 1 İnceleme
Geri
Üst