AccessTr.neT
Excel UserForm da Hesaplama - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Soruları ve Cevapları (https://accesstr.net/forum-excel-sorulari-ve-cevaplari.html)
+--- Konu Başlığı: Excel UserForm da Hesaplama (/konu-excel-userform-da-hesaplama.html)



Excel UserForm da Hesaplama - fkilic76 - 17/12/2013

Üstatlara Ve tüm Üyelere selamlar saygılar...
Ekte Resim göndermeya çalıştım ama olmamışsa diye buradan da açıklamaya çalışayım
Aynı form üzerinde birbiriye ilişkili birden fazla hesaplamam gereken değerler var.
ayrıca şarta bağlanmış hesaplamalarımda var.
kodları ekteki gibi yerleştirdim.hesaplamayı yapıyor ama hesaplamam gereken son koda gelene kadar hesapla butonuna basmam gerekiyor.
Yani kaç adet hesaplama kodum varsa hesapla butonu her basmada sadece birini işleme koyuyor sonra sıradakine geçiyor.
bu işlemi hızlandırmak mümkün değil midir?
Resimler eklenemediyse diye kodu burayada yazdım Saygılarımla.

'DönemÖdemeKatsayısı bulma
TextBox87 = (Val(Dpara) / Val(Tpuan))

'açgks bulma
TextBox14 = ((Val(bordgun) - Val(izingun)) / Val(bordgun))

'SonEkPuan Bulma
TextBox63 = (Val(ortalama) * Val(ekpuan)) / 100

'Net Performans Bulma
If TextBox67 = "H" Then 'Hastane Ortalamasından alanlar
TextBox19 = ""
TextBox18 = (Val(ortalama) * Val(puancarp) * Val(acgk))
TextBox20 = (Val(perform1) + (Val(sonekpuan)))
TextBox30 = (Val(performans) * Val(DonemKs))
TextBox32 = (Val(puanpara) * Val(ybpk))
End If


If TextBox67 = "T" Then 'Tabip G.İ.P dan alanlar
TextBox18 = ""
TextBox19 = (Val(tgp) * Val(puancarp))
TextBox20 = (Val(perform2) + (Val(sonekpuan)))
TextBox30 = (Val(performans) * Val(DonemKs))
TextBox32 = (Val(puanpara) * Val(ybpk))
End If

If TextBox67 = "G" Then 'Klinik Ortalamasından Alanlar
TextBox18 = (((Val(gruportam) * 0.75) + (Val(ortalama) * 0.25)) * Val(eakatsayi) * Val(acgk))
TextBox19 = ((Val(tgp) - (Val(gruportam) * Val(acgk))) * 0.5)
TextBox20 = (Val(perform1) + (Val(perform2) + (Val(sonekpuan))))
TextBox30 = (Val(performans) * Val(DonemKs))
TextBox32 = (Val(puanpara) * Val(ybpk))
End If

End Sub


Cvp: Excel UserForm da Hesaplama - ogulcan92 - 24/12/2013

Sn:fkilic76
Lütfen örnek ekleyerek sorunuzu sorunuz böyle resimden pek birşey anlaşılmıyor sitede bulunan arkadaslar islerinden vakit buldukca yardim etmeye çalılısiyor bu sebebten sifirdan örnek hazirlamak cok zor.


Cvp: Excel UserForm da Hesaplama - fkilic76 - 25/12/2013

Ozur
ilgili örnek ektedir.