On sellainen kysymys et onko mahdollista kirjoittaa kellonaika helpommin soluun. Esim. näin et kun kirjoitan soluun 830 niin sinne ilmeistyis automaattisesti 8:30.
Onko mahdollista 800=8:00
hosu
11
744
Vastaukset
- 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 - 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 SubTarkennetaan 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 SubJep-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:00Nä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
Kiva kun SDP alkaa hallitsemaan Suomea
Vanhat hyvät ajat taas palaavat ja kansa vaurastuu. Muistatteko vielä Sorsan aikakauden? Silloin Suomessa tehtiin jopa2697067Säästäminen on typerää, muistakaa äänestää demareita
Säästäminen on typerää, koska aiheuttaa vain talouden taantumista ja lopulta tappaa potilaan. Demareiden tapa on satsat643789Olli Rehn: Eläkkeistä pitää leikata. Nyt tuli Lindtmanille kauhun paikka
jos johtaa seuraavaa hallitusta. Purra: eläkkeisiin ei kosketa. Eikä tällä hallituskaudella varmasti kosketa, mutta seur2573072SDP:n budjetin peruskivi: "Rahaa nimittäin on!"
Demarien talouspolitiikan ydin on usein tiivistetty klassiseen meemiin: rahaa on, kunhan se on jonkun muun rahaa. Vuoden521829Sara Sieppi umpirehellisenä Amazing Race -kulissien takaisesta elämästä
Sara Sieppi oli mukana Amazing Race Suomi -realityssä. Somevaikuttajalla oli takana raskasta aikaa ja isoja suruja, eikä11297Herkkua vai hötöä? Kaksi Beck-leffaa tällä vkolla tv:stä
Beck-elokuvat tuntuvat olevan suomalaisten makuun. Tällä viikolla televisiosta tulee kaksi ruotsalaista taidonnäytettä,31182Hatunnosto! Mari Hynynen (os. Perankoski) ja Jouni Hynynen auttavat vähäosaisia upealla tavalla!
Hatunnosto! Mari ja Jouni Hynynen ovat Vailla vakinaista asuntoa ry:n uudet kummit. Hynysiä motivoi halu lisätä ymmärr51047- 101993
TTP avajaiset
Tuhannen Taalan Paikka avautuu 1.3-26. Onpa tosi mukavaa! Kiitos Jaanalle kun olet niin aktiivinen ja jaksat yrittää ja40952Tiesitkö? Tämä suomalainen keksi Elämäni biisi -sarjan - Viinin lipittely mainittu!
Tiesitkö? Elämäni biisi on suomalainen formaatti ja sen takana on Petja Peltomaa. Hänen kynästä ovat lähtöisin myös mm.0921