Visual Basic hesapla

[mustafag36]

merhaba Formda hazırladım kısımları ,

En 170
Gramaj 200

170x200 = 34.000

metre hesabı 1000/34000*100=2,94

2,94 x 500 = toplam

Kilo 500 hesaplayıp

Metre 1.470 metre şeklinde yazmasını istiyorum lütfen yardımcı olun

 

[mustafag36]

Bu konuda yardım edecek kimse yok mu

 

[Haluk]

Private Sub CommandButton1_Click()
TextBox3 = Format(1000 / (TextBox4.Value * TextBox6.Value) * 100 * TextBox5.Value, "0,00") & " metre"
End Sub

.

 

[mustafag36]

Formül çalışıyor ama hesaplama doğru değil..

 

[mustafag36]

öenek excel deki gibi olacak

 

[mustafag36]

Kod yazdım. Şimdi Normal excel de açamıyorum. Formülü düzenledim. sadece virgülden gelen haneleri kaldırmak istiyorum. Lütfen yardım edin

 

[cems]

Normal excel veya bu dosyayı açmak için :

Boş bir excel sayfası açın
Vba kısmına geçin
Sonra problem dosyayı açın
Vba kısmında userforma gidin.

Application.visible= false yazdığınız yerleri kaldırın veya çıkış anında True yapın

Siz form ile beraber dosyayı direk kapattırmışsınız, Bu durumda açılışlarda excel saklanmaya devam eder.
application.quit ten önce
Application.visible = True yazın.

Her zaman True/False ler ile yaptığınız işlemi tersine de kodlayarak geriye mutlaka döndürmelisiniz.

Diğer konu ise textboxları sıralı yaparsanız kod yazanın kafası karışmaz , bunu da düzelttim. Textbox lar ile değil ama simge vererek söylediğiniz hesabı yaptırmaya çalıştım ancak onda da söylediğiniz şekilden başka bir hesap ile excel üzerinde ulaştım.
Textboxların tamsayıya formatlanması gerek , zamanım olmadığından bunu denemeyi size bıraktım.

Bir çok query açmışsınız , bunların içi doluydu boştu bilmiyorum ama bu şekilde kalabalıktan başka iş yapmadığı için fazla ve boş olanları sildim, modülde farklıkaydet kodlarını pasifleştirdim.

Bu şekilde düzeltilmiş tablo ekte.

 

[mustafag36]

Emeğiniz için teşekkür ederim. Ama hesaplama çalışmıyor