Textbox Yüzde format sorunu

[yakup123]

Merhaba Arkadaşlar
ekte ki dosyada bir textbox var ve ben bu textboxun
change olayına yazdıkça yüzdelik olarak formatlamasını istiyorum
örneğin ben 1,77 yazarken yada yazdıktan sonra 1,77% olsun sonuna koysun bi türlü yapamadım sürekli %%%%%% diye hata veriyor
saygılarımla

 

[yakup123]

yardımcı olabilecek varmı acaba

 

[yakup123]

tekrar merhaba arkadaşlar
dosyada kodları yazarak daha anlaşılabilir hale getirdim
ekteki yeni dosyada gördüğünüz gibi Textbox 1 e girdiğim indirim oranlarını bulup renklendiriyor ama sonundaki % işaretini her seferinde elle koyuyorum ben yazdığım zaman 1,77 sonuna kendisi koyamaz mı acaba % biçimini
saygılarımla

 

[Emir Hüseyin Çoban]

. . .

Şu şekilde deneyiniz. Yine % işareti yazmayın.

Private Sub TextBox1_Change()
For Each x In Range("C2:C14")
If x.Text Like TextBox1.Text & "%" Then
x.Interior.Color = vbRed
Else
x.Interior.Color = xlNone
End If
Next


End Sub

. . .

 

[yakup123]

hüseyin hocam merhaba
ellerinize sağlık çok güzel çalışıyor
saygılarımla