Avatar billede Excel Styrmanden Juniormester
13. marts 2021 - 21:09 Der er 12 kommentarer og
2 løsninger

VBA kode der skriver bestemt formel i en bestemt celle i et ark hvert minut

jeg ønsker at "=NU()" bliver skrevet i ark1!A1 hvert minut så den "opdatere" af sig selv :)
Avatar billede acore Ekspert
14. marts 2021 - 07:38 #1
Der er tutorials til det mange steder, se fx https://sites.google.com/site/excelforbeginners/Home/vba-codes/clock-with-automatic-refresh. Det skal siges, at jeg ikke har testet den.
Avatar billede Excel Styrmanden Juniormester
14. marts 2021 - 13:48 #2
ja der er mange og har prøvet en del af dem, men en fejl jeg ser gå igen er hvis jeg så åbner et andet excel ark ved siden af kan den godt finde på at smide klokken der ind også og det ønsker jeg jo ikke.
Avatar billede store-morten Ekspert
14. marts 2021 - 14:27 #3
Er det "kun" visning  af tiden du skal bruge?

Husk også:
https://www.computerworld.dk/eksperten/spm/1036609
Avatar billede store-morten Ekspert
14. marts 2021 - 15:07 #4
Mens du har lagt svar i overstående ?
Fik jeg testet lidt mere, prøv disse i et modul:
Dim KørTid As Date

Sub StartTimer()
    KørTid = Now + TimeValue("00:01:00")
    Application.OnTime KørTid, "Timer"
End Sub

Private Sub Timer()
    Sheets("Ark1").Calculate
    StartTimer
End Sub

Sub StopTimer()
On Error Resume Next
Application.OnTime EarliestTime:=KørTid, Procedure:="Timer", Schedule:=False
End Sub
Og formlen: =NU()
Avatar billede Excel Styrmanden Juniormester
14. marts 2021 - 15:07 #5
nej det er værdien jeg skal bruge. jeg har lavet et ark som der regner ud hvor hurtigt vi Laster/losser ombord på skibet. og viser hvad tid vi er færdige. det virker super lækkert, men ville gerne at der også var et felt der tæller ned så hvis vi feks. startede kl 14 og programmet regner ud at vi er færdige kl 20 med den bestemte rate, så tæller den 6 timer ned og opdatere hvert minut. men raten ændre sig under sådan en Lastning/lossning. så når jeg taster en ny mængde væske ind kl 15 så skal nedtælleren opdatere så den passer der. så løsningen vil egentlig bare være at få en celle til at vise det aktuelle tidspunkt og opdatere hvert minut så har jeg selv formlerne til resten. og som ikke kan finde på at hoppe over i et andet ark hvis jeg har to åbne på samme tid.
Avatar billede store-morten Ekspert
14. marts 2021 - 15:09 #6
Formater cellen med =nu() til: tt:mm da der kun opdateres pr. minut.
Avatar billede Excel Styrmanden Juniormester
14. marts 2021 - 19:36 #7
jeg har lagt den ind i et modul og skrevet formlen =NU() of formateret a1 til tt:mm, men jeg syntes ikke der sker noget.. er der andet jeg skal gøre?
Avatar billede Excel Styrmanden Juniormester
14. marts 2021 - 19:38 #8
UNDSKYLD!! det virker helt perfekt, den var bare lidt forsinket! lækkert! då for løsningen! :)
Avatar billede Excel Styrmanden Juniormester
14. marts 2021 - 20:43 #9
nyt problem, når den opdatere tiden så skal den reelle tid trækkes fra det tidspunkt vi er færdige, og det virker lækkert i dataarket, MEN! den opdatere ikke på den forside jeg har lavet.

min opsætning
ark1 med data og beregninger og nu livetid(tak) spiller max
ark2 forside der formidler data så det er brugervenligt

men cellen Ark2!M4 opdatere ikke selvom den referere til den celle i Ark1 som opdatere
Avatar billede store-morten Ekspert
14. marts 2021 - 21:27 #10
Prøv at tilføje Ark2 i Timer
Avatar billede Excel Styrmanden Juniormester
14. marts 2021 - 21:55 #11
det prøvede jeg, men så gik excel i selvsving
Avatar billede Excel Styrmanden Juniormester
14. marts 2021 - 22:02 #12
det lykkedes, havde kommet til at skrive:

Dim KørTid As Date

Sub StartTimer()
    KørTid = Now + TimeValue("00:01:00")
    Application.OnTime KørTid, "Timer"
End Sub

Private Sub Timer()
    Sheets("Ark1").Calculate
    StartTimer
    Sheets("Ark2").Calculate
    StartTimer
End Sub

Sub StopTimer()
On Error Resume Next
Application.OnTime EarliestTime:=KørTid, Procedure:="Timer", Schedule:=False
End Sub

løsningen var

Dim KørTid As Date

Sub StartTimer()
    KørTid = Now + TimeValue("00:01:00")
    Application.OnTime KørTid, "Timer"
End Sub

Private Sub Timer()
    Sheets("Ark1").Calculate
    Sheets("Ark2").Calculate
    StartTimer
End Sub

Sub StopTimer()
On Error Resume Next
Application.OnTime EarliestTime:=KørTid, Procedure:="Timer", Schedule:=False
End Sub
Avatar billede Excel Styrmanden Juniormester
14. marts 2021 - 23:22 #13
hvordan for jeg den til at starte tid selv når dokumentet åbnes? jeg skal lige nu ind manuelt og afspille den før den virker
Avatar billede store-morten Ekspert
15. marts 2021 - 00:00 #14
I Denne_projektmappe

Private Sub Workbook_Open()
Call StartTimer
End Sub
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

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





Premium
Claus Thorsgaard skal sætte gang i væksten som ny CEO: Her er hovedopgaverne som topchef i Luxion
Den tidligere Conscia-topchef Claus Thorsgaard skal nu sætte gang i væksten hos den danske it-virksomhed Luxion. "Luxion har et kæmpe uudnyttet potentiale. Ordrerne vælter ind ad døren uden en aktiv salgsindsats, så hvis vi begynder at fokusere på det, så skulle det gerne gå endnu bedre," siger den nye direktør til Computerworld.
CIO
Har du rost din mellemleder i dag? Snart er de uddøde - og det er et tab
Computerworld mener: Mellemledere lever livet farligt: Topledelsen får konstant ideer med skiftende hold i virkeligheden, og moden går mod flade agile organisationer. Men mellemlederen er en overset hverdagens helt med et kæmpe ansvar. Her er min hyldest til den ofte latterliggjorte mellemleder.
Job & Karriere
Eva Berneke stopper som topchef i KMD og flytter til Paris: Her er KMD's nye topchef
Efter syv år på posten som topchef for KMD forlader Eva Berneke selskabet. Nu flytter hun med familien til Paris, hvor hun vil fortsætte sit bestyrelsesarbejde. KMD har allerede afløser på plads.
White paper
Infrastruktur: Byg et velfungerende Data Estate i otte trin
Mange virksomheder trækker på så mange og righoldige datakilder, at det bliver stadig sværere at holde rede på alle de informationer, man har. Samtidig lever et traditionelt data warehouse sjældent op til hverken de aktuelle eller – i særdeleshed – fremtidige krav fra forretningen. Løsningen er at udvide til en egentlig Data Estate; et stykke kritisk infrastruktur som gør det muligt at opbevare, organisere, konsolidere og analysere organisationens samlede datamængde. Denne hvidbog giver et samlet billede af, hvordan man gennem otte trin bevæger sig mod at implementere og drage nytte af en Data Estate. Samt hvordan du prioriterer indsatsen, så den giver størst værdi for forretningen.