stopur med mellemtider der lægges i excel celler

Ville nok lave det i VB6.

Der er eksempler her på eksperten.

Mellemtider kan du gemme i et array, og så først når du er færdig med at tage tid fører du det over til Excel.

Ellers skal du lave en macro i Excel, det er måske lige så nemt.

Stopuret laver du med en timer. Søg på eksperten

ja det lyder rigtigt

jeg er desværre ingen haj til vba og jeg har ikke været i stand til at finde noget i søgningen på experten der machede mine kriterier.

hvordan laver man en macro i exel og hvordan gemmer man i et array??

søger lige lidt videre efter den timer=)

http://www.eksperten.dk/spm/Programmering/Visual-Basic/?sort=&order=DESC&status_1=on&status_2=on&status_3=on&spm_creator=&spm_part=&spm_answer=&find=stopur&engine=exp

http://www.eksperten.dk/spm/Programmering/Visual-Basic/?sort=&order=DESC&status_1=on&status_2=on&status_3=on&spm_creator=&spm_part=&spm_answer=&find=timer&engine=exp

Arrays osv. fungerer som i VB6. Er ikke 100% sikekr på at der er et timerobjekt i Excel - VBA er ikke på alle punkter lige så omfattende som VB6. Så måske skal du have gang i VB6

Her er et exempel på hvorledes dette kunne gøres i excel

Der er 4 kodestumper/sub
Du skal bare køre SetKeys, så vil tasten "s" starte timeren, tasten "m" indsætter mellemtid i en celle i kolonne A og tasten "f" afslutter og sætter tasterne til normale taster igen

Public StartTime As Double

Sub SetKeys()
    Application.OnKey "s", "SetStart"
    Application.OnKey "m", "SetLapTime"
    Application.OnKey "f", "FinishTime"
End Sub

Sub SetStart()
    StartTime = Timer
    Range("a65536").End(xlUp).Offset(1, 0) = 0
End Sub

Sub SetLapTime()
Dim Lap As Double
    Lap = Timer - StartTime
    Range("a65536").End(xlUp).Offset(1, 0) = Lap
End Sub

Sub FinishTime()
    Call SetLapTime
    Application.OnKey "s"
    Application.OnKey "m"
    Application.OnKey "f"
End Sub

hmm, bak´s forslag var en betinget succes!

den tæller fint nok op, men det er svært at se med hvilke enheder, jeg tror det er hundrededele.

problemet er at den starter med 46968.71094 enheder eller noget i den stil og tæller op derfra.

betjeningsfejl :-)
Først sættes tastaturet med SetKeys
For at starte og nulstille trykkes "s", derefter trykkes "m" for hver gang man ønsker en mellemtid og til slut trykkes "f" for at resette tasterne.
Det tælles i sekunder og hundredele af sekunder dvs 12,76 er lig 12 sek. og 76 hundredele sek.

hej bak

tak for hjælpen, hvordan kan jeg give dig dine point, den option synes at være forsvundet fra tråden =(

mangler lige at svarte så kan du :-)

Hej

Jeg læst tråden og jeg ville meget geren bruge den VBA kode som er lavet til det excel ark.

Jeg har indsat vbakoden i excelarket - men hvordan gør jeg det med set keys ?

Nogle der kan hjælpe`??

Kopier koden ind i et nyt modul i regnearket.
Kør koden i Sub Setkeys
denne kode ændrer tastaturet således at når man taster
S = start stopur
M = Mellemtid / laptid
F = Færdig / Finish

F sætter tastaturet tilbage til normal

Jeg ville nok lave en knap til at køre sub Setkeys,
således at man hurtigt kan blive klar igen.

Har du brug for et exempel, så send en mail

burde være lukket

Luk