Lås datoformat i Excel 2007

Hej lineriber

Hvad med:

- Højreklik på celle
- Format cells ...
- Number fanebladet
- Vælg: Custom
- I typefeltet skriver du "din" type, eks.  tt:mm
- OK


Prøv det :o)

Mvh Nicolai

Ja men det LÅSER ikke feltet, til at man kun kan skrive i det format.
Man kan selv skrive fx 1,5, som så bliver omregnet af excel til et eller andet vanvittigt, så det dur ikke!

Prøv:

Data-->
Datavalidering-->
Indstillinger-->
Tilad: Klokkeslæt og
Data: Mindre end og
Slutklokkeslæt: 23:59:59

Dur ikke store-morten, den havde jeg prøvet. Man kan nemlig stadig godt kan få lov at skrive fx 0,50, hvilket derefter bliver konverteret til 12:00!!

Og undskyld den lange tilbagemeldingstid - har været på ferie :-)

Hej lineriber

Hvordan skal Excel kunne regne ud, at den enkelte bruger mener 1:30 når han/hun eksempelvis skriver 1,50 ??

Hva´ hvis brugeren skriver f.eks. 1,52 ??, hvad skal Excel så skrive ??



mvh Nicolai

Måske fordi jeg har 2003?

Der virker det.

Godtager ikke 1,50 men gerne 1:30

Ups... Du har helt ret.
Under 1 time kan godt skrives som komma tal.

Hej lalocin (Nikolai)
Det kan excel selvfølgelig ikke vide, det er også derfor at jeg gerne vil kunne begrænse indtastningen til kun at kunne laves i formatet tt:mm.
Det er altså formatet af den indtastede værdi og ikke kun det viste format, jeg vil begrænse.

Rem VERSION 2 - 12-07-2010
Private Sub Worksheet_Change(ByVal target As Range)
Static flag As Boolean
Dim ttmm As String, okTid As Date
    If target.Column = 11 And target.Row >= 4 Then
        Application.ScreenUpdating = False
        If flag = False And InStr(target.Address, ":") = 0 Then
            tid = target
           
            Range(target.Address).Select
            ttmm = Format(target, "#0:##")
           
            If IsEmpty(target) = True Then          'mulighed for at slette uden fejlmarkering
                markerOK flag, ttmm
            Else
                If IsDate(ttmm) = False Or legalNotation(target) = False Then
                    markerFejl target
                Else
                    markerOK flag, ttmm
                End If
            End If
        End If
    End If
    flag = False
   
    'Application.ScreenUpdating = True
End Sub
Private Sub markerOK(flag, ttmm)
    Application.ScreenUpdating = False
    flag = True
    Selection.Value = ttmm
    ActiveCell.Interior.ColorIndex = xlColorIndexNone
End Sub
Private Sub markerFejl(target)
'    Application.ScreenUpdating = False
    target.Value = ""
    MsgBox "Indtast forbrugt tid som timer og minutter UDEN tegn. Fx " & vbCr & _
        "1 time og 30 minutter indtastes som 130." & vbCr & _
            "45 minutter indtastes som 45.", , "Forbrugt tid"
End Sub
Private Function legalNotation(tid)
Dim f As Byte
    For f = 1 To Len(tid)
        If IsNumeric(Mid(tid, f, 1)) = False Then
            legalNotation = False
            Exit Function
        End If
    Next f
    legalNotation = True
End Function

Tak supertekst - helt perfekt :-)

selv tak..