Moi.
Olen koittanut löytää ns. varmatoimista keinoa saada taulukkoni kulmasoluun (B3) automaattisesti päivittyvää "Tämä päivä" -toimintoa.
Alla kaksi eri vaihtoehtoa, jotka eivät ensin toimivat, mutta lakkaavat toimimasta jo seuraavana päivänä.
Luulisi, että tämä kaava =TÄMÄ.PÄIVÄ() toimisi takuuvarmasti, kun se on jopa Microsoftin omalla Office-sivulla, mutta ei toimi.
Tämän bongasin netin syövereistä, joka toimi vain ekana päivänä, eikä enää ns. huomenna. Tämän koodin laitoin Modul1:een viimeiseksi, eli alimmaiseksi.
Mahtaako olla ihan oikea paikka tälle? Siellä se ainakin toimi ekana täivänä, mutta ei "huomenna". :((
Sub example_DATE()
Range("B3").Value = Date
End Sub
"Tämä päivä" kateissa
Anonyymi
18
223
Vastaukset
- Anonyymi
Edit:
Kirjoitusvirhe lauseessa: "Alla kaksi eri vaihtoehtoa, jotka (eivät) ensin toimivat, mutta lakkaavat toimimasta jo seuraavana päivänä." -liikaa sana: "eivät"- Anonyymi
Se on kova paikka läheisille ja yhteiskunna kontakteille kun ihminen sekoaa!
- Anonyymi
Peteriltä kysyttiin miksei istu bussissa, se oli unohtanut parrun hanuriin
- Anonyymi
Kannattaa tarkistaa onko taulukossasi Kaavat/Laskennan asetukset/Automaattinen -täppä päällä. Tuo kertomasi (kaava ei päivity arvoksi) viittaa siihen että laskenta on kytketty manuaaliseksi.
- Anonyymi
Kiitos vastauksesta. Tarkastin välittömästi tuon "Kaavat/Laskennan asetukset/Automaattinen" - Automaattinen (se ylin) -täppä oli päällä.
Muotoiluasetuksina oli valmiina: Päivämäärä ja Lajina *14.1.2001. Muutin kokeeksi Lajin: 14.1.2001 (eli tähti pois).
Huomenna selviää tämäkin. - Anonyymi
Anonyymi kirjoitti:
Kiitos vastauksesta. Tarkastin välittömästi tuon "Kaavat/Laskennan asetukset/Automaattinen" - Automaattinen (se ylin) -täppä oli päällä.
Muotoiluasetuksina oli valmiina: Päivämäärä ja Lajina *14.1.2001. Muutin kokeeksi Lajin: 14.1.2001 (eli tähti pois).
Huomenna selviää tämäkin.Jos ja kun siellä on testi käynnissä, niin laita rinnalle samaan taulukkoon toinenkin aikaa hakeva funktio eli
=NYT()
ja sille haluttu vain päivämäärän näyttävä solumuoto. Jotain on pahasti pielessä jos edes jompikumpi ei osaa huomenna vaihtaa heti avauksessa automatic keskiviikosta torstaille. - Anonyymi
Anonyymi kirjoitti:
Jos ja kun siellä on testi käynnissä, niin laita rinnalle samaan taulukkoon toinenkin aikaa hakeva funktio eli
=NYT()
ja sille haluttu vain päivämäärän näyttävä solumuoto. Jotain on pahasti pielessä jos edes jompikumpi ei osaa huomenna vaihtaa heti avauksessa automatic keskiviikosta torstaille.Moi. Hyvä vinkki, kiitos. Laitoin sinne toiseksi testiksi =NYT() -kaavan muotoilulla Luokka: Oma ja Laji: p.k.vvv t:mm.
Huomenna näkyy miten kävi! - Anonyymi
Anonyymi kirjoitti:
Moi. Hyvä vinkki, kiitos. Laitoin sinne toiseksi testiksi =NYT() -kaavan muotoilulla Luokka: Oma ja Laji: p.k.vvv t:mm.
Huomenna näkyy miten kävi!Voihan sitä koneen kelloa siirtää.
- Anonyymi
Anonyymi kirjoitti:
Voihan sitä koneen kelloa siirtää.
Loisto-vihje, kiitos! Kokeilinkin heti vaihtaa pvm:iä.. eilen, toissapäivänä jne ja toimii!
Vaihdoin takaisin tälle päivälle ja avasin excelini.. ta-daa, siellähän se 22.1.2020 kelloaika oli!
Eli, tuo =NYT() -kaavan muotoilulla Luokka: Oma ja Laji: p.k.vvv t:mm toimii hyvin.
Kiitos kaikille! - Anonyymi
Anonyymi kirjoitti:
Loisto-vihje, kiitos! Kokeilinkin heti vaihtaa pvm:iä.. eilen, toissapäivänä jne ja toimii!
Vaihdoin takaisin tälle päivälle ja avasin excelini.. ta-daa, siellähän se 22.1.2020 kelloaika oli!
Eli, tuo =NYT() -kaavan muotoilulla Luokka: Oma ja Laji: p.k.vvv t:mm toimii hyvin.
Kiitos kaikille!Se on aina kiva tunne kun saa jonkin asian toimimaan.
- Anonyymi
Anonyymi kirjoitti:
Se on aina kiva tunne kun saa jonkin asian toimimaan.
Kyllä. Luin alla Kunden linkistä =NYT() -kaavan epävakaudesta. Seurataan miten tämä =NYT() -kaava toimii jatkossa.
- Anonyymi
Anonyymi kirjoitti:
Kyllä. Luin alla Kunden linkistä =NYT() -kaavan epävakaudesta. Seurataan miten tämä =NYT() -kaava toimii jatkossa.
Näin Seppon savollinnen terveysasemalla latkivan käsidesin koko automaatin tyhjäksi.
Horisi jostain windowsin amerikkalaisuudesta. - Anonyymi
Anonyymi kirjoitti:
Näin Seppon savollinnen terveysasemalla latkivan käsidesin koko automaatin tyhjäksi.
Horisi jostain windowsin amerikkalaisuudesta.Pataati imas heti bussissipysäkillä pari lidlin käsditesi purkkia.
Avainsana on volatile functiions...
http://www.decisionmodels.com/calcsecretsi.htm
Keep EXCELing
@Kunde- Anonyymi
Kundelle! Yritin tulkita linkkisi sisältöä -epävakaat/haihtuvat toiminnot.
Käyttämäni kaavat =TÄMÄ.PÄIVÄ() ja =NYT() taitavat olla juurinoita.
Jos nämä osoittautuvat epävakaiksi ja epävarmoiksi jatkossa, löytyisikö sinulta esim. VBA -koodina vakaata pätkää?
Jos luit aloitusmessuni, olin kokeillut tätä -joka ei äkkiseltään toiminutkaan automaattisesti seuraavana päivänä.
Sub example_DATE()
Range("B3").Value = Date
End Sub - Anonyymi
Anonyymi kirjoitti:
Kundelle! Yritin tulkita linkkisi sisältöä -epävakaat/haihtuvat toiminnot.
Käyttämäni kaavat =TÄMÄ.PÄIVÄ() ja =NYT() taitavat olla juurinoita.
Jos nämä osoittautuvat epävakaiksi ja epävarmoiksi jatkossa, löytyisikö sinulta esim. VBA -koodina vakaata pätkää?
Jos luit aloitusmessuni, olin kokeillut tätä -joka ei äkkiseltään toiminutkaan automaattisesti seuraavana päivänä.
Sub example_DATE()
Range("B3").Value = Date
End SubMessua sinä vuon.
Sub example_start()
Range("W10").Value = Fail
End Sub, Game over, Anonyymi kirjoitti:
Kundelle! Yritin tulkita linkkisi sisältöä -epävakaat/haihtuvat toiminnot.
Käyttämäni kaavat =TÄMÄ.PÄIVÄ() ja =NYT() taitavat olla juurinoita.
Jos nämä osoittautuvat epävakaiksi ja epävarmoiksi jatkossa, löytyisikö sinulta esim. VBA -koodina vakaata pätkää?
Jos luit aloitusmessuni, olin kokeillut tätä -joka ei äkkiseltään toiminutkaan automaattisesti seuraavana päivänä.
Sub example_DATE()
Range("B3").Value = Date
End SubSub example_DATE()
Range("B3").Value = Date
End Sub
ei voi toimia, kun ei sitä mistään kutsuta...
jos haluat, että se päivittyy kun, joku sarakkeen C solu muuttuu, niin koodi silloin ja example_DATE() tavallisessa moduulissa
ko taulukon moduuliin...
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C:C"), Target) Is Nothing Then
example_DATE
End If
End Sub
automaatisesti avatessa päivyttävä kood(päivittyy vain tiedostoa avattaessa)
ThisWorkbook moduuliin...
Private Sub Workbook_Open()
Range("A1") = Date
End Sub
vastaava vain suljettaessa sourotettava koodi
Private Sub Workbook_Close()
Range("A1") = Date
End Sub
jos koodilla haluat tehdä automaattisen päivityksen, kun tehdään uudelleen laskenta, tarvitaan koodiin lisätä volatile true
soluun, mihin haluat automaatisesti päivityksen(voi olla mitä tahansa koosissa, ei siis vain päiväys) laitat kaavan =päiväys()
tavalliseen moduuliin...
Function Päiväys() As Date
Application.Volatile True
Päiväys = Date
'sama muotoiltuna päiväyksenä
'Päiväys = Format(Date, "dddd")
End Function
NOW() ja TODAY() kyllä päivittyvät, jos taukossa tapahtuu uudelleenlaskenta...
Keep EXCELing
@Kunde- Anonyymi
kunde kirjoitti:
Sub example_DATE()
Range("B3").Value = Date
End Sub
ei voi toimia, kun ei sitä mistään kutsuta...
jos haluat, että se päivittyy kun, joku sarakkeen C solu muuttuu, niin koodi silloin ja example_DATE() tavallisessa moduulissa
ko taulukon moduuliin...
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("C:C"), Target) Is Nothing Then
example_DATE
End If
End Sub
automaatisesti avatessa päivyttävä kood(päivittyy vain tiedostoa avattaessa)
ThisWorkbook moduuliin...
Private Sub Workbook_Open()
Range("A1") = Date
End Sub
vastaava vain suljettaessa sourotettava koodi
Private Sub Workbook_Close()
Range("A1") = Date
End Sub
jos koodilla haluat tehdä automaattisen päivityksen, kun tehdään uudelleen laskenta, tarvitaan koodiin lisätä volatile true
soluun, mihin haluat automaatisesti päivityksen(voi olla mitä tahansa koosissa, ei siis vain päiväys) laitat kaavan =päiväys()
tavalliseen moduuliin...
Function Päiväys() As Date
Application.Volatile True
Päiväys = Date
'sama muotoiltuna päiväyksenä
'Päiväys = Format(Date, "dddd")
End Function
NOW() ja TODAY() kyllä päivittyvät, jos taukossa tapahtuu uudelleenlaskenta...
Keep EXCELing
@KundeKiitos Kunde, laitoin testiin tämän koodin:
ThisWorkbook moduuliin...
Private Sub Workbook_Open()
Range("A1") = Date
End Sub
Ketjusta on poistettu 3 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
SDP jo 100 % suositumpi kuin persut
Kertoo Hesarin uusin kannatuskysely. Demareiden kannatus on miltei tuplat verrattuna persuihinl. Suomen kansa ei selväst24614328Valtavasti suomalaisia asunnottomina, mutta ei yhtään somalia
tai muuta kehitysmaalaista. Mites tässä näin kävi? Tiedän hyvin, että esim. somaleita lentää ulos mm. Hekan asunnoista,1443763PS ylivoimainen nousija myös HS:n gallupissa, SDP laskee taas
https://www.verkkouutiset.fi/a/hs-gallup-sdpn-suosio-laskee-ps-nousussa/#0a7d2507 Ylivoimainen viime kuukausien nousija1283712Kovia syytöksiä Stefan Thermaninsta.
Jättänyt taas maksamatta kohuliikemies, hupparit ja muita ostamiaan tavaroita. On soiteltu liikkeestä ja Stefan iskenyt1621450Totuuspuolueen johtaja Jaana "prinsessa Leia" Kavonius on vangittu
Kavonius määrättiin jo keväällä 2024 poissaolevana vangittavaksi todennäköisin syin epäiltynä 13 vainoamisesta ja 24 kun3591426Jos joku luulee että kaikki käy
Sanon vain tämän. Minun kanssani ei neuvotella. Minun kanssani eletään tasavertaisesti. Jos se on liikaa, niin ovi rinn411190En minä kyllä enää odota sinua
Olet siellä sen harmaan kanssa. Niin, annoit minun nähdä lämpimät tunteesi siitä huolimatta. Se merkitsi kyllä paljon. O101026Sakin hivutus - ilmiö
Miten tuollainen tuollainen ilmiö kuin ”sakin hivutus” syntyy? Mitä syitä ilmiön syntymiseen tarvitaan? Onko sakissa jok45908Ei ole rohkeutta tulla jututtamaan
Voidaan me nähdä ja tervehtiä, sitäkin harvoin, mutta iso kynnys on edes mennä lähelle ja kysyä kuulumisia. Ymmärrät var8891En pystynyt vaan vastaamaan...
Kaikki on ihan solmussa eikä ole voimia alkaa ratkaista naisena 😔90746