optellen in vba met 2 decimalen

Status
Niet open voor verdere reacties.
M

maze00

Gebruiker
Lid geworden
19 okt 2007
Berichten
32
Goedemorgen,

Ik zit met een vraag waar ik niet helemaal goed uit kom.

Ik heb in Word 2 velden (bladwijzers) met verschillende waarden.
Deze wil ik graag bij elkaar optellen via VBA.
Dit totaal wordt dan weer als bladwijzer toegevoegd aan het document.

Ik gebruik onderstaande code.

ActiveDocument.Bookmarks("totaal").Select
TextBox6 = (TextBox3) + (TextBox4)


Alleen op het moment dat ik 40,25 + 40,75 gebruik maakt hij er 40.2540.75 van.
Hoe kan ik ervoor zorgen dat de uitkomst netjes 81,00 gaat worden ?
 
Ik gok, en het is echt een gokje, dat je niet echt met ''decimalen'' werkt.
Het een is namelijk een punt en de andere een komma.
Punten telt hij niet op, komma's wel. Of net andersom.

Succes, :thumb:
 
Hallo Domzy,

Helaas werken beide manieren niet.

45,50 + 45,00 wordt 45,5045,00
45.00 + 45.50 wordt 45.0045.50
 
Kijk eens naar dit voorbeeldje...
 

Bijlagen

Domzy,

Met een . telt hij het inderdaad wel op.
Alleen mis ik dan bij het totaal een scheidingsteken.
45.50 + 45.00 wordt dan 9050 ipv 90.50

Ik heb de code nu ook iets aangepast.

ActiveDocument.Bookmarks("totaal").Select
TextBox6 = Int(TextBox3) + Int(TextBox4)
 
Octafish, hartelijk dank !

Dat ziet er goed uit.

Alleen als ik een ander getal in het tekstvak zet verliest hij de opmaak en kan hij niet meer optellen omdat het geen tekstvak meer is.
 
Dan heb je vermoedelijk de beveiliging ervan af gehaald; met tekstvakken kun je heel simpel optellen, en/of andere berekeningen doen, zoals in dit voorbeeld. Enige eis is dus dat de sectie met de formuliervelden beveiligd is. Anders vervang je de veldcode door andere tekst. Maar zoals je ziet, hoef je dus helemaal niks te programmeren om berekeningen te maken.
 
Dan gaat het niet lukken ben ik bang.
De beide waarden die bij elkaar opgeteld moeten worden worden via een Combobox in het document gezet. Dit lukt niet als het document beveiligd is.

Ik heb een voorbeeld meegestuurd als bijlage zoals ik het nu heb.
 

Bijlagen

Ik zal me terugtrekken uit deze vraag.

OctaFish en maze00, veel succes. :p
 
Domzy, in ieder geval bedankt voor je hulp.
Mocht je nog ideeen hebben dan hoor ik dat natuurlijk graag.
 
Is niet nodig :D
 

Bijlagen

Octa,

Nog 1 vraagje.

Op het moment dat je bijvoorbeeld een optelling hebt van 45,50 + 50,00 maakt hij er het volgende van:

45,5 + 50 = 95,5

Is het ook mogelijk dat hij de 0 wel laat zien
 
De berekening wordt gemaakt met een variabele, die, net als elk veld, een opmaak krijgt. Deze moet je nog veranderen van {DOCVARIABLE Saldo \* MERGEFORMAT} naar {DOCVARIABLE Saldo \# "0,00"}. En daarvoor moet je de code eerst als code zien met <Ctrl>+<F9> bijvoorbeeld.
 
Geweldig dat je me zo geholpen hebt !

Het is allemaal gelukt.
 
Graag gedaan! Mag je de vraag op Opgelost zetten.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan