Textbox Format

[AlpGD]

Herkese selam,

Yaklaşık 6 ay önce bu forum ile tanıştım. Burada gördüğüm excel örnekleri çok hoşuma gitti ve zaten gerek duyduğumuz birkaç konuda birşeyler yapmaya çalıştım. O günlerde Leventm hocam ile görüşmüştük pm ile birkaç konuda soru yöneltmiştim ve sağolsun kendisi de yardımcı olmuştu. Daha sonra hem fazla rahatsızlık vermemek adına hem de en iyi öğrenme yolunun sürekli biryerlere danışmaktan vazgeçip konuyu anlamaya çalışmak olduğunu hatırladığım için forumu takip ederek bir çalışma yaptım.

İşlerimin yoğunluğu nedeniyle temmuz gibi bıraktığım çalışmama ancak bu günlerde devam etme fırsatı buldum ancak aradan geçen zaman öğrendiğim 2-3 şeyi de unutmama neden olmuş.

Sadede gelecek olursak aşşağıda eklediğim dosyada bir sorunum var, textboxları yazarken veya sonraki işlemlerde formatlandırmıştım lakin örnekte de göreceğiniz üzere Z çağır dediğim zaman geri gelen verilerde tekrar formatlama yapıldığı için saçma sapan toplamlar alıyorum.

Leventm hocanın Aritmetik2 örneğini de diğer arkadaşların yazdıklarını da inceledim fakat bir türlü işin içinden çıkamadım

Şimdi merak ettiğim verdiğim örnekteki tüm textboxlara TL formatı uygulanabilir mi? Daha doğrusu nasıl uygulanır

Son olarak çalışmamı inceleyen üstadlardan şöyle bir göz atıp yorum yapmalarını ve yardımcı olmalarını rica edecem. Biliyorum bazı yerlerde işi çok uzatıp gereksiz kodlar kullanmış olabilirim ve bu nedenle form ilk açıldığında bilgisayarı bayağı kasıyor.

İlginize teşekkürler.

Dosya


​

 

[alpi]

Formatlama için aşağıdaki linki inceleyin

http://excel.web.tr/showthread.php?t=24768&highlight=FormatCurrency

 

[alpi]

Dosyanızda renklendirmeler olduğunda boyut: 3286
Renklendirmeler kaldırıldığında boyutu: 402

Bu demek oluyor ki, eğer renklendirmeleri kaldırırsanız dosyanız daha hızlı açılacaktır.

Ayrıca anaform'un görünümü çok karmaşık, gereksiz renklendirmeler görünümü olumsuz etkilemiş.

Bunun dışında sizinde belirtttiğiniz gibi kodlarınızı gereksiz yere çok yerde uzatmışsınız.
Örneğin ToogleButton ları için yazdığınız kodları tek bir prosedürde toplayabilirdiniz aşağıdaki gibi

Private Sub ToggleButton1_Click()
     TekProsedur ToggleButton1, TextBox7
End Sub
Private Sub ToggleButton2_Click()
     TekProsedur ToggleButton2, TextBox8
End Sub
Private Sub ToggleButton3_Click()
     TekProsedur ToggleButton3, TextBox9
End Sub
Private Sub ToggleButton4_Click()
     TekProsedur ToggleButton4, TextBox10
End Sub
Sub TekProsedur(TButton As ToggleButton, txt As TextBox)
     If TButton.Value = True Then
          txt.Value = TextBox7.Value
     Else
         txt.Value = ""
     End If
End Sub

 

[AlpGD]

Sayın Alpi ilginiz için çok teşekkür ederim lakin sanırım sorunumu tam olarak anlatamadım

Verdiğiniz linkteki örneği inceleyip uyguladım fakat bu textboxlara YTL eklemeye yarıyor. Halbuki ben formatlanmış değere tekrar format atılması sorunundan bahsetmek istemiştim.

Örneğim userform1 de "Z çağır" dedikten sonra gelen verileri düzeltip kaydetmek istiyorum fakat gelen veriler tekrar formatlandırıldığından hatalı sonuçlar çıkıyor.

Kodlara dikkat ederseniz bir sürü yerde formatlandırma yazmak zorunda kaldığımı göreceksiniz. Acaba bunlardan kurtulup Class dosyası ile bunu çözebilir miyim ?

Togglebutton örneği için de ayrıca teşekkürler fakat ben zaten formda 3 tane toggle button kullandım ve onlar da textboxlardan farklı caption lar alıyorlar.

Renkler konusunda haklısınız, amacım girişleri ve verileri kategorize etmekti

 

[alpi]

Sırasıyla yapmam gereken işlemleri söyler misiniz? Yani hatalı formatlandırma hangi işlemleri yapınca oluyor.

 

[AlpGD]

Sırasıyla yapmam gereken işlemleri söyler misiniz? Yani hatalı formatlandırma hangi işlemleri yapınca oluyor.

userform1 açılınca örneğin tarih hanesinden 13.01.2007 yi, kasa 1 ve x raporunu seçip z çağır dermisiniz

burada o güne ait hesap bilgilerini çağırıyorum ve togglebutton a tekrar tıklayınca düzeltip üzerine kaydediyorum. yani hem bir yerde rapor hem de edit alanı olarak kullanıyorum.

raporu çağırdıktan sonra gelen rakamlara dikkat edin lütfen, özellikle Toplam Kredi alanına, daha sonra HESAPLA denildiğinde farklı toplamlar çıkıyor.

 

[AlpGD]

Sanırım bakmaya fırsatınız olmadı.

 

[Seyit Tiken]

Ben sadece görüşümü söylüyorum. Soru, yapılan proğram mantığı ile sorulduğu zaman anlaşılması güçleşiyor. Sorunun başlığına bakıldığı zaman, insana basit gibi geliyor. Benim önerim, sorun büyükse, ya parça parça sorun yada net ve kısa bir şekilde sorunki; probleminiz hal olsun.

 

[AlpGD]

Ben sadece görüşümü söylüyorum. Soru, yapılan proğram mantığı ile sorulduğu zaman anlaşılması güçleşiyor. Sorunun başlığına bakıldığı zaman, insana basit gibi geliyor. Benim önerim, sorun büyükse, ya parça parça sorun yada net ve kısa bir şekilde sorunki; probleminiz hal olsun.

Haklısınız programa göre çözüm bulmak uğraştırıcı ve zaman alacaktır.

Ben syn. Alpi ye istediğim şeyle ilgili örnek olsun diye örneği vermiştim.

Temel olarak öğrenmek istediğim şey ise;

Textboxların tamamını yazdıktan sonra ytl formatına çevirecek bir modül.

textboxlara parasal rakam girince ,00 formatını alması, diyeceksiniz ki forumda bununla ilgili birçok örnek var, doğrudur lakin yaptığım uygulamada Syn. Leventm in aritmetik2 gibi örneklerindeki class modül ile formatlandırmayı tüm textboxlara uygulayamadım çünkü zaten o uygulamanın bir kısmında textboxlar aynı modül ile toplamı yapıyor, yani orada kullandığım kod

Public WithEvents txt As MSForms.TextBox
Private Sub txt_Change()
On Error Resume Next
UserForm1.deg = txt.Name
If IsNumeric(txt) = False Then
SendKeys "{bs}"
Exit Sub
End If
For a = 1 To 6
deg = UserForm1.Controls("textbox" & a)
If UserForm1.Controls("textbox" & a) = "" Then deg = 0
topla = deg * 1 + topla
Next
UserForm1.TextBox12 = Format(topla, "#,##0.00")
End Sub

a =1 to 20 desem toplama yapacağı bölgeyi genişletmiş oluyorum.

bu modül dışında tüm textboxları nasıl biçimlendirebilirim.

Ayrıca excelden verileri textboxlara geri çağırınca nokta ve virgül değişimini yapmama rağmen veriler yanlış algılanıyor.

İlginize teşekkürler...
​

 

[alpi]

Sayın AlpGD uygulamanızı inceleyip anlamaya çalıştım fakat bana o kadar karmaşık geldi ki artık pes edip bıraktım. Belki benim anlama kabiliyetimden kaynaklanıyor ama inanınki bana çok karmaşık geldi. Sayın Seyit Tiken'in dediği çok doğru kendisine katılıyorum. Sizede kod yazma konusunda yardımcı olabilmek için VBA’da Kod Düzeni ve Kod Yazmaya Dair İpuçları linkini incelemenizi öneriyorum.
İyi çalılmalar.

 

[AlpGD]

Sayın AlpGD uygulamanızı inceleyip anlamaya çalıştım fakat bana o kadar karmaşık geldi ki artık pes edip bıraktım. Belki benim anlama kabiliyetimden kaynaklanıyor ama inanınki bana çok karmaşık geldi. Sayın Seyit Tiken'in dediği çok doğru kendisine katılıyorum. Sizede kod yazma konusunda yardımcı olabilmek için VBA’da Kod Düzeni ve Kod Yazmaya Dair İpuçları linkini incelemenizi öneriyorum.
İyi çalılmalar.

Teşekkür ederim Syn. Alpi

haklısınız karışık. öneriniz için de teşekkürler fakat incelemiştim.

Yine de ilgilendiğiniz için teşekkür eder iyi çalışmalar dilerim.