[VB]

[Daggie]

Ik heb een probleempje waar ik niet echt aan uitgeraak

ik lees via Inputbox data in
deze data moet vergeleken worden met een kolom uit Excell (elke cel = 1 waarde)
als de data er instaat, moet ik gewoon verder kunnen gaan, als het niet voorkomt moet ik een error-boodschap krijgen

nu kan ik de colom doorlopen (bv cell 1->100), maar ik weet niet hoe ik ingevoerde waarden kan vergelijken met waarden uit het Excell bestand (zonder de waarden in te geven in VB)

iemand tips voor mij ?

[ Voor 0% gewijzigd door Daggie op 30-08-2002 14:50 . Reden: heb titel verneukt en kan hem niet aanpassen :( ]

[Sponge]

Zoek op CreateObject in MSDN, zitten standaard voorbeelden bij met Word. Voor excel is het bijna hetzelfde. (Waarschijnlijk zelfs Createobject("Excel.Application") Trouwens, ik denk dat je op www.pscode.com ook wel iets kunt vinden hiervoor. Weet het niet echt zeker.

[whoami]

Inderdaad. Bedenk ook eens even een passende titel.

[Daggie]

bedankt voor info

en titel was foutje, sorry daarvoor

[Daggie]

code:

   I = Row
   Do While (Cells(I, 2) <> RopeDiam) And (I < Row + 100)
      I = I + 1
   Loop
   
   If I < Row + 100 Then
      Row = I     ' Nu is de rij voor de diameter gevonden
   Else
      MsgBox (" De diameter " + Str(RopeDiam) + "is niet gevonden")
   End If

Ik heb nu zoiets, maar hij checkt alle 100 cellen, als er een waarde wordt ingegeven die niet voorkomt, gaat het programma verder en crasht het ( er worden berekeningen op uitgevoerd die alleen voor bepaalde getallen mogelijk zijn)
Tussen de getallen zelf (in Excell) bestaat geen wiskundige verhouding

Iemand die weet wat ik fout doe ? of ben ik gewoon helemaal verkeerd bezig ?


PS dit is mijn eerste ervaring met VB

[robjanssen]

Ik snap je bedoeling niet?
Je wilt dus kijken of er een bepaalde waarde in een cel in Excel staat?
En als die waarde gevonden is, dan wil je stoppen met zoeken?

Heb je alle variabele wel gevuld?
Wat is Row?
En wat is RopeDiam?

[whoami]

Daggie schreef op 30 augustus 2002 @ 15:13:
bedankt voor info

en titel was foutje, sorry daarvoor

en wat moet de titel dan wel worden?

Ik snap trouwens ook niet wat je eigenlijk wilt. Leg het eens klaar en duidelijk, stap voor stap uit.

[Daggie]

via inputbox kan je een waarde ingeven (noemt RopeDiam)
deze waarde moet worden vergeleken met een kolom uit excell (met de waarden die er instaan)
als de waarde in die kolom staat, moet het programma verder lopen
als de waarde er niet in staat, moet er een error bericht komen

row is iig een cel van die bepaalde rij waar hij moet inzoeken
row + 1 is onderliggende cel

[whoami]

Ja, en wat is het probleem dan?

[Daggie]

met de code die ik nu heb zoekt hij wel in de kolom, maar als de waarde niet voorkomt, gaat hij verder en crasht het prog nadien (omdat de waarde niet kan)

[Sponge]

Dan kijk je eerst of de waarde wel bestaat? (Lijkt mij logisch?)

[Daggie]

ja dat is de bedoeling dus, maar ik weet niet hoe ik ingeven data vergelijk met de data in excell

ik dacht dat bovenstaan stuk code het zou doen, maar dat doet het niet, en dat was ook mijn oorspronkelijke vraag

[whoami]

Heb je al eens gedebugged? Dan kun je weten op welke regel het exact crasht.

En zeg eens in wat de titel van jouw topic moet zijn

[Sponge]

_{[VB] Excel cellenv vergelijken?}

Je moet de waarde van een cell vergelijken met wat je wilt hebben..

code:

If Excelwaarde(row,col) = jouw waarde then
 '//nu geen crash, want de waarde is er..
else
 '//geen goede waarde..doe iets
 exit for
end if

trouwens, je bent nogal een beetje vaag qua uitleg ..

[Daggie]

titel : [VB] Excel cellenv vergelijken? lijkt me goed, ik heb hem proberen aanpassen, mar het lukte niet

Ik heb nu dit :

code:

 I = Row
   Do While (Cells(I, 2) <> RopeDiam) And (I < Row + 100)
      I = I + 1
   Loop
   
   If I < Row + 100 Then
      Row = I     ' Nu is de rij voor de diameter gevonden
   Else
      MsgBox (" De diameter " + Str(RopeDiam) + "is niet gevonden")
      objExcel.Quit
      End
   End If

niet veel verschil dus, maar nu lijkt het wel te werken, programma geeft error en wordt afgesloten


en als mijn uitleg niet goed is, ik ben geen VB-programmeur, ik heb de code gekregen van een "poging-tot-programeur" voor wie ik er nu alle fouten moet uithalen, buiten een snelcursus VB6 is mijn kennis beperkt door overeenkomsten met c++/cobol

Het schijnt nu te werken ... als er iemand hier mocht zijn die mij graag meer hulp bied via ICQ : 6590261, ik zou het heel erg apprecieren en ik kan het ook heel goed gebruiken ...