Betinget formatering

Hej

Jeg mener ikke du kan gøre det ved en funktion i betinget formatering. Du kan gøre det ved at lave funktionen i VBA.

Jeg har nedenfor udarbejdet et lille eksempel til dig som løser dit problem for celle A2 og B2 ved ændring af celle C2.

Indsæt nedenstående kode i dit arkmodul.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Range("C2").Value
    Case 1
        Range("A2:B2").NumberFormat = "#,##0.0"
    Case 2
        Range("A2:B2").NumberFormat = "#,##0.00"
    Case 3
        Range("A2:B2").NumberFormat = "#,##0.000"
    Case 4
        Range("A2:B2").NumberFormat = "#,##0.0000"
    Case 5
        Range("A2:B2").NumberFormat = "#,##0.00000"
    Case Else
        MsgBox "Du kan ikke indsætte mere end 5 decimaler i denne funktion!"
        Range("A2:B2").NumberFormat = "#,##0.00000"
End Select
End Sub

Hvis du vil kunne styre det lidt mere smart, så anvend nedenstående i dit arkmodul.

I dit ark navngiver du celle som skal styre antallet af decimaler "decAntal".

Herefter markerer du alle de celler/områder (hold Ctrl. nede og vælg) og navngiv området "maal".

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Range("decAntal").Value
    Case 1
        Range("maal").NumberFormat = "#,##0.0"
    Case 2
        Range("maal").NumberFormat = "#,##0.00"
    Case 3
        Range("maal").NumberFormat = "#,##0.000"
    Case 4
        Range("maal").NumberFormat = "#,##0.0000"
    Case 5
        Range("maal").NumberFormat = "#,##0.00000"
    Case Else
        MsgBox "Du kan ikke indsætte mindre end 1 eller mare end 5 decimaler i denne funktion!"
        Range("maal").NumberFormat = "#,##0.00000"
End Select
End Sub

For at komme ind i Visual Basic til Excel skal du trykke Alt + F11.

Det ser meget rigtigt ud, men problemet er at jeg ikke har meget forstand på Visual Basic.
Jeg har forsøgt at sætte koden ind og hvad så?

Kunne jeg evt. lokke dig til at sende en test?

Nevermind, jeg har fundet ud af det. Din løsning virker perfekt!
TAK!
Lægger du lige et svar?

Virker godt nok lige bortset fra en helt anden prolematik, følgende + regnestykke giver en forkert afrunding:
2,132 + 39,286 = 41,417

prøv lige at tjekke om der ikke er flere end de 3 decimaler

Excel regner jo på alle decimaler, uanset om du kan se dem

2,1316 + 39,2856 = 41,417

men vises som
2,132 + 39,286 = 41,417. når du kun har 3 decimaler

Spørgsmålet er så hvordan jeg får det rigtige output (visning)?

hvis du sætter denne i C kolonnen, får du det antal decimaler der er i A kolonnen

=LÆNGDE(A1)-(LÆNGDE(HELTAL(A1))+1)

Ikke forstået i forhold til mit oprindelige og første spørgsmål

du behøver ikke at sætte den i C kolonnen, men den kan give dig et fingerpeg om hvor mange decimaler der er.

Her er et svar!

Når jeg indtaster 2,132 i celle A2 og 39,286 i celle B2 og jeg i celle D2 skriver "=A2+B2" får jeg i celle D2 resultatet 41,418.

Prøv som kabbak siger at undersøge om der i dine beregninger ikke er mere end 3 decimaler eksempelvis at dine tal faktisk ser således ud 2,1316 og 39,2858 dette giver nemlig resultatet 41,417.

Hilsen

TVC

Mit problem er at jeg ved hjælp af slump frembringer en række (et helt opgaveark til elever) med tilfældige tal indenfor et bestemt interval


celle b12 =(SLUMP()*($I$3-$H$3)+$H$3)
celle b13=(SLUMP()*($I$4-$H$4)+$H$4)
i celle b14 skriver eleven svaret
Facitliste er angivet i et ark for sig og løsningen på ovenstående er:
i celle b47 står der =B12
i celle b48 står der =B13
i celle b49 er angivet formlen =SUM(B47:B48)

alle tal er i henhold til mit første spørgsmål dynamiske og ændrer fint antal decimaler ud fra tvc´s anvisning, men resultatet i celle b49 afrundes ikke altid korrekt.
Måske er vi derhenne hvor jeg er i gang med et nyt spørgsmål i forhold til det oprindelige og jeg stiller gerne flere point på højkant!

PS: Eleven skriver ikke i regnearket men på papir

=mround((SLUMP()*($I$3-$H$3)+$H$3);0,001)

afrunder til 3 decimaler

Jamen, så er ideen med at fleksibiliteten med at angive antallet af decimaler vel væk.
Det jeg har brug for er at kunne lave forskllige regneark med
0 decimaler
1 decimal
2 decimaler
....til og med 5 decimaler

0,001 du kan jo rette i denne

0,1 = 1 decimal
0,01 = 2 decimal
0,001 = 3 decimal

o.s.v.

Jeg er altså ikke helt med

Kabbaks formel må vel kunne bruges sådan:
=mround((SLUMP()*($I$3-$H$3)+$H$3);A1)

Hvor du i A1 angiver det antal decimaler, du ønsker, eksempelvis 0,1 0,001 o.l. Det er vist også det, Kabbak forsøger at beskrive.

Ikke helt B_hansen:
=mround((SLUMP()*($I$3-$H$3)+$H$3);A1)
så skal det være

=AFRUND((SLUMP()*($I$3-$H$3)+$H$3);A1)

I stedet for A1, henvises til C kolonnen hvor antal decimaler skrives, så skulle det køre automatisk

B_hansen > du havde ret, men det er nemmere med den anden

Kabbak> Enig. Den krølle havde jeg lige overset.

Så er jeg med.
TUSIND TAK for hjælp.
Jeg har fordoblet point for de yderst velkvalificerede indlæg.
Kabbak lægger du også lige et svar..

et svar ;-))