[Yardım]  TextBox1'a girilmiş sayıyı virgüllü göstermek

Metin Kutucuğu. Bir programcının olmazsa olmazlarındandır.

TextBox1'a girilmiş sayıyı virgüllü göstermek

İleti#1)  murataras-48 » 14 Haz 2022 18:28

Merhaba arkadaşlar,ekte gönderdiğim dosyadaki menüde bulunan ilk TextBox1'a yazdığım rakam tam sayı olarak yazılıyor.bir türlü küsürlü yapamadım.Yani: 10.550,25 TT. gibi yazıp o meblağın %18 kdv sini bulmam lazım.Şimdiden teşekkürler.Bunuda bir arkadaştan aldım üzerinde biraz değişlik yaptım elimden geldiğince.Herkesin emeğine sağlık
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
murataras-48
Yeni Başlamış
 
Kayıt: 20 Kas 2015 11:44
Meslek: memur
Yaş: 56
İleti: 89
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Muğla/Köyceğiz

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: TextBox1'a girilmiş sayıyı virgüllü göstermek

İleti#2)  halily » 14 Haz 2022 19:01

dosyanın kısa yolunu eklemişsiniz)
Kullanıcı avatarı
halily
Site Dostu
 
Kayıt: 23 May 2019 13:16
Meslek: yok
Yaş: 42
İleti: 919
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: TextBox1'a girilmiş sayıyı virgüllü göstermek

İleti#3)  murataras-48 » 14 Haz 2022 19:22

Özür dilerim hiç farkında değilim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
murataras-48
Yeni Başlamış
 
Kayıt: 20 Kas 2015 11:44
Meslek: memur
Yaş: 56
İleti: 89
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Muğla/Köyceğiz

Cevap: TextBox1'a girilmiş sayıyı virgüllü göstermek

İleti#4)  okutkan » 15 Haz 2022 00:40

Textbox1 ve textbox2 kodlarını aşağıdaki gibi değiştirin.
İki koddaki ekleme/Değişiklik: Case Asc(",")
Kod: Tümünü seç
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case Asc("0") To Asc("9")
        Case Asc(",")
        Case Else
        KeyAscii = 0: MsgBox "SADECE RAKAM GİREBİLİRSİNİZ.", vbExclamation, "Dikkat !"
    End Select
End Sub

Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case Asc("0") To Asc("9")
        Case Asc(",")
        Case Else
        KeyAscii = 0: MsgBox "SADECE RAKAM GİREBİLİRSİNİZ.", vbExclamation, "Dikkat !"
    End Select
End Sub
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: Excel Developer
Yaş: 30
İleti: 1774
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: TextBox1'a girilmiş sayıyı virgüllü göstermek

İleti#5)  murataras-48 » 15 Haz 2022 10:32

--)( Çok teşekkürler bilgi paylaşılırsa çoğalır.
Kullanıcı avatarı
murataras-48
Yeni Başlamış
 
Kayıt: 20 Kas 2015 11:44
Meslek: memur
Yaş: 56
İleti: 89
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Muğla/Köyceğiz


Forum TextBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe