Scripts - Tutorials - Forum - Downloads - Showcase - Contact

Artikels

VPN vergelijken

Algemeen

Beginpagina

FAQ

Grafische worm (243)

Links

Nieuwsartikels

Nieuwsarchief

Boeken programmeren

Overzicht

Samenwerken

Webhosting

Zoek op Sitemasters

Leden

Registreren

Ledenlijst

Ons team

Links

webhostingtop10.be

Sociale media

Follow @sitemasters

Sitemasters

Adverteren op Sitemasters?

Contacteer ons

RSS

Link naar ons

Donaties

Poll

Je moet ingelogd zijn om te stemmen.

Statistieken

Linkpartners

Forum

Categorieën > Overige

Problemen met VBA (Opgelost)

roberini - 18/08/2008 20:53 (laatste wijziging 18/08/2008 21:18)

HTML beginner

vbnet code - Bekijk de code zonder highlighting - Klap code in

                For x = 0 To Me.lstFactuur.ListCount - 1
  ActiveCell.Value = x + 1
  ActiveCell.Offset(0, 1) = Me.lstFactuur.Column(0, x)
  ActiveCell.Offset(0, 2) = Me.lstFactuur.Column(1, x)
  ActiveCell.Offset(0, 3) = Me.lstFactuur.Column(2, x)
  ActiveCell.Offset(0, 4) = Me.lstFactuur.Column(3, x)
  ActiveCell.Offset(0, 5).Formula = "=B" & x + 4 & "*D" & x + 4
  ActiveCell.Offset(0, 6).Formula = "=G" & x + 4 & "+(E" & x + 4 & "*F" & x + 4)"
  ActiveCell.Offset(1, 0).Activate
Next x
            
For x = 0 To Me.lstFactuur.ListCount - 1
  ActiveCell.Value = x + 1
  ActiveCell.Offset(0, 1) = Me.lstFactuur.Column(0, x)
  ActiveCell.Offset(0, 2) = Me.lstFactuur.Column(1, x)
  ActiveCell.Offset(0, 3) = Me.lstFactuur.Column(2, x)
  ActiveCell.Offset(0, 4) = Me.lstFactuur.Column(3, x)
  ActiveCell.Offset(0, 5).Formula = "=B" & x + 4 & "*D" & x + 4
  ActiveCell.Offset(0, 6).Formula = "=G" & x + 4 & "+(E" & x + 4 & "*F" & x + 4)"
  ActiveCell.Offset(1, 0).Activate
Next x
 

Zoals je ziet wil ik kolom B met Kolom D vermenigvuldigen
En Wil ik Kolom G met E optellen en vermenigvuldigen met F. Maar als ik dit doe, dan vind hij deze regel hieronder fout.

vbnet code - Bekijk de code zonder highlighting - Klap code in

                ActiveCell.Offset(0, 6).Formula = "=G" & x + 4 & "+(E" & x + 4 & "*F" & x + 4)"
            
ActiveCell.Offset(0, 6).Formula = "=G" & x + 4 & "+(E" & x + 4 & "*F" & x + 4)"

wat is er fout aan dan?

titjes schreef:

CODETAGS gebruiken!

6 antwoorden

Gesponsorde links

Abbas - 18/08/2008 21:20 (laatste wijziging 18/08/2008 21:20)
Crew .NET		vbnet code - Bekijk de code zonder highlighting - Klap code in ActiveCell.Offset(0, 6).Formula = "=G" & x + 4 & "+(E" & x + 4 & "F" & x + 4")" ActiveCell.Offset(0, 6).Formula = "=G" & x + 4 & "+(E" & x + 4 & "F" & x + 4")" Een dubbele quote vergeten op het einde van de regel!

roberini - 18/08/2008 21:28 (laatste wijziging 18/08/2008 21:30)
HTML beginner		Werkt niet:( Er staat: Compileerfout: Verwacht: instructie-einde Die ene regel is nog steeds highlighted met rood:S

Stijn - 18/08/2008 21:35
PHP expert		@titjes: Vergeet de & niet.

roberini - 18/08/2008 21:39
HTML beginner		stijn1989 schreef: @titjes: Vergeet de & niet. waar is ie dat vergeten dan?

Stijn - 18/08/2008 21:41
PHP expert		Op het einde van die regel. vbnet code - Bekijk de code zonder highlighting - Klap code in & x + 4")" & x + 4")" moet vbnet code - Bekijk de code zonder highlighting - Klap code in & x + 4 & ")" & x + 4 & ")"

roberini - 18/08/2008 21:44
HTML beginner		stijn1989 schreef: Op het einde van die regel. [..code..] moet [..code..] Thanks man het werkt

Gesponsorde links

Dit onderwerp is gesloten.

Actiefste leden van de maand

Actieve forumberichten