TextBox'da 3/4 sorunu.

[vardar07]

Merhaba arkadaşlar texboxta 3/4 olarak hücreye aşağıdaki kod ile yazdırıyorum.
Geri bul deyince textbox ta 0,75 olarak geliyor. 3/4 olarak gelmesi için kod'da ne gibi değişiklik yapmam gerekiyor.Şimdiden teşekkürler.

Kullandığım kod:

Cells(vardar, 6) = TextBox6.Text

Private Sub UserForm_Initialize()               
TextBox6.Text = Cells(vardar, 6)
End Sub

 

[mancubus]

böyle olması lazım.

Private Sub UserForm_Initialize()               
TextBox6.Text = Application.Text(Cells(vardar, 6), "# ?/?")
End Sub

 

[vardar07]

böyle olması lazım.

Private Sub UserForm_Initialize()               
TextBox6.Text = Application.Text(Cells(vardar, 6), "# ?/?")
End Sub

Çok teşekkür ederim. Sağ olasın.