Textbox'lardaki değerlerin biçimlendirilmesi

[Ergün Güler]

Selam,
Ekteki dosyanın ana sayfasında USERFORM'un sağında bulunan "İNSÖRTLÜ ÜRETİM ÖZET BİLGİLERİ" başlığı altındaki textbox'lardaki değerlerin tam biçimlendiremedim.
TExtbox'lar "OperatörRaporu" adlı sayfanın G sütunundan besleniyor. G sütunda nasıl görünüyorlar ise öyle görünmesini istiyorum. Adet,Tane,KG,Kez gibi.
dosyamdaki birçoğu hatalı ve eksik görünüyor.
--------------------------------------------------
Selam,

konudaki soruya 6.sıradaki mesajda Sayın Evren Gizlen'in verdiği kod ile çözüm bulunmuştur.
Ekteki dosya güncellenmiştir.25.04.2010 16:15

 

[Orion1]

Excel de ayrı bir sütun değerlerin yanına açın
ve adet tane kg teneke kova fıçı bilgilerini oraya yazın.
O textboxların yanınada ihtiyaca göre combobox veya textbox koyun.Bilgileri orada gösterin.

 

[Ergün Güler]

Sayın Evren Gizlen,
Çok özür dilerim. Tam olarak anlayamadım. Örneklendirmemi istiyorsanız 1.mesajımdaki dosyayı güncelledim. Açılışta çıkan Userform'un sağındaki textbox'lara içinde sayılar var. yanlarında da nasıl görünmesi gerektiğini belirttim.

Textboxlar içindeki değerlerin nereden geldiklerini de belirttim.
İyi çalışmalar.

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[Ergün Güler]

Sayın Evren Gizlen,

İlginize çok teşekkür ederim. Ancak, Textbox içinde bir değişiklik yok. İstediğim görünümü textbox'ların solunda belirtmiştim.
ben aşağıdaki kodları denedim. bazıları oluyor. bazılarını yapamıyorum.

Private Sub TextBox1_Change()
TextBox1 = Format(TextBox1, " # Adet")
End Sub
Private Sub TextBox2_Change()
TextBox2 = Format(TextBox2, " # Tane")
End Sub
Private Sub TextBox3_Change()
TextBox3 = Format(TextBox3, " #,# Adet")
End Sub
Private Sub TextBox4_Change()
TextBox4 = Format(TextBox4, " #,###.0 KG")
End Sub
Private Sub TextBox5_Change()
TextBox5 = Format(TextBox5, " # KEZ")
End Sub
Private Sub TextBox6_Change()
TextBox6 = Format(TextBox6, " #.0")
End Sub
Private Sub TextBox7_Change()
TextBox7 = Format(TextBox7, " # Adet")
End Sub
Private Sub TextBox8_Change()
TextBox8 = Format(TextBox8, " # Tane")
End Sub
Private Sub TextBox9_Change()
TextBox9 = Format(TextBox9, " #.0")
End Sub
Private Sub TextBox10_Change()
TextBox10 = Format(TextBox10, " # Adet")
End Sub
Private Sub TextBox11_Change()
TextBox11 = Format(TextBox11, " # KEZ")
End Sub
Private Sub TextBox12_Change()
TextBox12 = Format(TextBox12, " #.0")
End Sub

Adet ve KEZ olanları yapabildim. Diğerlerini beceremedim.
Yardımcı olursanız çok sevinirim.

 

[Orion1]

Siz beni dinleyin.
Bırakın textboxın içini.
Tl ve tarih biçimlendirme dışında yapacağınızsiizn dediğiniz biçimlendirmeleri vba string olarak değerlendiriyor.Sonradan aritmetik bir işleme sokamazsınız onları.
Yani işlevsel olmazlar.Beni dinlerseniz zahmet çekmezsiniz.Sonra sil baştan çok uğraştırır sizi.Ben boşuna bir şey söylemem.
Ama illaki ben bunu istiyorum derseniz.
Aşağıda yazdığım kodu kendi dosyanıza uayrlayınız.
Kolay gelsin.
Bu textboxa veri alırken:

TextBox1.Text = Format(Range("A1").Value, "#,##0.00 Adet")

Buda textboxa sveri girdikten sonra
AfetrUpdate olayına

Private Sub TextBox1_AfterUpdate()
TextBox1.Text = Format(TextBox1.Text, "#,##0.00 Adet")
End Sub

 

[Ergün Güler]

Siz beni dinleyin.
Bırakın textboxın içini.
Tl ve tarih biçimlendirme dışında yapacağınızsiizn dediğiniz biçimlendirmeleri vba string olarak değerlendiriyor.Sonradan aritmetik bir işleme sokamazsınız onları.
Yani işlevsel olmazlar.Beni dinlerseniz zahmet çekmezsiniz.Sonra sil baştan çok uğraştırır sizi.Ben boşuna bir şey söylemem.
Ama illaki ben bunu istiyorum derseniz.
Aşağıda yazdığım kodu kendi dosyanıza uayrlayınız.
Kolay gelsin.
Bu textboxa veri alırken:

TextBox1.Text = Format(Range("A1").Value, "#,##0.00 Adet")

Buda textboxa sveri girdikten sonra
AfetrUpdate olayına

Private Sub TextBox1_AfterUpdate()
TextBox1.Text = Format(TextBox1.Text, "#,##0.00 Adet")
End Sub

Selam Sayın Evren Gizlen,
verdiğiniz 1.kod ile işimi gördüm. Çok teşekkür ederim. Çok sevindim gerçekten. uyarladığım kodlar şöyle:

TextBox1.Text = Format(Range("G5").Value, "#,## Adet")
TextBox2.Text = Format(Range("G6").Value, "#,## Tanee")
TextBox3.Text = Format(Range("G7").Value, "#,## Adet")
TextBox4.Text = Format(Range("G8").Value, "#,##0.0 KG")
TextBox5.Text = Format(Range("G15").Value, "#,## KEZ")
TextBox6.Text = Format(Range("G16").Value, "#,##0.00")
TextBox7.Text = Format(Range("G19").Value, "#,## Adet")
TextBox8.Text = Format(Range("G23").Value, "#,## Tanee")
TextBox9.Text = Format(Range("G26").Value, "#,##0.00")
TextBox10.Text = Format(Range("G29").Value, "#,## Adet")
TextBox11.Text = Format(Range("G33").Value, "#,## KEZ")
TextBox12.Text = Format(Range("G34").Value, "#,##0.00")

Çok ilginç birşey var. Önce hepsini yaptım. "Tane" olanlar "Tan" diye görünüyordu. sonu e olan birçok kelime denedim. sondaki e'yi hep göstermiyordu. Ben de "Tane" yerine "Tanee" girdim sorun düzeldi. e harfinin sırrı nedir?

Yukarıda bahsettiğiniz IT nedir?

yukarıda "vba string olarak değerlendiriyor" diyorsunuz ne demektir?

Çok sağolun. Emeğinize sağlık.

 

[Orion1]

Selam Sayın Evren Gizlen,
verdiğiniz 1.kod ile işimi gördüm. Çok teşekkür ederim. Çok sevindim gerçekten. uyarladığım kodlar şöyle:

TextBox1.Text = Format(Range("G5").Value, "#,## Adet")
TextBox2.Text = Format(Range("G6").Value, "#,## Tanee")
TextBox3.Text = Format(Range("G7").Value, "#,## Adet")
TextBox4.Text = Format(Range("G8").Value, "#,##0.0 KG")
TextBox5.Text = Format(Range("G15").Value, "#,## KEZ")
TextBox6.Text = Format(Range("G16").Value, "#,##0.00")
TextBox7.Text = Format(Range("G19").Value, "#,## Adet")
TextBox8.Text = Format(Range("G23").Value, "#,## Tanee")
TextBox9.Text = Format(Range("G26").Value, "#,##0.00")
TextBox10.Text = Format(Range("G29").Value, "#,## Adet")
TextBox11.Text = Format(Range("G33").Value, "#,## KEZ")
TextBox12.Text = Format(Range("G34").Value, "#,##0.00")

Çok ilginç birşey var. Önce hepsini yaptım. "Tane" olanlar "Tan" diye görünüyordu. sonu e olan birçok kelime denedim. sondaki e'yi hep göstermiyordu. Ben de "Tane" yerine "Tanee" girdim sorun düzeldi. e harfinin sırrı nedir?

Yukarıda bahsettiğiniz IT nedir?

yukarıda "vba string olarak değerlendiriyor" diyorsunuz ne demektir?

Çok sağolun. Emeğinize sağlık.

IT değil TL demek istedim.
Yani bu şekilde textboxlara veri girerseniz.Aritmetik işlem yapamazsınız textboxlraile.Örneğin bir textboxla diğer textboxı toplayamaz veya çarpamzsınız.Çünkü o adet ve diğer lerini metin olarak görüyor ve hataya düşüyr vba.

 

[Ergün Güler]

Sayın Evren Gizlen,
Asıl dosyamda Textboxlardaki değerlerin geldiği hücrelerde formüller var (G5,G6 v.s.) yine de sorun olmadı.
Ben textboxları sadece son görüntü olarak kullanıyorum.
teşekkürler.

 

[Ergün Güler]

Sayın Evren Gizlen 7.sıradaki mesajımdaki bahsettiğim "e" harfi sırrı nedir?
iyi çalışmalar.

 

[Orion1]

Sayın Evren Gizlen 7.sıradaki mesajımdaki bahsettiğim "e" harfi sırrı nedir?
iyi çalışmalar.

Bendede o şekilde davrandı.
Ama siz sanırım formatı yanlış kullanmışsınız.VBA'da kullanacağınız ondalık ayıraçlar ve binlik ayıraçlar ingiliz sistemine göredir.
Yani binlik ayıraç virgül,ondalıkj ayıracı ise nokta olarak kullanmanız lazımdı.
Oysa benim gördüğm kadarı ile siz tam tersini yapmışsınız.Oysa benim verdiğim örenk öyle değildi.
Ben nasıl örenk vermişsem o şekilde kullanmalısınız.Yoksa hatalı sonuçlar oluşur.
örnek aşaıdadır.

TextBox8.Text = Format(Range("G23").Value, "0.00 Tanee")