Excel en VB ??

[the_dannyboy]

Hmmm, ik zal wel eens kijken of dat werkt bij mij.

Weet jij misschien ook een oplossing voor m'n decimalen probleem ??

 

[huijb]

Misschien, kan je het even als bijlage hier neerzetten, dat kijkt/praat wat makkelijker.

 

[the_dannyboy]

Klik om te downen:

Progje

 

[huijb]

Teneerste ik kan je programma niet runnen, krijg een runtime error 13. Je hebt nu, Label15 = Format(btw + bedrag, "€###,##0.00") waarbij volgens mij btw en bedrag niet gedefinieerd is, ik kan het in ieder geval niet vinden. Maar probeer bv. eens iets als dit,
btw = TextBox1.Value
bedrag = TextBox2.Value
Label1.Caption = Format(btw + bedrag, "€ 0.00")

Tevens denk ik dat je hier wel wat aan hebt.

 

[computernerd]

Ik krijg ook constant errors, ligt aan de code van de "width". Je hebt idd de code van mij rechtstreeks gekopieerd, dus je moet eerst btw en bedrg defineeren, of btw + bedrag vervangen door een andere code.
BTW kan je het beste met deze code toewijzen:

BTW = veld BTW / 100

En dan om de BTW erbij te pleuren doe je

Bedrag incl. = (BTW * Bedrag) + bedrag

Ik hoop dat je er wat aan hebt, zo niet, dan heb ik niks gezegd .

 

[the_dannyboy]

Het lukt nog steeds niet...

btw = Label16.Caption \ 100
bedrag = Label15.Caption
Label15.Caption = Format(bedrag, "€ 0,00")
Label17.Caption = Format(btw + bedrag, "€ 0.00")

 

[the_dannyboy]

Laat maar, 't is al gelukt !!

btw = Label16.Caption
Label15.Caption = Format(Totaal, "€ ###,##0.00")
Label17.Caption = Format(btw + Totaal, "€ ###,##0.00")

Label16.Caption = Label21.Caption \ 100

 

[computernerd]

Sorry, maar je code klopt nog voor geen kant, probeer deze eens, hierbij is "btw" wel goed verwerkt!

Private Sub Form_Load()
btw = Label16.Caption / 100 'BTW declareren, let op dat de slash de goede kant op staat!
bedrag = Label15.Caption 'bedrag declareren
Label15.Caption = Format(bedrag, "€ ###,##0.00")
totaal = btw * bedrag + bedrag 'het totaal is btw * het bedrag + het bedrag
Label17.Caption = Format(totaal, "€ ###,##0.00")

Het is een beetje een omweg, maar het werkt wel!

 

[the_dannyboy]

tnx computernerd, alleen had ik 'm zelf dus al werkend gekregen.

Alleen loop ik nu weer tegen iets anders aan... :8-0:

Hoe zorg ik d'r nu voor dat ie de btw goed berekend, nu rond hij namelijk steeds naar boven/beneden af...

En hoe doe ik dat met die format dan met duizendtallen (die moeten gescheiden worden door een punt: 1.000,00)

 

[computernerd]

Het is een wonder dat jouw code werkt, volgens mij berekend 'ie de BTW verkeerd, maargoed het is jouw programma . Duizendtallen heb ik ook al problemen mee gehad. Dit laat ik over aan mede-helpmijers. Ik ga morgen op vakantie, en ik heb nog veel te doen!

Om een goed voorbeeld te geven: dit programma maakt gebruik van mijn code, en berekend de BTW -goed-! 10% btw over 100 euro is 10 + die 100 euro = 110 euro. Ik hoop dat je wat aan het voorbeeld hebt!
Klik hier om het voorbeeld te downloaden: succes!

 

[the_dannyboy]

klopt jah , je hebt helemaal gelijk.

iig bedankt en veel plezier op je vakantie bij het veluwemeer !! :thumb:

 

[computernerd]

Zie mijn laatste post voor een voorbeeld projectje!
En bedankt, jij ook een leuke vakantie he?!

 

[the_dannyboy]

Die leuke vakantie dat zal wel lukken !
Alleen doet je download het niet...

 

[computernerd]

Geplaatst door the_dannyboy
Die leuke vakantie dat zal wel lukken !
Alleen doet je download het niet...

Nu wel . PS: Als je nog vragen hebt: mail me! Ik heb een imode, en zal m'n VB documentatie meenemen, dus hebbie problemen: ik sta voor je klaar: magicmonster@wanadoo.nl!

EDIT: En het begon allemaal met een opstelling die niet wildde lukken .

 

[the_dannyboy]

Als je nog vragen hebt: mail me! Ik heb een imode, en zal m'n VB documentatie meenemen, dus hebbie problemen: ik sta voor je klaar: magicmonster@wanadoo.nl!

Zal ik zeker doen !!

En het begon allemaal met een opstelling die niet wildde lukken.

Ow ja, dat probleem met de duizendtallen heb ik ondertussen ook opgelost.

Zie hier de gehele code:

IndexNr = 0
Totaal = 0
   Do Until IndexNr = lstBedrag2.ListCount
          Totaal = Totaal + (Val(lstBedrag2.List(IndexNr)))
      IndexNr = IndexNr + 1
   Loop

btw = Label21.Caption / 100 'BTW declareren
bedrag = Totaal 'bedrag declareren

Label15.Caption = Format(bedrag, "0.00")

Label16.Caption = Format(btw * bedrag, "0.00")
Alles = btw * bedrag + bedrag 'het totaal is btw * het bedrag + het bedrag
Label17.Caption = Format(Alles, "0.00")

If Label15.Caption < 1000 Then
Label15.Caption = Format(bedrag, "0.00")
Else
Label15.Caption = Format(bedrag, "0,000.00")
End If

If Label16.Caption < 1000 Then
Label16.Caption = Format(btw * bedrag, "0.00")
Else
Label16.Caption = Format(btw * bedrag, "0,000.00")
End If

If Label17.Caption < 1000 Then
Label17.Caption = Format(Alles, "0.00")
Else
Label17.Caption = Format(Alles, "0,000.00")
End If

 

[computernerd]

Okay, ziet het er goed uit! En ik heb ook weer wat geleerd (met die 1000-tallen)... vergeet niet te mailen he? .

 

[the_dannyboy]

Nog ff een vraagie als je daar nog tijd/zin in hebt

Hoe kan ik bepaalde cellen uit excel plakken in een listbox in vb?

 

[computernerd]

Tijd: nee, zin: ja .
Rechstreeks plakken is volgens mij vrijwel onmogelijk. Het zou misschien kunnen met een add-in bij de common dialog. Als je niet weet hoe de common dialog werkt nogmaals: race naar de bieb voor het boek "Visual Basic 5 in 24 uur" van Greg Perry - Uur/hoofdstuk 12, of kijk hier voor een Engelse uitleg: klik.
Sorry, meer info heb ik niet voor je vanwege tijdgebrek. Toch denk ik dat het onmogelijk is. Excel heeft een ander coding dan VB, verder zal kopieren | plakken ook niet lukken denk ik . Je zal toch maar op de ouderwetse manier die hele tabel/layout van excel in elkaar moeten draaien in VB, succes :thumb:!

PS: Dit is echt mijn laatste bericht, want als het zo doorgaat ben ik morgen nog bezig.

Tot ziens iedereen! Ik ga lekker op vakantie!

 

[the_dannyboy]

Is goed hoor !

Je hebt me vanavond alweer genoeg geholpen !! :thumb:

Nogmaals veel plezier !!

 

[the_dannyboy]

Dan is hier weer een vraagje van me

Ik wil een form afdrukken met de code:
Form2.PrintForm

Alleen nu loop ik tegen een probleempje aan.
Aangezien dat de text en tabellen enzo over de hele pagina verspreid moeten staan, moet het form dus de lengte hebben van een A4-tje. Alleen mijn form wil niet groter worden dan 12960... En dit zal toch zeker 18000 moeten worden...

Ook loop ik dan tegen het probleem aan dat ie niet meer op het beeldscherm past

Is er iets te doen aan deze problemen (andere manier van printen gebuiken ofzo??)