userformda % ( yüzde ) gösterimi

[GKMER]

Userform üzerinde bulunan textbox, listbox veya combobox'larda rakamı % olarak nasıl gösterebilirim. Bu rakam excel sayfasına aktardığımda yüzde olarak işlem yapabilsin.

 

[zafer]

Merhaba


TextBox1.Value = Format(TextBox1, "0%")
Sheets("sayfa1").Range("a2").Value = TextBox1.Value

Textbox'a 2 yazarsanız 200% olarak gözükecektir
Textbox'a 0.01 yazarsanız %1 olarak gözükecektir

Saygılarımla

 

[GKMER]

Teşekkür Ederim.

 

[GKMER]

Sayın Zafer
Vermiş olduğunuz formatlama ile gösterme işi tamam ama bu sefer metin olarak görüyor hesap yapamıyorum.

 

[xxrt]

bu sefer metin olarak görüyor

Bu işi bir kaç yoldan yapabilirsiniz.

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Text = TextBox2.Text & "%"
[a1] = TextBox2.Text
End Sub

Private Sub TextBox1_Change()
[a1] = TextBox1.Text & "%"
End Sub

Gibi...
..
.

 

[zafer]

Merhaba

Sayın xxxt'in kodlarınıda deneyin.


Benim verdiğim Yukarıdaki kodu butona bağlayın

Butonu çalıştırdıktan sonra textbox1 deki değer A2 hücresine yazacaktır.
A3 hücresine =a2*5000 yazın deneyin

Siz sorunuzda bahsetmemişsiniz userformun içinde hesaplama yapacaksanız Tabiiki textbıx bir metin kutusu olduğu için işlem yapmıyacaktır.

texbox1.value*5 gibi
yerine
val(textbox1)*5 kullanın



Saygılarımla

 

[GKMER]

Son yazdığınız val(textbox1)*5 kullanımı o kadar çok işime yaradıki çok çok teşekkür ederim.

 

[nkumas]

Merhaba


TextBox1.Value = Format(TextBox1, "0%")
Sheets("sayfa1").Range("a2").Value = TextBox1.Value

Textbox'a 2 yazarsanız 200% olarak gözükecektir
Textbox'a 0.01 yazarsanız %1 olarak gözükecektir

Saygılarımla

peki 1 yazınca %1 gözteremiyor muyuz? bulamadım da...