Avatar billede degnens Mester
22. oktober 2005 - 12:38 Der 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?
Avatar billede bak Forsker
22. oktober 2005 - 14:35 #1
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
Avatar billede bak Forsker
22. oktober 2005 - 14:36 #2
Ups, denne makro skal indsættes i arkets eget kodemodul. Højreklik på arkfanen og vælg "Vis programkode" og indsæt den der.
Avatar billede degnens Mester
22. oktober 2005 - 19:50 #3
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å.
Avatar billede kabbak Professor
22. oktober 2005 - 20:37 #4
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
Avatar billede kabbak Professor
22. oktober 2005 - 20:41 #5
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.

Application.EnableEvents = False

'din slette kode

Application.EnableEvents = True
Avatar billede degnens Mester
22. oktober 2005 - 22:15 #6
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!
Avatar billede kabbak Professor
22. oktober 2005 - 22:18 #7
jeg mener også bak skal have point, hans svar var jo korrekt.
Det var kun fordi du løb i problemer at jeg kogte videre.
Avatar billede degnens Mester
22. oktober 2005 - 22:25 #8
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?
Avatar billede kabbak Professor
22. oktober 2005 - 22:32 #9
det var også det jeg mente ;-))
Avatar billede degnens Mester
22. oktober 2005 - 23:04 #10
Så mangler jeg bare et svar fra bak for at kunne fordele pointene.
Avatar billede bak Forsker
22. oktober 2005 - 23:11 #11
jeps :-)))
Avatar billede degnens Mester
22. oktober 2005 - 23:22 #12
Øh, hvordan kan jeg doble mine points op inden jeg fordeler dem??
Avatar billede kabbak Professor
22. oktober 2005 - 23:31 #13
vælg avanceret ved point uddeling
Avatar billede degnens Mester
22. oktober 2005 - 23:43 #14
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å?
Avatar billede kabbak Professor
22. oktober 2005 - 23:45 #15
da spørgsmålet ikke var så svært, så del dem du har
Avatar billede bak Forsker
22. oktober 2005 - 23:56 #16
enig, ingen grund til at forøge points.
Går det alligevel galt tror jeg at både kabbak og jeg overlever :-)
Avatar billede degnens Mester
22. oktober 2005 - 23:56 #17
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.
Avatar billede kabbak Professor
22. oktober 2005 - 23:58 #18
tag dem bak, nu degnens vil så gerne af med dem
Avatar billede bak Forsker
23. oktober 2005 - 00:03 #19
ok, jeg tager disse :-)
Avatar billede degnens Mester
23. oktober 2005 - 00:12 #20
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... ;-))
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Seneste spørgsmål Seneste aktivitet
I dag 21:00 Libre Office Impress Af Frank i Andre styresystemer
I dag 11:47 VB script Af Jenshentze i Word
I dag 11:21 Popup ved opstart Af mort1 i Windows
04/0918:50 Slet lokal konto Af ErikHg i Windows
04/0916:05 Ændre tal i en celle Af xvid i Excel