Onko mahdollista 800=8:00

hosu

On sellainen kysymys et onko mahdollista kirjoittaa kellonaika helpommin soluun. Esim. näin et kun kirjoitan soluun 830 niin sinne ilmeistyis automaattisesti 8:30.

11

723

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Nimimerkki

      En tiedä miten tuon pystyisi tehdä samaan soluun.

      Kenties VBA:lla kun valitset tiettyjä soluja niin VBA kysyy ne inputBox:lla ja kirjoittaa vastauksen soluun suoraan oikeassa muodossa, silloin ei kyllä kirjoiteta soluun suoraan.

      Mutta jos voit kirjoittaa vaikka B18 soluun tuon 830 ja vastauksen toiseen soluun vaikka C18, voit käyttää:

      =TIME(INT(B18/100); ((B18/100)-INT(B18/100))*100; 0)
      ja muotoiluksi tuolle t:mm, testasin tuon

      niin ja suomeksi tuo on varmaan, ei testattu:
      =AIKA(KOKONAISLUKU(B18/100); ((B18/100)-KOKONAISLUKU(B18/100))*100; 0)


      mielen kiintoista olisi jos joku tietää miten tuon saa samaan soluun

      • Mene automaattisesti

        Jos solu on aikasoluksi määritetty?


      • hosu

        Kyl se toimii! Ihan OK. Mut nyt tuli sellainen kysymys et kun lasken 8:00 ja 12:30 eron niin se ero on 4:30. Mitä jos haluaisin sen 4:30 muuttaa 4,5h (tai 4:45 = 4,75h jne.).


      • nimimerkki
        Mene automaattisesti kirjoitti:

        Jos solu on aikasoluksi määritetty?

        kokeilin monellatavalla, en saanut toimimaan tuota suoraan soluun johon kirjoitetaan esim 830


      • Nimimerkki
        hosu kirjoitti:

        Kyl se toimii! Ihan OK. Mut nyt tuli sellainen kysymys et kun lasken 8:00 ja 12:30 eron niin se ero on 4:30. Mitä jos haluaisin sen 4:30 muuttaa 4,5h (tai 4:45 = 4,75h jne.).

        Mites jos kerrot tuon 24:llä ja muotoiluksi kaksi desimaalia

        esim: =(A2-A1)*24


      • Viime vuonna vastasin tommoseen kyseleen ja tein VBA makron- en jaksa nyt alkaa kaivelemaan


      • Nimimerkki
        kunde kirjoitti:

        Viime vuonna vastasin tommoseen kyseleen ja tein VBA makron- en jaksa nyt alkaa kaivelemaan

        Muutaman yrityksen ja erehdyksen jälkeen sain tällaisen toimiin hyvin.

        Siinä on muutama tarkistus, esim minulla jäi eka pari kertaa pälle " Application.EnableEvents = False" kun kirjoitin eka kaavan vähän väärin (esim 0,6 pitikin olla 0.6), no joka tapauksessa tuosta se ei toipunut ennen kuin sulki koko excelin ja sitten avasi uudelleen, lisätköön muut parannuksia tarpeen mukaan.



        Private Sub Worksheet_Change(ByVal Target As Excel.Range)

        If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub

        If Not Intersect(Target, Range("tarkistaTunnit")) Is Nothing Then

        On Error Resume Next
        Application.EnableEvents = False

        Target = (Int(Target / 100) (((Target / 100) - Int(Target / 100)) / 0.6)) / 24

        Application.EnableEvents = True

        End If

        End Sub


      • Nimimerkki
        Nimimerkki kirjoitti:

        Muutaman yrityksen ja erehdyksen jälkeen sain tällaisen toimiin hyvin.

        Siinä on muutama tarkistus, esim minulla jäi eka pari kertaa pälle " Application.EnableEvents = False" kun kirjoitin eka kaavan vähän väärin (esim 0,6 pitikin olla 0.6), no joka tapauksessa tuosta se ei toipunut ennen kuin sulki koko excelin ja sitten avasi uudelleen, lisätköön muut parannuksia tarpeen mukaan.



        Private Sub Worksheet_Change(ByVal Target As Excel.Range)

        If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub

        If Not Intersect(Target, Range("tarkistaTunnit")) Is Nothing Then

        On Error Resume Next
        Application.EnableEvents = False

        Target = (Int(Target / 100) (((Target / 100) - Int(Target / 100)) / 0.6)) / 24

        Application.EnableEvents = True

        End If

        End Sub

        Tarkennetaan että tuossa käytetään nimettyä aluetta "tarkistaTunnit" tuo alue pitää ensin nimetä taulukkoon tarpeen mukaan esin yksi solu tai muutama solu tai jos tunnit lista muodossa niin koko sarake sille nimelle.

        Itse asiassa tuohhon voisi lisätä tarkistuksen tuosta nimestä ja huomautuksen jos sellaista nimeä ei ole.


      • hosu
        Nimimerkki kirjoitti:

        Muutaman yrityksen ja erehdyksen jälkeen sain tällaisen toimiin hyvin.

        Siinä on muutama tarkistus, esim minulla jäi eka pari kertaa pälle " Application.EnableEvents = False" kun kirjoitin eka kaavan vähän väärin (esim 0,6 pitikin olla 0.6), no joka tapauksessa tuosta se ei toipunut ennen kuin sulki koko excelin ja sitten avasi uudelleen, lisätköön muut parannuksia tarpeen mukaan.



        Private Sub Worksheet_Change(ByVal Target As Excel.Range)

        If Target.Cells.Count > 1 Or Target.HasFormula Then Exit Sub

        If Not Intersect(Target, Range("tarkistaTunnit")) Is Nothing Then

        On Error Resume Next
        Application.EnableEvents = False

        Target = (Int(Target / 100) (((Target / 100) - Int(Target / 100)) / 0.6)) / 24

        Application.EnableEvents = True

        End If

        End Sub

        Jep-jep. Nyt menee vähän monimutkaiseks. Pitäis varmaan ensin osata tehdä makroja ja pelaa sen VBA-n kans. Olen tähän mennes funktioihin ja kaavoihin tyytyny mut se ois ihan kivaa jos osais tommoisia juttuja. Yritän jostain saada lisää kokemusta. Ja onko noi jutut nyt suomenkieliseen excelin kans toimivia?


      • FunkyFunktio
        hosu kirjoitti:

        Jep-jep. Nyt menee vähän monimutkaiseks. Pitäis varmaan ensin osata tehdä makroja ja pelaa sen VBA-n kans. Olen tähän mennes funktioihin ja kaavoihin tyytyny mut se ois ihan kivaa jos osais tommoisia juttuja. Yritän jostain saada lisää kokemusta. Ja onko noi jutut nyt suomenkieliseen excelin kans toimivia?

        Format Cells -> välilehti: Number -> category: Custom

        Kirjoita "Type" kenttään:

        0\:00

        Nyt kun kirjoitat soluun esim 800, siinä lukee 8:00


      • FunkyFunktio
        FunkyFunktio kirjoitti:

        Format Cells -> välilehti: Number -> category: Custom

        Kirjoita "Type" kenttään:

        0\:00

        Nyt kun kirjoitat soluun esim 800, siinä lukee 8:00

        Näin muotoillun solun arvot ovat tekstiä, etkä voi suoraa laskea tunteja tai minuutteja suhteessa toisiin soluihin, itse käytän tätä muotoilua kun kirjoittelen raportteihin kellon aikoja. Kätevää jos niitä on paljon, esim "Time log" tyyppisessä listassa.


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      151
      10944
    2. Pieni häivähdys sinusta

      Olet niin totinen
      Ikävä
      52
      5230
    3. Taas ryssittiin oikein kunnolla

      r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html
      NATO
      45
      2433
    4. Missä olet ollut tänään kaivattuni?

      Ikävä sai yliotteen ❤️ En nähnyt sua tänään söpö mies
      Ikävä
      30
      2133
    5. Vanha Suola janottaa Iivarilla

      Vanha suola janottaa Siikalatvan kunnanjohtaja Pekka Iivaria. Mies kiertää Kemijärven kyläjuhlia ja kulttuuritapahtumia
      Kemijärvi
      13
      1701
    6. Valtimon Haapajärvellä paatti mäni nurin

      Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,
      Nurmes
      42
      1544
    7. Tiedän kuka sinä noista olet

      Lucky for you, olen rakastunut sinuun joten en reagoi negatiivisesti. Voit kertoa kavereillesi että kyl vaan, rakkautta
      Ikävä
      30
      1241
    8. Känniläiset veneessä?

      Siinä taas päästiin näyttämään miten tyhmiä känniläiset on. Heh heh "Kaikki osalliset ovat täysi-ikäisiä ja alkoholin v
      Nurmes
      35
      1176
    9. Daniel Nummelan linjapuhe 2025

      Kansanlähetyksen toiminnanjohtajan Daniel Nummelan linjapuhe tänään. Rehellistä analyysiä mm. evlut kirkosta ja piispo
      Luterilaisuus
      92
      935
    10. TÄSTÄ TAITAA TULLA SUOMEN HISTORIAN SUURIN USKONNONVAPAUDEN OIKEUDENKÄYNTI.

      Sinun täytyy hyväksyä se että jos sinä vetoat uskonnonvapauteen, silloin sinun tulee antaa myös muille vastaava vapaus o
      Hindulaisuus
      317
      892
    Aihe