TextBox Nesnesinde Kuruş Göstermek

14 Şubat 2021 14 Şubat 2021 1047

Textbox Nesnesinde Kuruş Göstermek isimli kodu kullanarak, sayfa ya da UserForm üzerindeki TextBox nesnesinde rakamların kuruşlu olarak gösterebilirsiniz.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1 = Format(TextBox1, "###,###.00")
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. Microsoft Excel Objects yazısının solundaki + simgesini tıklayın ve hangi sayfada deneme yapacaksanız, o sayfanın adının üstüne çift tıklayın.
  4. Üstteki kodu yapıştırın.

Kod Açıklaması

TextBox'ta kuruşlu rakam göstermenin en kolay yolu olarak bu kodu kullanabilirsiniz.

50 Farklı Hazır Makro (VBA) Kodu
Grafik Türünü Değiştirme
Hücredeki Değişikliklerin Kaydını Tutma
Aktif Hücrenin Üstüne Satır Ekleme
Hücre İçerisine Kelime Ekleme
Makro ile Açılan Liste Oluşturma
Sayfadaki Ad Tanımlamaları Silme
Belli Sütunlarda Alfabetik Sıralama
Çalışma Kitabının Kaç Kez Açıldığını Öğrenme
Excel Makroları İle Not Defterini Açmak
Satır Yüksekliklerini Otomatik Ayarlama
Yazı Efekti Verme Kodu
Excel Satır Silme Kodu
ListBbox ve ComboBox Satır Kaydırma
Makro ile Dosya Açma
Hangi Günde Olduğunu Bulma
Bir Çalışma Kitabında Kaç Sayfa Var
Sayfadaki Grafikleri Yeniden Boyutlandırma
Excel Açılırken Otomatik İşlem Yaptırma
İçinde Bulunduğumuz Günü Bulma
Her Bir Sütundaki Maksimum Değeri Bulma
Seçimdeki Alternatif Satırları Vurgulama
Hoş Geldiniz Mesajı Ekleme
Otomatik Sıra Numarası Ekleme
Ekran Çözünürlüğünü Bulma
Seçili Aralığı PDF Olarak Kaydetme
Sayıları Yeni Bir Sayıyla Çarpma
Dosyanın Olduğu Dizin İsmini Bulma
Seçili Alandan İstenilen Karakteri Kaldırma
Hatalı Hücreleri Renklendirme
Sayıların Önündeki Tek Tırnak İşaretini Kaldırma
A1 Referans Stilini Etkinleştirme
Yardım Menüsünü Açma
Bir Hücreye Çift Tıklayınca UserForm Açılsın
Bir Aralıktaki Minimum Değeri Renklendirme
TextBox Nesnesinde Kuruş Göstermek
Kullanılan Tüm Sütunları Otomatik Sığdır
Makro Etkinleştirilmeden Sayfalar Görüntülenmesin
Kapanış Mesajı Ekleme
Son Dolu Satırı Başka Sayfaya Kopyala
Tüm Boş Çalışma Sayfalarını Silme
UserForm Kapatma Kodu
Makro ile Klasör Açma
Excel Üzerinden Klasör Açma Kodu
ComboBox Nesneleri ile Toplama Yapma
Metni Tersten Yazdırma
Dizileri Döngüye Eklemek
Tek Sütunu Kes Kopyala ve Yapıştır
Toplama İşlemi Yapan Kullanıcı Tanımlı Fonksiyon
Şarta Göre Satır Açma ve Renklendirme
Gizlenmiş Makro Örnekleri

Daha önce yorum yapılmamış!

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