decimalen beperken met VBA voor autocad

[groonz]

gegroet beste mensen

ik ben ondertussen al een eindje gevorderd met mijn eerste VBA - programmaatje dat mij instaat stelt automatisch rechte trappen uit te tekenen in autocad adhv ingevoerde gegevens.


nu heb ik een formule die het volume van mijn trap berekend en dit als text weergeeft in mijn modelspace. nu is mijn vraag:

is er een manier om dat volume te beperken naar 3 cijfers na de comma??? nu geeft hij een hele reeks cijfers na de comma die niet nodig zijn.



een andere vraag (minder belangrijk, maar toch welkom) is hoe kan ik een gearceerde rechthoek laten tekenen in autocad, adhv die ingevoerde gegevens.

alvast bedankt

 

[Superzeeuw]

groonz,

Probeer het eens met onderstaande code:

Waarde = Left("Jouw Getal", InStr(1, "Jouw Getal", ",") + 3) 'Zoek naar de waard komma, als dit een punt moet zijn dan "." plaatsen

 

[Warme bakkertje]

Of

Sub tst()
[B1] = Int([A1] * (10 ^ 3) + 0.5) / (10 ^ 3)
End Sub

En de drie staat voor aantal cijfers na de komma