brugerdefineret formatering

Hvis "minutes / minute" må anføres i separat celle - så er dette måske en mulighed:
=HVIS(A1>1;"minutes";"minute")

Nej, det skal være så man kan indtaste i cellen med formateringen.

Så skal der nok anvendes en stump VBA-kode

Kan du lave den, er ikke god til VBA

rem Indlægges i VBA (Alt+F11) i Ark1
Private Sub worksheet_change(ByVal Target As Excel.Range)
    kol = Target.Column
    ræk = Target.Row
   
    If kol = 1 And Target.Value <> "" Then                  'hvis der indtastes i kolonne A=1
        Target.Select
        If Target.Value > 1 Then
                Selection.NumberFormat = "#.##0 ""minutes"""
        Else
                Selection.NumberFormat = "#.##0 ""minute"""
        End If
    End If
End Sub

Kan det ikke laves, så det kun gælder for cellerne C20 og F20. Jeg har nemlig nogle lignende formateringer andre steder i arket, f.eks. Day og days, og time og times.

Jo - det vender jeg tilbage med..

Private Sub worksheet_change(ByVal Target As Excel.Range)
    If Target.Address = "$C$20" Or Target.Address = "$F$20" And Target.Value <> "" Then                  'hvis der indtastes i kolonne A=1
        Target.Select
        If Target.Value > 1 Then
                Selection.NumberFormat = "#.##0 ""minutes"""
        Else
                Selection.NumberFormat = "#.##0 ""minute"""
        End If
    End If
End Sub

Når jeg indtaster noget i f.eks. C20 kommer den med en run-time error '1004' Kan ikke angive egenskaben NumberFormat for klassen Range.
Når jeg går ind i Visual Basic er denne række markeret med gul:

Selection.NumberFormat = "#.##0 ""minutes"""

Hm - vender tilbage...

Ved godt hvad der gik galt, havde glemt at fjerne den oprindelige formatering. Jeg vil gerne bare lige vide hvordan man får tallene med 0 decimaler.

Når jeg skal lave det samme med days og day, kan jeg vel bare rette lidt i koden, og sætte den i under den første.

1) Erstat #.##0 med #.000
2) Ja, prøv - ellers giv signal

Skal man ikke bare ændre det til ###, så er der ingen decimaler. Ville gerne have at hvis der står 0, at der så også står 0 minutes. Altså det er kun når der står 1, at der skal stå minutter.

Jeg har også et problem med en runtime error '13' Type mismatch. Det er fordi jeg har lavet en makro til at nulstille nogle celler i arket med. Og når jeg så nulstiller kommer den op med runtime error. Linien som det er galt med er denne:

If Target.Address = "$C$20" Or Target.Address = "$F$20" And Target.Value <> "" Then                  'hvis der indtastes i kolonne A=1

Jeg vil gerne have at der bare står 0 minutes, når jeg nulstiller, hvis det kan lade sig gøre.

Sorru, det var noget vrøvl.

Altså det er kun når der står 1, at der skal stå minute.

Prøv at se på denne version:

Private Sub worksheet_change(ByVal Target As Excel.Range)
Rem er celle-adressen præcis?
    If Target.Address = "$C$20" Or Target.Address = "$F$20" Then
        If Target.Value <> "" Then
            Target.Select
            If Target.Value > 1 Then
                    Selection.NumberFormat = "#### ""minutes"""
            Else
                    Selection.NumberFormat = "#### ""minute"""
            End If
        Else
            Target.Value = 0
            Selection.NumberFormat = "0 ""minutes"""
        End If
    End If
End Sub

Den kan got skelne mellem 1 og andre tal, men når man taster 0, står der bare minute. Også selvom der inde i VBA står minutes.

Desuden virker den heller ikke, når arket er låst, som jeg gerne vil have det er.

Ret denne linie:
If Target.Value > 1 Then

til:
If Target.Value = 1 Then

Når jeg retter linien til det som du foreslår, kommer der til at stå f.eks. 2 minute og 1 minutes og når man taster 0 står der kun "minute" uden et 0 foran.

Flyt "s" ned i nederste linie.

          If Target.Value = 1 Then
                    Selection.NumberFormat = "#### ""minute"""
            Else
                    Selection.NumberFormat = "#### ""minutes"""
            Endif

Har dog stadig problemer med 0, der står der kun minutes. Og så kommer den op med runtime-error 1004, når arket er låst. Jeg vil gerne have at man også kan rette i disse celler selovm arket er låst.