textbox formatı hakk

[Amaxx]

arkadaşlar textbox la ilgili konular buldum ama userform içinde genele (modül veya class) yazılmış bir textbox formatı bulamadım. ben B sütunundan aldığım rakamları 124.144,856 yı .........124.145 olarak görüntülensin istiyorum. uf da 144 adet textbox var.....

 

[metinozlu]

clasmodule 1
Public WithEvents txt As MSForms.TextBox
Private Sub txt_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
On Error Resume Next
UserForm2.Controls("" & [hz1]).BackColor = vbWhite
End Sub
Private Sub txt_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
txt.BackColor = vbYellow
[hz1] = txt.Name
End Sub
Private Sub txt_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal y As Single)
On Error Resume Next
UserForm2.Controls("" & [hz1]).BackColor = vbWhite
End Sub
Private Sub txt_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal y As Single)
txt.BackColor = vbYellow
[hz1] = txt.Name
End Sub

classmodüle2

Public WithEvents txttt As MSForms.TextBox


Private Sub txtt_Change()
[hz1] = txtt.Name
UserForm2.Controls("" & [hz1]).BackColor = vbBlue
End Sub

 

[Orion1]

Buyurun kodunuz.
Kendinize uyarlayınız.

TextBox1.Value = Format(WorksheetFunction.RoundUp(Range("B1").Value, 0), "#,##0")

 

[metinozlu]

bu kodlar textbox a girildiği zaman rengini mavi ,çıkınca eski rengine döner.
bu kodlar üzerinde değişiklikler yaparak istediğin sonuncu alabilirsin.

 

[Amaxx]

arkadaşlar deniyorum hata veriyor....nedendir? ekte dosyamı yolluyorum....

 

[metinozlu]

class modül yapılmış dosya ektedir.
yanlız format konusunda üstadların ekleme yapması gerekiyor.