Petit
-
Innlegg
12 -
Ble med
-
Besøkte siden sist
Innholdstype
Profiler
Forum
Hendelser
Blogger
Om forumet
Innlegg skrevet av Petit
-
-
I dag var han god!
Sinnsykt herlige driblinger og konge-mål!
Synes imidlertidig stabæk spilte rotete i andre omgang i dag, men første omgang var bra
Hvis øystein bestemmer seg for at han ikke vil gifte seg med meg, så gifter jeg meg med alan!
-
Vi gjorde det i garasjen til foreldrene hans en gang.
Det var koselig
-
-
Enig i at han har vært ujevn i spillet i det siste.
Synes at han har enten en veldig god og "aktiv" dag, eller så er han bare på banen fordi han må.
Derimot er jeg veldig glad for at Alan signerte ny kontrakt
-P
-
* Jeg sikler i søvne av og til
* Jeg markerer ALLTID tekst når jeg leser (som mange andre her inne)
* Selvom jeg kan se at ytterdøren er låst må jeg alltid kjenne på den
* Jeg pleier å se på rumpene til de som går foran meg
* Jeg ser på hånden min etter at jeg har håndhilst på noen
* Jeg snakker (og kjefter) på meg selv
* Når jeg skal skru på tven MÅ jeg alltid trykke på 5 tallet. Det går ikke å trykke på 1 eller 3!
* Jeg ler inni meg av andre når de dummer seg ut
Gjør sikkert mange andre ting også som jeg ikke kommer på nå.. =P
-
Hvis du er jente kan det komme av hormoner ved eggløsning.
Har et par kviser selv som bare kommer frem i perioden rundt eggløsning.
-
Hvor sundt er det egentlig å smøre et tungmetall under armene?
Det at man ikke svetter under armene betyr ikke at man slutter å svette, men at svetten kommer ut andre steder. Nevner i fleng; Håndflater, rygg, rumpesprekk, bak knærne, pannen, overleppe....
-
Husker du å puste imens du holder på?
Når jeg løper glemmer jeg å puste, og da får jeg sinnsykt vondt i hodet!
-
Noe som faktisk har hjulpet meg er å ta tran!
Du kan jo kjøpe A-vitaminkremer mot kviser, og det er A-vitamin i tran, så hvorfor ikke få det i seg innenifra?
-
Heihei!
Satt ved frokostbordet nå nettopp og skulle ta tranpillene mine som jeg hadde funnet frem før jeg satte meg.
MEN de var borte! Så jeg frant frem to til og svelget dem unna Nå kom jeg på at jeg faktisk tok de tre jeg fant frem i morges, så jeg har altså tatt 5 stykker i dag.
Har gjort dette før, og har ikke merket noen forskjell fra de dagene jeg bare tar to.
Men på boksen står det at anbefalt dagsdose (2 kapsler) ikke bør overskriedes.
Så til spørsmålet.. Hvorfor? Er det farlig å ta for mye tran? Kan man dø av fiskefett, eller får man simpelthen bare lettere løs mage?
-
1. Hvor mye veier du på morgenen?
2. Er du fornøyd med vekten din?
3. Hvor mye skulle du likt å veie?
4. Hvor høy er du?
5. Er du gutt eller jente?
6. Trener du jevnlig?
7. Hvor gammel er du?
1. 41,3
2. Ja
3. Jeg er fornøyd
4. 1.50
5. Jente
6. Neup.. Jeg er litt lat
7. 17
-
Playstation 3!
Det ønsker jeg meg ihvertfall.. Og Stabæk-genser.
-
Jeg må finne ut hva som er forskjellen på "svar" og "nytt emne"
blablabla
Hjelp til makrokode
i Programmering og webutvikling
Skrevet · Endret av Petit
Hei! (endret`!)
Skal lage en makro som går igjennom en medlemsliste og skriver ut medlemmenes energiforbruk i en kolonne (utstartcelle) i samme regneark som inndata ("Medlemmer").
Så langt har jeg kludret meg frem til dette:
Sub MedlemEnergiF()
Dim Rekke, Kolonne, Kjønn, Alder, Høyde, Vekt, Aktivitetsnivå, kjønnsfaktor
Dim Startcelle
Startcelle = Range("Startcelle")
Rekke = Range("Startcelle").Row
Kolonne = Range("Startcelle").Column
Kjønn = Worksheets("Medlemmer").Cells(Rekke, Kolonne).Value
Alder = Worksheets("Medlemmer").Cells(Rekke, Kolonne + 1).Value
Høyde = Worksheets("Medlemmer").Cells(Rekke, Kolonne + 2).Value
Vekt = Worksheets("Medlemmer").Cells(Rekke, Kolonne + 3).Value
Aktivitetsnivå = Worksheets("Medlemmer").Cells(Rekke, Kolonne + 4).Value
With Worksheets("Medlemmer")
Do Until Cells(Rekke, Kolonne - 5).Value = ""
If .Cells(Rekke, Kolonne) <> "" And .Cells(Rekke, Kolonne + 1) <> "" And .Cells(Rekke, Kolonne + 2) <> "" And .Cells(Rekke, Kolonne + 3) And .Cells(Rekke, Kolonne + 4) <> "" Then
.Cells(Rekke, Kolonne + 5) = Energiforbruk(Høyde, Vekt, Alder, Kjønn, Aktivitetsnivå)
Else
.Cells(Rekke, Kolonne + 5) = ("Mangler data")
End If
Rekke = Rekke + 1
Loop
End With
End Sub
Function Energiforbruk(Høyde, Vekt, Alder, Kjønn, Aktivitetsnivå)
Dim kjønnsfaktor, aktivitetsfaktor
Const conMann = 5
Const conKvinne = -161
Const conLav = 1.3
Const conVanlig = 1.4
Const conHøy = 1.5
If UCase(Aktivitetsnivå) = "HØYT" Then
If UCase(Kjønn) = "M" Then
kjønnsfaktor = conMann
ElseIf UCase(Kjønn) = "K" Then
kjønnsfaktor = conKvinne
End If
aktivitetsfaktor = conHøy
End If
If UCase(Aktivitetsnivå) = "VANLIG" Then
If UCase(Kjønn) = "M" Then
kjønnsfaktor = conMann
ElseIf UCase(Kjønn) = "K" Then
kjønnsfaktor = conKvinne
End If
aktivitetsfaktor = conVanlig
End If
If UCase(Aktivitetsnivå) = "LAVT" Then
If UCase(Kjønn) = "M" Then
kjønnsfaktor = conMann
ElseIf UCase(Kjønn) = "K" Then
kjønnsfaktor = conKvinne
End If
aktivitetsfaktor = conLav
End If
Energiforbruk = ((((Vekt * 10) + (Høyde * 6.25) - (Alder * 5) + (kjønnsfaktor)) * aktivitetsfaktor))
End Function
____
Så langt regner den bare ut for det øverste medlemmet og virker ikke som den oppdaterer rekketelleren? Hva er galt?
Takk.