Merhabalar,
Borcumuz borç... :)
Aşağıda söylediğiniz işlemi yapan küçük bir fonksiyon yazdım. Dilerseniz
siz geliştirebilirsiniz. Ancak daha önce de belirttiğiniz gibi kriter
kolonlarını tek bir kolonda birleştirmeniz gerekecek.
Function SecenekSorgu(Optional KriterAlan, Optional Kriter, Optional
SorguAlan) as double
Dim KriterRow As Integer
Dim KriterCol As Integer
Dim SorguCol as integer
Dim HataVar as Boolean
Dim HucreDeger as double
Dim YeniDeger as double
HataVar = False
If NOT IsArray(KriterAlan) or NOT IsArray(KriterAlan) Then
SecenekSorgu = "HATA! Sorgu ve Toplam ALAN olmalı!"
HataVar = true
end if
If isarray(Kriter) then
SecenekSorgu = SecenekSorgu + "HATA! Kriter tek bir hücre olmalı!!"
HataVar = true
end if
if HataVar = true then
exit function
end if
' Burada sorgulama Başlıyor...
KriterCol = LBound(KriterAlan, 2)
SorguCol = LBound(SorguAlan, 2)
HucreDeger = 0
For KriterRow = LBound(KriterAlan, 1) To UBound(KriterAlan, 1)
if KriterAlan(KriterRow, KriterCol) = Kriter Then
Yenideger = SorguAlan(KriterRow, SorguCol)
If YeniDeger > HucreDeger then HucreDeger = YeniDeger
end if
Next
SecenekSorgu = HucreDeger
End Function
--
Kolay gelsin,
Mucip:)
_______________________________________________
Linux-masaustu mailing list
[email protected]
https://liste.linux.org.tr/mailman/listinfo/linux-masaustu
Liste kurallari: http://liste.linux.org.tr/kurallar.php
