makro yardımıyla formül hesaplama

[ugurakin]

iki adet textbox um var. birincisine 123456789 değerini girdiğimde ikinci textbox a girdiğim değerin 16' lık düzene göre sonucunu yazdırmak istiyorum. örneğin excel sayfasında A1 hücresine 123456789 yazıp B1 hücresine de =DEC2HEX(A1) formülünü yazdığımda sonucu alıyorum benim istediğim bu işlemin makro yöntemini öğrenmek.

 

[Haluk]

Range("A1") = Hex(TextBox1.Value)

 

[ugurakin]

peki Haluk Bey, sizi hazır yakalamışken bir sorum daha olacak.

TextBox1 = StrConv(TextBox1, vbUpperCase)

makrosuyla textbox a girilen karakter büyükharf e çevriliyor. textbox a giriş yaparken "i" harfine bastığımda "I" olarak işlem görüyor. "İ" harfini nasıl elde edebilirim?
unutmadan cevabınız için de teşekkürler.

 

[ugurakin]

arkadaşlar, soruma cevap verecek var mı?

 

[Haluk]

Private Sub TextBox1_Change()
    For i = 1 To Len(TextBox1)
        x = x & WorksheetFunction.Proper(Mid(TextBox1, i, 1))
    Next
    TextBox1 = x
End Sub

 

[ugurakin]

işimi gördü.
sağolun...
kolay gelsin.

 

[AstalaVİsta33]

daha yeniyiz

 

[hbpogretmen]

Arkadaşlar bir sorum var cevapalrsanız şimdiden teşekür ederim.Texbox 'lardaki sayının ,örneğin 1.335,45 şeklinde görülmesi için ne yapmayılm.Benim yaptığım texboxta ise 1335,45 gözüküyor......Birde bir sorum iki tektboxun farkını nasıl alabilirim userform üzerinde...

 

[Levent Menteşoğlu]

Birinci sorunuz için aşağıdaki kodu textboxa yazarak deneyin.

[vb:1:a636622c35]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "#,##0.00")
End Sub
[/vb:1:a636622c35]

İkinci sorunuz içinde iki textboxun farkını nereye yazdıracaksınız. Yani bir başka textboxamı, labellamı gibi

 

[a_self_lion]

sayın leventm burda textbox1 i formu açtığımız zaman .00 şeklinde görsek biz değer yazınca da yazdıklarımız sola doğru gitse ve binde olunca virlgül koysa mümkünmüdür acaba