Afrunding igen

Hvis du taster værdien ind i Celler enkeltvis, så virker denne på hele C kolonnen.

Koden skal være i arkets modul

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then 'virker på alle celler i kolonne C
        Application.EnableEvents = False
        Target = Round(Target, Target.Offset(0, 1))
        Application.EnableEvents = True
    End If
End Sub

Jeg har i koden, gået ud fra, at du skriver antal decimaler ud for hver celle.

En mulighed er også at skrive direkte i cellen:

=(HELTAL((12,345678*10^($D$1)))/10^($D$1))

den skriver dog kum max. det antal decimaler som er i tallet.

Har testet..
Hvis jeg arbejder videre med forslaget fra hugohann vil der kunne fremkomme fejl som denne:
0,649 - 0,564 = 0,0850000000000001
Kabbaks ide er jeg ikke helt med på da jeg ønsker at celle d1 altid angiver antallet af decimaler i tallet i celle c1 og smider flere decimaler væk efter afrunding.

Her virker den kun på C1 og den virker kun hvis du fysisk taster  eller kopierer tallene ind i cellen

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$1" Then 'virker på C1
        Application.EnableEvents = False
        Target = Round(Target, [D1])
        Application.EnableEvents = True
    End If
End Sub

den kan også laves så C1 ændres, når du ændre tallet i D1

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$1" Then 'virker på C1
        [C1] = Round([C1], [D1])
    End If
End Sub

Range("c1") = FormatNumber(Range("c1"), Range("d1"))

Ln

Jeg har forsøgt mig lidt frem efter ovennstående indlæg, men kan stadigvæk fremprovokere fejl. Måske er det fordi mine tal fremkommer ved slumpfunktionen.
Jeg prøver at komme lidt videre ved at henvise til:
http://www.data.lundgraasten.dk/Subtraktion.xls
Jeg har her forsøgt mig med det sidste forslag fra kabbak

Man kan kun have 1 Private Sub Worksheet_Change

hvis den skal virke på flere tilføjes de i samme kode

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$j$5" Then    'kabbaks kode
        [aw14] = Round([aw14], [j5])
    End If
   
    If Target.Address = "$j$6" Then  'kabbaks kode
        [ay14] = Round([ay14], [j6])
    End If

End Sub

Ok, men jeg får stadigvæk fejl efter at have rettet til at have 1 Private Sub Worksheet_Change

Kolonne E er ikke bred nok, den viser kun 2 af decimalerne, gør den bredere, så du kan se alle.

Det er nok der fejlen er ??

Selvom jeg gør kolonnerne nok så brede hjælper det ikke.
Resultatet af hver enkelt opgave indtastes i celle i14 og når der skal rettes opgave trykkes på knappen "Ret opgaver". Det indtastede resultat samenlignes med j9. Selvom tallene i i14 og j9 er lig med hinanden forekommer der af og til meddelelse om at opgaven ikke er regnet rigtig. Er der fejl i makroerne bag knapperne?

i Sub Resultatundersøgelse() linie 7 hvor følgende linie er :
If [i14] = [aj9] And [i14] <> "" Then
kan du prøve at ændre til :
If Round([i14], 2) = Round([aj9], 2) And [i14] <> "" Then

her er der afrundet til 2 decimaler, men det skal du ændre til det antal decimaler
som er valgt i arket,- har ikke lige kunnet finde hvor i koden dette angis
men hvis det fx. var i en celle fx. A1, så skal linien se sådan ud:

If Round([i14], range("A1").value) = Round([aj9], range("A1").value) And [i14] <> "" Then

Så smukt, så smukt!
Lille årsag, stor virkning.
Du er som sædvanlig meget skarpsynet.
TUSIND TAK!
Lægger du et svar..

Ovenstående var til excelent

ok velbekom