Onko mahdollista 800=8:00

Jos solu on aikasoluksi määritetty?

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.).

Mene automaattisesti kirjoitti:

Jos solu on aikasoluksi määritetty?

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

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.).

Lue lisää

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

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

Lue lisää

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.

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

Lue lisää

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?

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?

Lue lisää

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

Kirjoita "Type" kenttään:

0\:00

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

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.