[VBA] gegevenstypeverandering case select?

[Verwijderd]

In VBA (ms-exel) heb ik een macro waarin variabelen wordt gedeclareerd. Een van de variabelen (SG) wordt mede gebruikt om een resultaat te berekenen. Indien de variabele (SG) één enkele waarde krijgt dan loopt de macro zonder fouten, echter indien de variabele (SG) een waarde toegekend krijgt via een 'case select' instructie loopt de macro vast.

Hoe kan dit? Vindt er een gegeventypeverandering plaats?
Wat is een evt. oplossing?

[farlane]

Je case bevat geen default, en de waarde die het ding default heeft laat het ding vastlopen.

Gebruik geen varianten en delareer al je variabelen.

[Verwijderd]

Ik heb alle variabelen gedeclareerd, maar wat bedoel met default? Moet de variabele een defaultwaarde hebben voordat de case select procedure doorlopen wordt?

Het vreemde is namelijk dat er in eerste instantie geen problemen zijn maar nadat de procedure een aantal duizend keer doorlopen is loopt deze vast.

[farlane]

Wat ik bedoel is dat er geen Case Else in je Select staat die de var een default waarde geeft als er geen case voldoet.

Maar misschien kun je ff de relevante code posten ?

[Verwijderd]

Ik heb inderdaad geen case else toegepast maar volgens mij is die ook niet nodig, zie code.

Select Case p
Case Is < 10
Select Case OL
Case Is > 10
SG = 0.95
Case Is > 2
SG = 0.9
Case Is <= 2
SG = 0.85
End Select
Case Is < 50
Select Case OL
Case Is > 10
SG = 0.89
Case Is > 2
SG = 0.84
Case Is <= 2
SG = 0.79
End Select
Case Is >= 50
Select Case OL
Case Is > 10
SG = 0.83
Case Is > 2
SG = 0.78
Case Is <= 2
SG = 0.73
End Select
End Select

[farlane]

Lieve help ...... misschien kun je het even tussen code tags plaatsen ( zie FAQ )

Ik ben te goed voor deze wereld:

Visual Basic:

Select Case p
  Case Is < 10
    Select Case OL
      Case Is > 10
        SG = 0.95
      Case Is > 2
        SG = 0.9
      Case Is <= 2
        SG = 0.85
    End Select
  
  Case Is < 50
    Select Case OL
      Case Is > 10
        SG = 0.89
      Case Is > 2
        SG = 0.84
      Case Is <= 2
        SG = 0.79
    End Select
  
  Case Is >= 50
    Select Case OL
      Case Is > 10
        SG = 0.83
      Case Is > 2
        SG = 0.78
      Case Is <= 2
        SG = 0.73
    End Select
  
  
End Select

Even afgezien van het feit dat ik compleet tureluurs wordt van dit fragment code ( en dat in een minimaal aantal regels ) heb je wel gelijk, volgens mij worden alle cases afgevangen.

Maareuhm, zonder de context waarin deze code is geplaatst kun je er weinig over zeggen....

BTW, dit is een leerzame link : http://mindprod.com/unmain.html

[ Voor 108% gewijzigd door farlane op 25-02-2004 19:17 ]

[Verwijderd]

farlane,

bedankt voor je suggesties ik ga even op de bijgevoegde link kijken.

[farlane]

Verwijderd schreef op 26 februari 2004 @ 12:46:
farlane,

bedankt voor je suggesties ik ga even op de bijgevoegde link kijken.

Is niet verkeerd denk ik , maar je hebt er mbt die macro van je op dit moment niet veel aan.
Post eens wat meer code zodat we wat meer overzicht krijgen.