Summere variabler fra userform

[bjwanvik]

Det er litt for lenge siden jeg har drevet med Visual Basic (kunnskapene har aldri vært så store heller), så derfor ser jeg meg nødt til å prøve å finne hjelp her

 

Jeg har et regneark hvor jeg har begynnt på en makro med en userform som har en rekke felter.

Starter med 3-4 felter som bare skal direkte inn i celler i regnearket ette rå ha sjekket at raden er tom - dette fungerer helt fint.

Problemet kommer når jeg skal legge sammen verdiene fra de resterende (12) boksene.

 

Det finnes helt sikkert bedre løsninger på å gjøre dette, men i mangel på kunnskap, skrev jeg følgende:

dim forbruk as integer
forbruk = tank1 + tank2 + tank3  etc...

Dere som er litt oppvakte skjønner naturligvis at dette vil fungere sånn at den skriver verdiene på rekke og rad, f.eks si at tank1= 2, tank2= 5 så vil den returnere 25, når det jeg egentlig er ute etter er 7.

 

Har prøvd meg på å deklarere alle tank-variablene som integere, og da returnerer den 0.

 

 

Noe sier meg at boksene tolker tallene som tekst.. i tilfelle, hvordan gjør jeg om det?

[DeadManWalking]

Det stemmer, du må gjøre om datatypen før du ligger sammen verdiene. Tror du kan gjøre noe slikt;

dim tallet as integer = Cint("5")

[Harald Staff]

Først, bruk ikke Integer i VBA, bruk Long.

 

dim forbruk as Long

forbruk = Val(textbox1.text) + Val(textbox2.text)

 

erstatt textbox1 med det reelle navnet på selve tekstboksen.

 

HTH. Beste hilsen Harald

[brgr]

Dim forbruk As Long

forbruk = CLng(tank1.text) + CLng(tank2.text)

 

Veldig lik den Harald Staff skrev, men hvorfor bruke Val (som gir ett double uttrykk) Når du kan gjør det direkte om til Long? :-)

 

Selvsagt, om du skriver annet enn tall i inputen vil Clng gi feil og ikke gi 0 som Val gir.

[Harald Staff]

Du svarte på det selv mer robust overfor feil.

Valg av våpen avhenger jo veldig av hvilke restriksjoner som ligger i textboxene. Går det an å skrive annet enn tall i dem? Lime inn? Kan desimaler forekomme? Negative tall? Jo mer gnien man er her jo lettere er det å håndtere i bearbeiding etterpå.

 

Beste hilsen Harald