Pilkut pisteiksi

mutta jos tuo desimaalimerkin vaihtaminen pilkusta pisteeksi muuttaa koko taulukon asetukset niin sitten se ei ole vaihtoehto. Muissa sarakkeissa tarvitaan pilkkuja ihan normaalisti desimaalimerkkeinä.

Päivämääräsarakkeessa tarvitaan vain päivä ja kuukausi, ei esim. vuotta. Ja noita ei tarvita missään vaiheessa laskemiseen, luin kyllä noita edellisiä viestejäkin aiheesta. No, olkoon, nostelen sitten sitä oikeaa kättä välillä pisteelle ja takaisin :-)

alkup. kirjoitti:

mutta jos tuo desimaalimerkin vaihtaminen pilkusta pisteeksi muuttaa koko taulukon asetukset niin sitten se ei ole vaihtoehto. Muissa sarakkeissa tarvitaan pilkkuja ihan normaalisti desimaalimerkkeinä.

Päivämääräsarakkeessa tarvitaan vain päivä ja kuukausi, ei esim. vuotta. Ja noita ei tarvita missään vaiheessa laskemiseen, luin kyllä noita edellisiä viestejäkin aiheesta. No, olkoon, nostelen sitten sitä oikeaa kättä välillä pisteelle ja takaisin :-)

Lue lisää

taisin löytää sellaisen muotoilun jolla onnistuu.

alkup. kirjoitti:

taisin löytää sellaisen muotoilun jolla onnistuu.

salaisuus vai voitko kertoa sen ihan julkisesti...

Yes! Kokeilin tätä jo aikaisemmin, mutten ymmärtänyt, että voin itse valita asetuksiin kaksoispisteen, kun näin siinä vaan pilkun ja pisteen :) :) :) haha!

Luultavasti ei onnistu niin, että se muuttuisi heti JA siihen samaan soluun, mutta voit joko
A) tehdä toiseen soluun kaavan, joka muuttaa syötetyn luvun tuohon haluttuun muotoon tai
B) tehdä makron, joka napin painalluksella muokkaa väärinkirjoitetut kellonajat haluttuun muotoon.

Anonyymi kirjoitti:

Luultavasti ei onnistu niin, että se muuttuisi heti JA siihen samaan soluun, mutta voit joko
A) tehdä toiseen soluun kaavan, joka muuttaa syötetyn luvun tuohon haluttuun muotoon tai
B) tehdä makron, joka napin painalluksella muokkaa väärinkirjoitetut kellonajat haluttuun muotoon.

Lue lisää

Kiitti vinkeistä. Näillekin voi olla käyttöä. Aina oppii viisaammilta. Muutin lisäasetuksien kautta kaksoispisteeksi ja TOIMII!

Tämä muuttaa määritellylle alueelle syötetyn luvun ajaksi. Se tulee ko. sivun moduliin.
Jos syötetyn pituus on alle kolme, tunti on 0.
Minuuttien on oltava alle 60.
Tunti ei saa olla yli 23.
Voi liittää leikepöydältä useampiakin kerralla.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Set alue = Range("A1:A6") ' Muuta mieleiseksi
    e = ":" 
    Dim solu As Range
    
On Error GoTo err:
    
    Application.EnableEvents = False
    For Each solu In Target
        If solu <> "" And Not Intersect(solu, alue) Is Nothing Then
            l = Len(solu)
            If l < 3 Then h = 0 Else h = Left(solu, l - 2)
            m = Right(solu, 2)
            If Val(m) < 60 Then
                If InStr(1, solu, e) = 0 And h < 24 Then ' > 2 And l < 5 Then
                    solu = h & e & m
                End If
            End If
        End If
    Next solu

err:
    Application.EnableEvents = True
End Sub

Anonyymi kirjoitti:

Tämä muuttaa määritellylle alueelle syötetyn luvun ajaksi. Se tulee ko. sivun moduliin.
Jos syötetyn pituus on alle kolme, tunti on 0.
Minuuttien on oltava alle 60.
Tunti ei saa olla yli 23.
Voi liittää leikepöydältä useampiakin kerralla.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Set alue = Range("A1:A6") ' Muuta mieleiseksi
    e = ":" 
    Dim solu As Range
    
On Error GoTo err:
    
    Application.EnableEvents = False
    For Each solu In Target
        If solu <> "" And Not Intersect(solu, alue) Is Nothing Then
            l = Len(solu)
            If l < 3 Then h = 0 Else h = Left(solu, l - 2)
            m = Right(solu, 2)
            If Val(m) < 60 Then
                If InStr(1, solu, e) = 0 And h < 24 Then ' > 2 And l < 5 Then
                    solu = h & e & m
                End If
            End If
        End If
    Next solu

err:
    Application.EnableEvents = True
End Sub

Lue lisää

Tuon Subin pitäisi kyllä olla
Workbook_SheetChange(ByVal Target As Range)
eikä
Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Aika kirjoitetaan paljaana lukuna ilman välimerkkejä: 2 --> 0:02 ja 123 --> 1:23