basit bir toplama-çıkarma işlemi ama !....

[Altay3555]

Private Sub TextBox244_Enter()
TextBox244 = CInt(TextBox195 + TextBox207) - (CInt(TextBox208 + TextBox220))
End Sub


buradaki amaç 244 e toplam almak....
195 elde olan(toplanacak)
207 gelen(toplanacak)
208 kırılan (çıkarılacak)
220 yok olan (çıkarılacak)


244=(195+2007)-(208+220)
CInt la yapamadım.................

 

[fedeal]

Private Sub TextBox244_Enter()
TextBox244 = CInt(TextBox195) + CInt(TextBox207) - CInt(TextBox208) -CInt(TextBox220)
End Sub

bu işinizi görecektir ancak herhangibi bir textbox boş olursa hata verecektir.bunun yerine

Private Sub TextBox244_Enter()
TextBox244 = val(TextBox195) + val(TextBox207) - val(TextBox208) -val(TextBox220)
End Sub

yaparsanız hem işlem yapar hemde kutu boşsa hata vermez,iyi çalışmalar.

 

[Altay3555]

Teşekkür ederim..
Bende daha önceki formülleri CInt ile yapmıştım hep,hakikaten boşluk kalırsa hata veriyordu,kod sayfalarından almıştım,ama açıklama olmayınca olduğu gibi uyguladık,12 kutucuklu bir toplam işlemine 11 tane sıfır koymak da hoş değil doğrusu..
teşekkür ederim...

 

[Altay3555]

kod sayfasında yazdığım onlarca CInt ları ctrl+f gibi bir tuşla değiştirme kısa yolu varmı acaba

 

[fedeal]

bunun için bir çalışma hazırladım.calışmanın b sütununa kodlarınızı kopyala yapıştır yapın sonra degiştir tuşuna basın bütün cınt ler val olacak sonra alıp kod sayfasına kopyalarsınız.iyi çalışmalar.

Daha kapsamlı ve ihtiyacı olabilecek arkadaşların kullanabilmesi için değiştirilecek kelimeyi a3 hücresine yazıp olması istenilen kelimeyi a6 hücresine yazınca bir tuşla metni düzelten çalışma yaptım.umarım faydalı olur,saygılar.

 

[Altay3555]

bunun için bir çalışma hazırladım.calışmanın b sütununa kodlarınızı kopyala yapıştır yapın sonra degiştir tuşuna basın bütün cınt ler val olacak sonra alıp kod sayfasına kopyalarsınız.iyi çalışmalar.

Daha kapsamlı ve ihtiyacı olabilecek arkadaşların kullanabilmesi için değiştirilecek kelimeyi a3 hücresine yazıp olması istenilen kelimeyi a6 hücresine yazınca bir tuşla metni düzelten çalışma yaptım.umarım faydalı olur,saygılar.

hocam teşekkürler...
denedim ,çok güzel olmuş,dertlerim de bitti...
emeğinize sağlık