Hej!

Jag har en select case som värdet skall öka med 6 i jämna steg. Typ.
<code>
case 6, 12, 18, 24, 30 ' osv
</code>
Jag vet inte hur långt värdet sträcker sig, Men jag har kommit upp till 150. Om värdet överskrider detta hur gör man med programkod så att det blir typ upp till 500? Jag kan ju skriva in alla värdena, blir en lång rad. Men jag tror nog någon håller på ett knep som gör att man slipper skriva så mycket.
Jag har en räknare som heter m som räknar värdet upp till det som är i select case (m = m + 1) om man kan använda den? hela detta ligger inom en for next slinga, så det går runt, runt för att uppfylla kraven.
Hoppas ni fattar vad jag har skrivit. Annars får ni fråga :)
//Jocke

du kan kolla om värdet är jämt delbart med 6.

if x Mod 6 = 0 then

Hakar på Cecilia:s lösning. Gör enl denna princip.
<code>
Private Sub Command1_Click()
Dim x As Long
x = 3600
x = x Mod 6
Select Case x
Case Is = 0
MsgBox "Do your stuff here"
End Select
End Sub
</code>

Tackar ödmjukast!
Det var ju lite bättre an hela raden med värde på caset:)
Skall bara hem från jobbet och testa det också


//Jocke

Sen vid närmare eftertanke så duger det ju med en IF sats om bara ett alternativ gäller.
<code>
x = x Mod 6
If x = 0 Then 'Do your stuff
</code>

Sen en liten lektion om vad Mod gör. (bara heltal)
Mod delar talet så länge det går jämt upp och visar vad som blir över när delningen är klar.

25 Mod 6 kommer att lämna 1 som svar. DVS vid 24 är det stopp och det blev 1 över

Bror duktig ;-)

Tack Sven, det var ju ännu mer optimerat

Funkar klockrent

Tack Cecilia Wirén du också för svaret.

//Jocke

Och Cecilia som tänkte konstruktivt rätt :-b