Simpelt program til tidstagning Fra : Hausbaer Vist : 1046 gange 100 point Dato : 19-04-11 21:32

Hejsa Jeg leder efter et simpelt program som kan bruges til at få løbstider... Jeg forestiller mig noget som det her en popbox hvor jeg skriver løbsnummer ind og trykker enter derefter plotter den nummer samt aktuel tid ind i en tabel. om det er excel eller andet er i første gang underordnet. findes der sådan noget og hvor kunne jeg finde det?? Henrik

Kommentar Fra : svendgiversen Dato : 19-04-11 21:43

Det kan du da hurtigt lave selv i excel, hvis ikke skal jeg lave det for dig i morgen tidlig...

Kommentar Fra : Hausbaer Dato : 19-04-11 21:46

Det er et stykke tid siden jeg har roddet med excel og VB... men det er vist noget med en msgbox og gemme data i rækkerne nedaf... hvis du har et link som kunne forklare hvordan man laver sådan et popup box så ville det være en start... kan jo så i morgen be om hjælp hvis det ikke lykkes... Learning by fooling around

Kommentar Fra : Hausbaer Dato : 19-04-11 22:02

Så er jeg begyndt... men den skriver end sub expected Private Sub Worksheet_Activate() Dim a As String a = 1 Sub nummer() tid = InputBox("Type Text Please", "Using the VBA Input Box") Range("G17").Select ActiveCell.FormulaR1C1 = tid Range("H17").Select ActiveCell.FormulaR1C1 = Now() Range("I17").Select ActiveCell.FormulaR1C1 = a a = a + 1 GoTo nummer End Sub End Sub

Kommentar Fra : Hausbaer Dato : 19-04-11 22:08

nummer: så er den del klaret... men hvordan får jeg den til at spørge igen og igen... men med en mulighedsknap for at sige det var den sidste...

Kommentar Fra : Hausbaer Dato : 19-04-11 22:14

Sådan Så er det klaret.. var ikke så svært... hvis du mener jeg kan gøre det lettere på en anden måde er du velkommen til skrive det... Private Sub Worksheet_Activate() Dim a As String a = 17 nummer: tid = InputBox("Type Text Please", "Using the VBA Input Box") If tid = "111" Then GoTo slut Range("G" & a).Select ActiveCell.FormulaR1C1 = tid Range("H" & a).Select ActiveCell.FormulaR1C1 = Now() Range("I" & a).Select ActiveCell.FormulaR1C1 = a a = a + 1 GoTo nummer slut: End Sub

Annuller spørgsmålet Fra : Hausbaer Dato : 03-05-11 11:52

Jeg har desværre ikke modtaget et gyldigt svar, og annullerer derfor dette spørgsmål

Du har følgende muligheder

Dette spørgsmål er blevet annulleret, det er derfor ikke muligt for at tilføje flere kommentarer.