18. september 2006 - 13:54Der er
19 kommentarer og 1 løsning
Udregne BMI??
Hejsa
Jeg har en tabel der udregner hvad vi taber os på vores kur.
For oven i tabellen skriver vi start vægt, og hver gang vi så nedenunder skriver en ny vægt udregner den aller nederse hvad vi har tabt i alt.
Men nu vil vi gerne ha' indført vores BMI tal.... At hver gang vi indføre en ny mindre vægt, så skifter BMI tallet Formlen er sådan: vægt/(højde x højde) Bemærk at højden er i cm.
Er der nogen der kan hjælpe mig med dette, bare skriv så sender jeg excel filen hvis den skal bruges!?
lav et felt hvor du skriver din højde i meter f.eks 1,80 i et andet felt f.eks A2 skal du udregne din nye vægt formlen skal se sådan ud =felt med startvægt-felt med hvad du har tabt ialt
hvis dine felter nu ser sådan her ud A1=højde A2=nuværende vægt
Den kom til at se sådan ud: =HELTAL(LOPSLAG(B7;$A$13:$C$35;2;SAND)/(F13^2)*10000)
hvor B7 indeholder heltalsværdi af dags dato (=heltal(nu())), A13:c35 vægttabellen med veje-datoer i A-kolonnen, og højden i cm i F13. Når man slår SAND op i en tabel, returnerer den nærmeste højere værdi, ligesom i en portotabel.
Held og lykke med projektet - har selv en BMI, der ligner min alder ;-D
>>>daki, så bruger du højde i meter, hvor min formel tager udgangspunkt i højden i cm. Når der er tale om at bruge højdens kvadrat, skal man i min formel gange med 10.000 (100 i anden potens) og ellers ikke.
Jeg har lidt problemer med den.... Lige nu viser den at BMI er = 0 Det har sikkert noget med datoen, så kan vi ikke lave den lidt om så den med datoen bliver fjernet? Så den i stedet for udregner BMI'en fra den sidste vejning og ikke dagsdato??
Hvis vægten står i B-kolonnen og højden i cm i F13, skal der stå sådan her i formelcellen =AFRUND(INDIREKTE("B"&(RÆKKE(INDIREKTE(sidstecelle1()))-1))/(F13^2)*10000;1)
Funktionen SidsteCelle1 er ikke en ”Medfødt” Excel-funktion, men defineres i et kodemodul (tryk ALT + F11 for at komme ind i VBA-editoren, og vælg her Insert og Module)
Function SidsteCelle1() SidsteCelle1 = Range("B65536").End(xlUp).Offset(1, 0).Address End Function
Så bruger den hele tiden den sidst udfyldte celle i vægttabellen og er uafhængig af datoerne.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.