Tarih Değeri Yazarken Otomatik Ayraç Kullanımı

11 Mart 2022 911

Tarih Değeri Yazarken Otomatik Ayraç Kullanımı isimli kod, bir tarih değerini yazarken gün ve ay bilgisinden sonraki ayracı otomatik olarak kendisi ekler.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyBack Then
    If Len(Me.TextBox1) = 4 Then
        Me.TextBox1 = Left(Me.TextBox1, 2)
        KeyCode = False
    ElseIf Len(Me.TextBox1) = 7 Then
        Me.TextBox1 = Left(Me.TextBox1, 5)
        KeyCode = False
    End If
Else
    If Len(Me.TextBox1) = 2 Or Len(Me.TextBox1) = 5 Then
        Me.TextBox1 = Me.TextBox1 & "/"
    End If
End If

End Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> UserForm yazısına tıklayın.
  4. Solunda klasör simgesi olan Forms yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek olan UserForm(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

UserForm üzerine eklediğiniz bir TextBox nesnesine tarih yazarken, gün değerini yazdıktan sonra kullanmak istediğiniz ayraçı elle yazmanız gerekir. Çok küçük olan bu ayrıntı benim gibiler için takıntı yaratabilecek durumda olabilir. Bu tür küçük detaylara önem verenler, üstteki hazır kodları kullanarak tarih değerini yazarken, gün ve ay bilgisinden sonra gelen ayraç işaretinin otomatik olarak gelmesini sağlayabilirsiniz.

Tarih Değeri Yazarken Otomatik Ayraç Kullanımı

Kodlardaki ayraç karakteri olarak slash (/) işareti kullanılmıştır. Siz kendinize göre değiştirebilirsiniz.

Faydalanmanız temennisiyle.

Hazır Dosyayı İndir

Dosyayı indirmek için giriş yapmanız ve VIP Üyelik Paketine sahip olmanız gerekir.
50 Farklı Hazır Makro (VBA) Kodu
Boş Hücreleri Sıfırlarla Değiştirme
İçinde Bulunduğumuz AY Sayfasının Aktif Edilmesi
Satırı Kes Kopyala ve Yapıştır
Çalışma Sayfaları için Yakınlaştırma Yüzdesini Ayarlama
Excel Makro Modulü Silme Kodu
Bilgisayardaki Sürücü Sayısını Bulma
Makro Etkinletirilmezse Sayfalar Gizlenir
Excel Kitabındaki Sayfa Adlarının Listelenmesi
Sayıyı Çift ya da Çiftin Katı Yapma
Ondalık Sayıları Tam Sayıya Çevirme
Her Bir Sütundaki Maksimum Değeri Bulma
Toplu Satır Silme
Aktif Çalışma Sayfasını Koruma
Çalışma Kitabındaki Tüm Pivot Tabloları Yenileme
Seçimdeki Alternatif Satırları Vurgulama
Txt Dosyası Oluşturma
Seçili Aralığı PDF Olarak Kaydetme
Dizinde Klasör Araması Yapma
İki Sütundaki Değerleri Karşılaştırıp Ayrıştırma
Metin Sarmayı Kaldırma
İstenilen Şart Sağlanmıyorsa Kayıt Gerçekleşmesin
Roma Rakamlarını Normal Sayılara Dönüştürme
Cümle Durumuna Dönüştürme
Tek Hücreyi Kes Kopyala ve Yapıştır
Transparan UserForm Oluşturmak
Hücrenin Arka Plan Rengini Değiştirme
Tüm Çalışma Kitaplarını Aynı Anda Kapatma
Son Satır Numarasını Bulma
Son Dolu Satırın Bir Altına Yazdırma
Her Kapatma İşleminde Otomatik Olarak Kaydetme
Seçili Sütunların Sayısını Bulma
Excel Makroları İle Not Defterini Açmak
Excel ile Faiz Hesaplama Kodu
Sayıları Rastgele Karıştırmak
Makro ile Klasör Açma
Makro Çalışırken İmlecin Hareket Etmemesini Sağlama
Makrolar ile Klasördeki Dosyayı Taşıma
Çalışma Sayfalarını Ayrı PDF Olarak Kaydetme
Bilgisayardaki Sürücü İsimlerini Listeleme
Aktif Hücrenin Temel Bilgilerini Bulma
Kapanışta Sayfaların Otomatik Olarak Gizlenmesi
UserForm Nesnesine Otomatik Buton Ekleme
Makrolar ile Dosyaları Kopyalama
Şeffaf UserForm Oluşturma Kodu
Şarta Göre Satır Açma ve Renklendirme
Aktif Hücreye Günün Tarihini Yazma
Dosyanın Olduğu Dizin İsmini Bulma
Bir Kitaptaki Sayfaları Başka Kitaba Taşıma
Metinden Konuşma Oluşturma
Çalışma Kitabını E-Posta Ekine Ekleme

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...