Decimal problemer

Det er sådan set bare Excels måde at regne på, der giver de ekstra decimaler. Du kan undgå dem ved at skrive =AFRUND(-1363081,57+1420683;2).

Tallet 2 efter semikolon angiver, at resultatet skal gives med præcis 2 decimaler, 0 giver et heltal, -3 givet tallet i hele tusinder osv.

Jeg er bekendt med AFRUND funktionen men er ikke interesseret i en formel i feltet, da det er et indtastningsfelt. Jeg bruger feltet i en efterfølgende bogføringsmakro og jeg modtager en fejl når feltet indholder mere en 2 decimaler. Spørgsmålet er nu om jeg kan undgå disse decimaler uden brug af formel.

Kan du ikke bare kopiere og sætte ind. D.v.s. standard, som jo er "Sæt ind Alt" (Ctrl-V) i stedet for "Sæt ind Værdier"?

(Det var ellers et fint svar - formuleret som et spørgsmål :-))

Det fjerne ikke de mange decimaler - Den eneste måde jeg kan klare problemet på er ved at have en celle ved siden af med AFRUND hvor jeg henter beløbet overi, og derefrer kan jeg så lægge beløbet tilbage i den originale celle ved at kopiere og indsætte som værdi inden jeg kører mig bogføringsmakro. Jeg syntes dog at der må være en lidt nemmere vej, jeg har mange af denne slags celler som jeg skal bogføre hver måned.

Kan du så ikke bruge Round funktionen direkte i din VBA kode

Dit eksempel giver i min Excel (2002) de mange decimaler, hvis jeg kopierer og vælger "Indsæt speciel..." - "Værdier". Almindelig kopiér og indsæt giver 57601,43.

Så det er lidt mystisk.

Men hvis du forøger decimaler til f.eks 15, kan du se at den tager alle 9-tallerne

mrjh: Nu forstår jeg, hvad du mener.

tida: Gemt i et fladt format - f.eks. csv - er decimalerne på plads. Men kan din makro/vba-kode kan bruge den?

Hvordan skriver jeg AFRUND ind i makroen ?

Ved at sætte værdien af din indtastningscelle = Round(Range("indtastningscelle"), 2)

Ja men hvorledes indarbejder jeg det i en tasterobot med følgende henvisning til beløb, kan nogenhjælpe mig med det :

'Indsætter beløb fra regnearket til 5,15 i 2500 og trykker enter
    funcSendKeysViaRkKol Cells(i, 3), 5, 15
    funcSendKeys "[Enter]"

Hvis du ikke skal have så mange decimaler kunne du gå i Funktioner / Indstillinger på fanebladet Beregning og sætte flueben i Præsicion som vist. Dette vil permanent fjerne dem.

Hvorfor gøre det kompliceret, når det kan løses simpelt. Perfekt bak - send lige et svar.

enig :-)