VBA - beregn

Private Sub CommandButton1_Click()
Ind = Replace(TextBox1, ",", ".")
TextBox2 = Val(Ind)
End Sub

nææ, det virker ikke

Du starter dit Visual Basic projekt op, henter komponenten:

Microsoft Script Control

tager en eller anden form frem, tager Script Control icon'et fra toolbox'en og sætter den på din form.

Den får så automatisk navnet ScriptControl1, hvilket så kan ændres.
Herefter vil du i koden til denne form kunne skrive f.eks.:

dim tmpVal as Single

tmpVal = CSng(ScriptControl1.Eval("(2+4-5*2)/(5+2*2)"))

Har du noget ÆLDRE end win2000 skal du først hente en OCX og få den registreret. Har du det?

Prøv det her
Private Sub CommandButton1_Click()
TextBox2.Value = Evaluate(TextBox1.Value)
End Sub

Sorry, det virker jo kun i excel :-(

Hvis du ikke er i excel, men i fx. word, kan du under Tools/References tilvælge Microsoft excel og bruge denne metode

Private Sub CommandButton1_Click()
TextBox2.Value = Excel.Evaluate(TextBox1.Value)
End Sub

Doh - havde ikke set at det var VBA - troede det var VB6. Mit svar gælder for VB6 - ved ikke om det virker for VBA

m_fisker?

Hallo?

der ikke noget af det der virker.. Men tak

Jeg tror ikke jeg vil bruge 3 sek. mere på at prøve at hjælpe dig, jf. http://exp.dk/spm/667987

Her er jeg enig med Martin. Det var s.. da en mærkværdig måde at svare en, hvis eneste ønske er, at du nedlader dig til at give en tilbagemelding.
Vi forsøger at hjælpe andre og vi gør det gratis, så det mindste man kan gøre, er at give respons.
I øvrigt virker forslagene glimrende.
/Bak, 47 år

bak.
Jeg skulle bruge hjælp i VBA ikke VB
Og lukker min svar når der gået et længer tid.. for hvis der er nogle der kommer med et beder svar.
Og stadig.. jeg vil stadig finde min fulde ret om at jeg må opratte så mange spørgsmål jeg vil..

Så kunne du jo passende bede bak om at smide et svar, tildele ham points og lukek spørgsmålet. Eller forklare, hvad du mener der skal forbedres i svaret.

Der er INGEN der anfægter din ret til at stille mange spørgsmål. Stil du blot alle dem du vil... Men der er nu en mindre til at svare på dem