Bu dosya, VBA ile yazılmış MonthNames özel fonksiyonunu içerir. Fonksiyon, ay kısaltmalarını (Jan, Feb, Mar ... Dec) hücrelere yatay dizi, dikey dizi veya ay numarasına göre tek değer olarak getirir. Ay adı listesi gereken şablonlarda, başlık satırlarında ve açılır liste kaynaklarında kullanılabilir.
D3 hücresinde 0 veya negatif bir değer verildiğinde liste dikey dizi olarak döner:
1 ve üzeri bir sayı verildiğinde yalnızca o aya ait kısaltma döner. 12'den büyük sayılar başa sarar; örneğin 13 değeri Jan sonucunu verir.
Dosyanın içeriği
- Tek çalışma sayfası vardır; A1:L14 aralığında örnek kullanım yer alır.
- A1 hücresinde fonksiyon parametresiz çağrılır ve ay kısaltmaları yatay olarak soldan sağa sıralanır (Jan, Mar, May, Jul, Sep, Nov değerleri A, C, E, G, I, K sütunlarında görünür).
- D3 hücresinde fonksiyon -1 parametresiyle çağrılır; sonuç dikey dizi olarak aşağı doğru yayılır. A3 hücresinde ise 1 değeri yer alır.
Kullanılan formüller
A1 hücresinde parametresiz çağrı, 12 ay kısaltmasını yatay dizi olarak döndürür; dizi formülü olarak A1:L1 aralığına girilir:=monthnames()
=monthnames(-1)
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Module1 modülünde tek bir fonksiyon bulunur:- MonthNames: İsteğe bağlı MIndex parametresi alır. Parametre verilmezse 12 ay kısaltmasını içeren diziyi döndürür. Parametre 1 veya daha büyükse ((MIndex - 1) Mod 12) işlemiyle ay sırasını bulur ve ilgili kısaltmayı verir. Parametre 0 veya negatifse diziyi Application.Transpose ile dikey hale getirir.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- Yatay liste için bir satırda 12 hücre seçip fonksiyonu parametresiz yazın ve dizi formülü olarak onaylayın.
- Dikey liste için 12 hücrelik bir sütun seçip fonksiyonu 0 veya negatif parametreyle girin.
- Tek bir ay için fonksiyona 1 ile 12 arasında bir sayı veya ay numarası içeren hücre adresini verin.
- Fonksiyonu başka bir dosyada kullanmak için Module1 modülünü o dosyaya aktarın ve dosyayı .xlsm olarak kaydedin.