Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
17/12/2013 11:19
Konu Sahibi
fkilic76
Yorumlar
2
Okunma
1748
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

fkilic76

Aktif Üye
Kullanici Avatari
Aktif Üye
F.... K....
45
17/09/2010
0
Ankara
Ofis 2007
27/01/2017,00:19
Ü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


Ek Dosyalar Ekran Görüntüleri
       
Cevapla

ogulcan92

Aktif Üye
Kullanici Avatari
Aktif Üye
1.159
06/05/2009
477
İzmir
Ofis 2003
07/08/2015,11:50
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.


Cevapla

fkilic76

Aktif Üye
Kullanici Avatari
Aktif Üye
F.... K....
45
17/09/2010
0
Ankara
Ofis 2007
27/01/2017,00:19
Ozur
ilgili örnek ektedir.


Ek Dosyalar
.rar   döner.rar (Dosya Boyutu: 55,89 KB / İndirme Sayısı: 54)
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Excel De Düşeyara Formülü #yok Hatası Veriyor... mehmet yaşar öztürk 8 176 29/08/2017, 18:47 mehmet yaşar öztürk
  Excel De Koşullu Olarak Sayfalar Arası Belirli Hücreleri Taşıma Eleman Iş Bul Izmir 1 195 07/08/2017, 22:21 accessdelisi
  Excel Verisinden Rapor - Liste Olusturmak (Yardim Lutfen) Subco 5 418 12/05/2017, 08:03 Subco
  Excel'i çok kasan makronun optimize edilmesi talebi turankr 10 1.037 15/01/2017, 22:06 turankr
  Excel mükerrer kayıt engelleme macirercan 9 1.013 08/12/2016, 12:59 macirercan

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.