Select Case med flere konstanter ell. variabler

case 1 to 20
case 21 to 100

"case 1 to 20" er sand for alle værdier fra 1-20, begge inklusive.

Du skal også fjerne "-tegnene, så der ser således ud:

Select Case Val(Text1.Text)

    case 1 to 20
        MsgBox "Funker 0-20"
       
    case 21 to 100
        MsgBox "Funker 20-100"
       
    End Select

End Sub

...så virker den :-)

>>hebn
Kan du få det til at virke?

Hallo.
Som jeg skriver det er værdier over 20 i Case 1 To 20 ikke sand.
20,000001 skal altså ikke være sand i Case 1 To 20, men først i Case 20 To 100.

Hvordan grejer man det.
(Ser mail fra jobbet og går hjem snart).

Select Case Val(Text1.Text)
    Case 1 To 20#
        MsgBox "Funker 0-20"
        Case 20.0000000001 To 100
        MsgBox "Funker 20-100"
      End Select
     
     
nb. husk at bruge punktum som decimal i text box

Det matematiske funker nu.
Indtastning skal ske fra num pad'en.
Hvordan kommer jeg til at bruge dens "," som seperator?

Hvordan grejer man det.
(Ser mail fra jobbet og går hjem snart).

Du kan også gøre sådan her

    Case Is < 0
    Case Is <= 20
        MsgBox "Funker 0-20"
    Case Is <= 100
        MsgBox "Funker 20-100"
    End Select

Den virker også ved 20.0000000000000000000000000000000000000000000000000001 :o)

Det var egentligt et svar, da jeg synes det er en bedre løsning end at bruge "To".
I min løsning vil det mindste tal VB kan håndtere, som er større end 20, ryge over i 20-100 :o)

Du kan bruge Replace til at erstatte komma med punktum.
Så kommer den til at se således ud (bemærk at jeg har brugt Martins case da jeg også synes den er bedre):

Private Sub Command1_Click()
Dim Var As String
Var = Replace(Text1.Text, ",", ".")
Select Case Val(Var)

    Case Is < 0
    Case Is <= 20
        MsgBox "Funker 0-20"
    Case Is <= 100
        MsgBox "Funker 20-100"
    End Select


End Sub

>>hebn wake up !!
Hvad med lidt respons?

I er godt nok utålmodige, på den anden side er det fedt at vide at der altid sidder kompetente folk klar til at kaste sig over det næste spørgsmål man smider op på skærmen - unanset hvornår man måtte gøre det.

10 point til Martin, da hans svar er matematisk mest rigtigt.
10 point til stry, for komma svaret.

Vi hader bare uafsluttede spørgsmål ;o)