Bu öğretici, VBA kullanarak tarihlerin nasıl biçimlendirileceğini gösterecektir.
Tarihleri VBA'da Biçimlendirin
VBA kullanarak tarihleri biçimlendirmenin iki yöntemi vardır.
- Hücrelerin / Aralıkların NumberFormat özelliği - Hücrelerde depolanan tarihleri biçimlendirmek için
- VBA Format işlevi - Tarihleri VBA'da biçimlendirmek için (ör. değişkenler)
NumberFormat - Tarihler
Excel'deki bir hücrenin varsayılan sayı biçimi Genel'dir. Sayı biçimini değiştirerek değerleri sayı, metin, tarih, yüzde veya para birimi olarak görüntüleyebilirsiniz. NumberFormat özelliği, bir hücre veya aralıktaki tarihlerin sayı biçimini ayarlamak için VBA'da kullanılabilir.
Not: Excel'de bulunan farklı standart tarih biçimlerini görmek için Ana Sayfa>Sayı'ya gidin ve Kısa Tarih, Uzun Tarih ve Saat gibi seçenekleri göreceksiniz.
Kısa tarih
Kısa tarih numarası biçimlendirme seçeneği, tarihi kısa, sayısal bir biçimde görüntüler.
Aşağıdaki kod, A1 hücresinin .NumberFormat özelliğini Kısa tarih olarak ayarlayacaktır:
| 1 | Aralık("A1").NumberFormat = "aa/gg/yyyy" |
Uzun Tarih
Uzun tarih sayı biçimlendirmesi, tarihi daha uzun, yazılı bir biçimde görüntüler. Aşağıdaki kod, A1 hücresinin .NumberFormat özelliğini Uzun tarih olarak ayarlayacaktır:
| 1 | Aralık("A1").NumberFormat = "dddd, mmmm gg, yyyy" |
Özel tarihler
VBA'da tarihleri biçimlendirmek için kullanabileceğiniz özel sayı biçimi kodlarını görmek için Ana Sayfa>Sayı'ya gidin ve İletişim Kutusu Başlatıcı'yı tıklayın. Sayı sekmesini seçin ve Özel'i seçin.
Tarihiniz için özel yerleşik biçimleri seçebilir veya kendi kullanıcı tanımlı tarih biçimlerinizi oluşturabilirsiniz. Aşağıdaki kod, A1 hücresinin .NumberFormat özelliğini yerleşik bir özel tarih biçimine ayarlar:
| 1 | Aralık("A1").NumberFormat = "aa-yy" |
Sonuç:
Aşağıdaki kod, A1 hücresinin .NumberFormat özelliğini kullanıcı tanımlı özel bir tarih biçimine ayarlayacaktır:
| 1 | Range("A1").NumberFormat = "dddd-dd-aa-yy" |
Sonuç:
Excel'in önceden oluşturulmuş örneklerini inceleyerek NumberFormats'ın nasıl girilmesi gerektiğini öğrenebilirsiniz. Daha fazla bilgi için Microsoft'un tarihler için sayı biçimleriyle ilgili belgelerini okuyun.
VBA Biçim İşlevi
Yukarıda belirtildiği gibi, NumberFormat yöntemi, Excel hücrelerinde depolanan tarihlerin Numberformat'ını ayarlamak için uygundur. VBA'da, tarihleri belirli tarih biçimlendirmesiyle dizelere dönüştürmek için Biçim İşlevini kullanabilirsiniz.
Tarihleri biçimlendirmek için aşağıdaki sözdizimini kullanırsınız:
Format(String_Representation, NumberFormatCode) burada:
String_Representation - tarihi temsil eden metin dizesi.
NumberFormatCode - tarihin nasıl görüntüleneceğini belirten sayı biçimi kodu.
Aşağıdaki kod, bir tarihin metin dizesi gösteriminin uzun tarih biçimi olarak nasıl biçimlendirileceğini gösterir:
| 1 | MsgBox Format("1/1/2010", "ggdd, mmmm gg, yyyy") |
Sonuç:
Biçim İşlevinin yukarıdaki NumberFormat ile aynı tarih biçimlendirme sözdizimini kullandığına dikkat edin.
Aşağıdaki kod, bir tarihin metin dizesi gösteriminin orta tarih biçimi olarak nasıl biçimlendirileceğini gösterir:
| 1 | MsgBox Formatı("09 Ekim 2012", "Orta Tarih") |
Sonuç:
Aşağıdaki kod, bir tarihin metin dizesi gösteriminin kullanıcı tanımlı bir biçim olarak nasıl biçimlendirileceğini gösterir:
| 1 | MsgBox Format("09 Ekim 2012", "dddd: gg/aa/yy") |
VBA Özel Biçim Oluşturucu
VBA Eklentimiz: AutoMacro, VBA Düzenleyicisi için bir Özel Biçim Oluşturucu içerir. Bu, özel biçimleri ayarlamanıza ve istediğiniz değer için çıktıyı hemen önizlemenize olanak tanır:
VBA Eklentisi, çok sayıda başka “Kod Oluşturucu”, kapsamlı bir kod kitaplığı ve çeşitli başka kodlama araçları içerir. VBA programlama konusunda ciddi olan herkes için nihai eklenti!
Access'te VBA Biçimi Tarihi
VBA Format Date işlevi, Access VBA'da Excel VBA'dakiyle tamamen aynı şekilde çalışır.
| 12345678910 | İşlev GetDateFilter() As String'Access'te bir formdaki 2 tarih alanından bilgi almak için bir dize oluşturunDim strDateField As StringEğer IsNull(Me.txtSDate) = False O zamanIsNull(Me.txtEDate) = True ise Me.txtEDate = Me.txtSDatestrDateField2 = "" iseGetDateFilter = strDateField & " Arasında #" & Format(Me.txtSDate, "aa/gg/yyyy") & "# Ve # " & Format(Me.txtEDate, "aa/gg/yyyy") & "#"BitirBitirBitiş İşlevi |
