Textbox'a Üslü Yazma

[ahmed_ummu]

Merhaba arkadaşlar.

Aşağıdaki mantıkla Textbox Exit özelliğine üslü yazdırabilir miyiz. 134³ gibi. Aşağıdaki kod ile Textbox'a rakamı girince False yazıyor.

TextBox13.Text = (TextBox13.Text & KeyAscii = 179)

 

[muygun]

Merhaba;

Private Sub TextBox13_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox13 = TextBox13 & "³"
End Sub

Şeklinde deneyin.
İyi çalışmalar.

 

[ahmed_ummu]

Merhaba;

Private Sub TextBox13_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox13 = TextBox13 & "³"
End Sub

Şeklinde deneyin.
İyi çalışmalar.

Teşekkürler sayın muygun, bu şekilde oldu.

 

[Haluk]

Alternatif;

TextBox13 = TextBox13 & Chr(179)

.

 

[ahmed_ummu]

Alternatif;

TextBox13 = TextBox13 & Chr(179)

.

Çok teşekkürler Haluk bey.