INPUTBOX a bilgi girişi yapılırken biçimlendirme yapılabilirmi?

[ceysuhan]

Arkadaşlar INPUTBOX a bilgi girişi yapılırken, örneğin 100000 i 100 000 veya 100.000 gibi gösterebilirmiyiz. Bu linkteki makroyu çalıştıramadım nasıl yapılacağını tarif edebilirmisiniz.
https://forum.donanimhaber.com/textbox-a-veri-giris-aninda-ytl-para-formati--15113519

 

[alicimri]

Inputbox ile sadece sayı girilir gibi bir şey yapabilirsiniz. Görünüşünü formatlayamazsınız.
Userform kullanın aşağıdaki kod ile formatlaybilirsiniz.

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
TextBox1.Value = Format(TextBox1.Value, "#,##0")
End Sub

 

[ceysuhan]

Çok teşekkür ederim tam istediğim gibi olmuş.

 

[alicimri]

Kodu aşağıdaki gibi düzenlerseniz, sayısal değer dışında harf filan girilmez.

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode >= 96 And KeyCode <= 105 Then
TextBox1.Value = Format(TextBox1.Value, "#,##0")
Else
TextBox1.Value = Left(TextBox1.Value, Len(TextBox1) - 1)
End If
End Sub

 

[ceysuhan]

Bu da çok güzel olmuş ellerinize sağlık.

 

[ceysuhan]

Bu makro ile textbox1 deki veriyi bir hücreye yazdırıyorum sorunum şu;
Sayı 1 000 000 dan küçük ise 3 sıfır eksik yazıyor ama 1 000 000 büyük ise Textbox1 deki sayıyı aynen yazıyor. Bu sorunu çözmek için makroda nasıl bir değişiklik yapmam lazım. Yardımlarınız için şimdiden teşekkür ederim.