22. oktober 2005 - 12:38Der er
18 kommentarer og 2 løsninger
automatisk indsættelse af klokkeslet i forskudt felt
Jeg har brug for en funktion, der automatisk sætter det aktuelle klokkeslæt i feltet "en-til-venster-og-en-ned", når jeg ændrer indholdet i en celle. Altså indsætter det aktuelle klokkeslet i A2 når jeg ændrer indholdet i B1 og i A3 når jeg ændrer B2 o.s.v. Er det enkelt at lave?
Det kan du nok ikke med en funktion, men med en lille makro går det fint.
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("B:B")) Is Nothing Then Target.Offset(1, -1) = Time End If End Sub
Tak, det fungerer faktisk som det jeg bad om, så du skal få dine points hvis du lægger et svar. Men det viser sig at jeg overså en detalje da jeg spurgte. Makroen kolliderer med en anden makro, der skal slette alle data i kolonne A og B, når man trykker på en knap, hvorved de to makroer kommer til at modarbejde hinanden. Jeg har derfor brug for ovennævnte makros funktion, men kun i det tilfælde, at cellen hvori det aktuelle tidspunkt skal indsættes, i forvejen er tomt. Hvis der står noget i feltet i forvejen, skal makroen ikke køre. Kan det mon lade sig gøre? Jeg dobler pointene op, hvis der gives en løsning på det også.
Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, Range("B:B")) Is Nothing Then if not Target.Offset(1, -1)<>"" then Target.Offset(1, -1) = Time end if End If End Sub
En anden god ting er at slukke for de automatiske makroer når du kører en almindelig makro, der laver noget med cellerne, hvor de automatiske arbejder.
I din slette makro, sæt disse 2 linier ind h.h.v. øverst og nederst.
YES! Kombinationen af de to løsninger gør det helt perfekt. Den første gør det muligt at rette i mine kolonne B unden at miste de først indtastede tidspunkter, hvilket er en stor fordel. Den sidste løsning løste problemet med kollidering mellem de to makroer. Læg et svar, så skal du få de dobbelte antal points, som du så rigeligt har fortjent. Dette er en kæmpe hjælp, som jeg ellers ville have brugt uanede timer på at gruble over, da jeg aldrig har lært VBA. Tak for hjælpen!
Hovsa, det må du undskylde, jeg var ikke opmærksom på, at det var to personer: bak og karbak! jeg synes I har fortjent at fordele pointene så. Er det ok?
Jeg kan ikke se avanceret nogen steder; kun muligheden for manuelt at fordele pointene på jer to, hvis jeg ikke ville fordele ligeligt. Her har jeg forsøgt at skrive 30 points til hver, men får så fejlmeddelelsen at jeg har tildelt sammenlagt flere points end der var til rådighed for sprøgsmålet. Måske jeg bliver nødt til at oprette et nyt spørgsmål med nye 30 points, som den ene af jer så svarer på?
Jeg har nu oprettet et ekstra spørgsmål med nye 30 points her: http://exp.dk/spm/658329. Hvis den ene af jer svarer på det, skal I få hver 30 points. Selv om det ikke var svært for jer, var det for mig, når jeg nu ikke kender det aktuelle kodesprog - og det var en kæmpe hjælp, der for mig mindst var de 60 points værd.
Tak for hjælpen begge to. Det var ikke fordi jeg gerne ville af med points, men fordi jeg synes hjælpen var det værd - og så fordi jeg havde lovet de dobbelte points inden jeg fik svar nr. 2. Jeg kan bedst lide at holde hvad jeg lover - så vidt det er muligt... ;-))
Synes godt om
Ny brugerNybegynder
Din løsning...
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.