"Tämä päivä" kateissa

Anonyymi

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

18

292

Äänestä

    Vastaukset 18

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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.

    • 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 Sub

        Messua sinä vuon.
        Sub example_start()
        Range("W10").Value = Fail
        End Sub, Game over,

      • kunde
        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 Sub

        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
        @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
        @Kunde

        Kiitos 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ä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Gallup: Kansalaiset eivät usko velkajarruun

      Puolet suomalaisista ei usko velkajarrun vaatimien sopeutusten toteutuvan, kertoo Iro Researchin kyselytutkimus. Kokoom
      Maailman menoa
      69
      1072

    2. Ethän mies vielä

      luovu meistä? Haluaisin jo sun syliin.
      Ikävä
      64
      862

    3. Sinulle nainen

      En ehkä koskaan osannut sanoa tätä oikein. Minun vaikeuteni luottaa liittyi ennen kaikkea menettämisen pelkoon. Siihen
      Ikävä
      66
      856

    4. Haaveilen edelleen

      Sinusta aika ajoin
      Ikävä
      53
      838

    5. Mä oon kallistumassa

      Rikosilmoitukseen!
      Suhteet
      185
      821

    6. Ethän voinut nainen tietää, että rikot rikotun

      Omaa elämää taas mietin aamuyön tunteina. En vieläkään löytänyt muistin sokkeloista ainuttakaan onnen hetkeä. Kaipuu on
      Ikävä
      72
      702

    7. Tiedätkö sitä

      Että sinun äänesi on ihanan pehmeä
      Ikävä
      42
      696

    8. Martsusta tuli leuhka

      Ja ylimielinen. Hän ei nosta persettäkään ilmaseksi . Luulempa et nämä ei tee hyvää hyvinvointivalmennuksille.... Nannal
      Kotimaiset julkkisjuorut
      206
      680

    9. Hei rakkaani.

      Kohtaaminen lähestyy. Miten teemme sen? Kumpi ottaa yhteyttä vai törmäämmekö jossain sattumalta? Tuleva vaimosi
      Ikävä
      51
      673

    10. Kuisla Group Oy jättänyt yrityssaneeraushakemuksen

      Samalla yrityssaneeraukseen on hakeutunut Kuisla henkilökohtaisesti ja Seinäjoen Motelli Oy, joka omistaa Sorsanpesän ki
      Seinäjoki
      28
      624

    11. Kiulu myynnissä!

      Kiulu hakee taas uutta yrittäjää. https://www.yritysporssi.fi/etela-pohjanmaa-lansi-suomi-finland/myytavat/yritykset/ma
      Ähtäri
      26
      578

    12. On paha olla

      Kun olen käyttäytynyt aiemmin kaivattua kohtaan kuin joku narsisti.
      Ikävä
      42
      538

    13. Uskallanko laittaa sulle viestiä?

      Se viesti on tossa valmiina ja lähettämistä vaille valmis. Kun ei kauhee sti tunneta niin eipä sillä olisi niin väliä. S
      Ikävä
      51
      538

    14. Et pysty peittämään minulta

      Sinä olet hyvä peittämään asioita niin halutessasi. Pystyt pitkiäkin aikoja salaamaan juttuja. Juuri mietin tuossa, olet
      Ikävä
      47
      464

    15. Tulisiko naisille asettaa korkeammat eläkemaksut

      Tämä tuli mieleeni kun luin aamun lööppejä. Japanissa alkaa olla "uutta nuorisoa" ihan urakalla, ikä alkaa sadan jälkeen
      Sinkut
      169
      464

    16. Mikä tekee kaivatustasi

      Haluttavan?
      Ikävä
      18
      448

    17. Mitä oikein tapahtui? Maajussi-Jetta sai tylyt pakit - Sulhoehdokas selittää: "Ei lentänyt kipinät"

      Maajussille morsian -sarjassa etsitään rakkautta ja rinnalle kumppania. Yksi maajusseista on Jetta - liikunnallinen ja
      Maajussille morsian
      12
      427

    18. Makeinen, asiaa sinulle

      Minua korkeampien voimien kehotuksesta sinua pyydetään avaamaan jokin yhteys asioista keskustelemisen takia kanssani. Il
      Ikävä
      28
      393

    19. Huumekauppaako

      ”Huumekauppa johti rajuun väkivaltaan Kokkolassa – Kolme nuorta otettu kiinni, yksi epäillyistä alaikäinen”
      Kokkola
      9
      374

    20. J-mies!

      Meidän "suhde" (suhde mitä ei oikeastaan edes ole) on kielletty ja vaikea. En tiedä mihin uskot, mutta olet irl itsekin
      Ikävä
      32
      372
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt