find in matrix

[meermann]

Hallo,

Ik ben op zoek naar een bepaalde waarde in een matrix. Het volgende is de bedoeling. In de eerste kolom zoek ik de waarde uit een kolom die gelijk is aan een waarde die ik heb. gegeven = 5 dus als hij de cel heeft gevonden waar 5 in staat dan moet hij vervolgens in de corrensponderende rij kijken naar de eerste waarde die >0,10 kijken. Als hij die eerste cel heeft gevonden moet hij vervolgens boven in de matrix kijken naar welke naam bij die kolom hoort. Als je kijkt hieronder zou ik dus de waarde C willen hebben als antwoord. Alvast bedankt.


A B C D
1 0 0,05 0,10 0,35
2 0 0,10 0,15 0,5
3 0 0 0 0,10
4 0 0,05 0,05 0,005
5 0 0,05 0,10 0,15
6 0 0 0 0

 

[fcwiv]

Matrix

Ja , het is heel eenvoudig te doen met een geneste for loop.
stel r=rij en c=kollom dan;

Dim Mattrix(1 to 7,1 to 4) as string ' eerste rij is gevuld met A,B ...
Dim Kollom as string ' Dit de naam van de kollom
' Vul eerst de matrix met waarde en dan...

for r= 2 to 7
for c=1 to 5
if Matrix(r,c)>= 0.10 then
Kollom=Matrix(1,c)
exit for ' om sneller uit de loop te komen, anders gaat hij verder met rekenen waar het eigenlijk niet meer nodig is.
end if
next c
next r


Fred Wilson

 

[meermann]

bedankt!