Laskentapäivitys heti makrolla, miten?

Kiitos, Mr VBA, tutkiskelen, opiskelen ohjettasi

jos tallennatkin jonkun muun kuin sun ajatuksissasi olleen taulukon ollessa aktiivinen, niin mitäs tapahtuu seuraavalla kerralla kun avaat ExCELin... ;-)
ei hjuva

Keep EXCELing
@Kunde

"Moi Kunde, ei mitään."

Aivan oikein! Ei tapahdu mitään

Aika = Range("A1").Value

jos oletuksena oli vaikka Taul1 ja siellä toi arvo haetaan, toimiii niin kauan oikein kun olet tallentanut EXCELin Taul1 ollessa aktiivinen. Jos sen sijaan tallennat esim. Taul2 ollessa aktiivinen, ei toimi koska A1 arvo luetaan aktiivisesta taulukosta ja todennäköisesti muissa taulukoissa ei ole tota aikaa A1:ssa

ymmärsitkö pointtini?


Keep EXCELing
@Kunde

Vähän tökkii eli testimakro ei käynnisty automaattisesti. Missäköhän mulla on virhe:

Soluun A1 laitan ajan muodossa pv ja klo, siis:
30.4.2013 9:39:00

Vbasicissa kohdassa: Tämä työkirja:

Private Sub Workbook_Open()

'solussa A1 haluttu alkamisaika makrolle nimeltä tietoa
'Application.OnTime TimeValue(Aika), "Tietoa"

On Error Resume Next

Dim Aika As Date
Aika = Range("A1").Value

Application.OnTime DateValue(Aika), "Tietoa"

End Sub

Moduliin laitettuna:


Sub Tietoa()
'
' tekstiä_E_H_alueelle Makro
Range("E5:H24").Select
Selection.FormulaR1C1 = "Tekstiä"
End Sub


Tilanne tarkemmin:
Kone ja tiedosto ja välilehti koko ajan käynnissä, kyseessä näyttöruutu työntekijöille

Moi, tiedosto tarvitsee avata vain kerran. Kannattaa kunde testata. Ajattelin aikaisemmin työntekijää, joka tulee ysiltä töihin ja avaa koneen ja tiedoston ja sulkee koneen viideltä. Mutta jos tiedosto kokoajan siis auki, niin toimii joka vuorokausi samaan aikaan vaikka A1 pvm formaatti olisi 1950-luvulla. Kelloaika merkitsee;)

Mutta ..tässä kuitenkin koodia aikaisemman sijasta ja makro, jossa haluttu aloitus-aika. Tiedosto auki ja kellonaika moduuli vaan päälle. testauskommentit ?

ThisWorkbook kohtaan:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim LisääAikaa As Date
LisääAikaa = TimeValue("00:00:01") Now
On Error Resume Next
Application.OnTime LisääAikaa, "KellonAika", , False
End Sub

Moduuleihin:

Sub KellonAika()
Dim LisääAikaa As Date
Dim Käyntiin As Date
'alle haluttu käynnistys-aika joka vuorokausi
Käyntiin = ("23:59:59")
ActiveWorkbook.Sheets(1).Range("A1").Value = Time
If Time = Käyntiin Then Tietoa
LisääAikaa = TimeValue("00:00:01") Now
Application.OnTime LisääAikaa, "KellonAika"
End Sub

Sub Tietoa()
' tekstiä_E_H_alueelle Makro
Range("E5:H24").Select
Selection.FormulaR1C1 = "Tekstiä"
End Sub

Mr.VBA kirjoitti:

Moi, tiedosto tarvitsee avata vain kerran. Kannattaa kunde testata. Ajattelin aikaisemmin työntekijää, joka tulee ysiltä töihin ja avaa koneen ja tiedoston ja sulkee koneen viideltä. Mutta jos tiedosto kokoajan siis auki, niin toimii joka vuorokausi samaan aikaan vaikka A1 pvm formaatti olisi 1950-luvulla. Kelloaika merkitsee;)

Mutta ..tässä kuitenkin koodia aikaisemman sijasta ja makro, jossa haluttu aloitus-aika. Tiedosto auki ja kellonaika moduuli vaan päälle. testauskommentit ?

ThisWorkbook kohtaan:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim LisääAikaa As Date
LisääAikaa = TimeValue("00:00:01") Now
On Error Resume Next
Application.OnTime LisääAikaa, "KellonAika", , False
End Sub

Moduuleihin:

Sub KellonAika()
Dim LisääAikaa As Date
Dim Käyntiin As Date
'alle haluttu käynnistys-aika joka vuorokausi
Käyntiin = ("23:59:59")
ActiveWorkbook.Sheets(1).Range("A1").Value = Time
If Time = Käyntiin Then Tietoa
LisääAikaa = TimeValue("00:00:01") Now
Application.OnTime LisääAikaa, "KellonAika"
End Sub

Sub Tietoa()
' tekstiä_E_H_alueelle Makro
Range("E5:H24").Select
Selection.FormulaR1C1 = "Tekstiä"
End Sub

Lue lisää

Miksi noin monimutkaisesti, jos Excel auki kokoajan ja 00:00:00 tapahtuu makron suoritus?

yksi helppo keino olisi käyttää Windowsin omaa ajastettua toimintaa ja silloin Excel voi olla suljettuna kokoajan. Toki, jos pitää lukea dataa jostain kokoajan niin ei voi käyttää. Mutta jos esim. juuri, ennen makron suoritusta voidaan lukea dataa sisään silloin tekisin itse tällä, koska ei tartte Excelin olla auki resursseja viemässä.
siis START/ ADMINISTRATIVE TOOLS/ SHEDULE TASK ja siellä lisäät ton Excelin avaamisen ja Auto-Open tapahtumaan tarvittavat koodit ...


Keep EXCELing
@Kunde

Toisaalta kysymyshän oli miten korvata F9 napin painallus, jos solussa aika muuttuu ja raja ylittyy
kuinkas to inyt käynnistää makron?
ei siinä tartte tommosia...
ei vastaa kysymykseen ;-)

KEEP EXCELing
@Kunde