Word 2003, VBA, Difference af to tal
Hejsa.Jeg har et tabel i word 2003 hvor jeg taster 2 forskellige tal , lad os kalde dem A og B, og så skal jeg finde differencen af de to tal.
Tallene kan varierer, men dog er vi ned på omkring -5 altid, nogen gang er A større end B , andre gange omvendt.
Det jeg godt kunne tænke mig er , at differencerne ser sådan ud på min tabel for det nedenstående eksampler.
eks 1:
Tallet A: -5.23
Tallet B: -5.22
Diff: -0.01
eks 2:
Tallet A: -5.22
Tallet B: -5.23
Diff: 0.01
mine variabler :
Public dc8 As Double
Public dc9 As Double
Public dc10 As Double
dc8 = InputBox("Line Out L", "Line Output L", "-5.2")
dc9 = InputBox("Line Out R", "Line Output L", "-5.2")
dc10 = dc9 - dc8
ActiveDocument.Tables(2).Cell(5, 8).Select
Selection.TypeText Text:=dc8
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:=dc9
ActiveDocument.Tables(2).Cell(6, 8).Select
Selection.TypeParagraph
Selection.TypeText Text:=dc10
Hvis mine variabler er deklareret som double så ser differencen sådan ud : 1.00000000000007E-02
Hvis det er integer , så er A og B et helt tal. (rundet op)
Tak på forhånd