Newsgroup: it.comp.lang.visual-basic
Titolo: Non conosco i cicli VB!

Ciao a tutti... con un piccolo passato con il C++ mi sto ritrovando a
smanettare sulle macro di excel... ho qualche difficolta a ritrovare i miei
cicli però...
Io devo fare un ciclo di questo tipo... ovvero che continui a "girare" fino
a quando la condizione non è verificata.
PER variabile = 0
        (fai questo) pippo = pippo +1
ALTRIMENTI
    (fai questo) ecc ecc ecc
Ho appurato che l'IF non è un ciclo... non mi è chiaro come funziona il FOR
( l'unico for che ho messo in pratica è un For IntVar = Inizio To Fine ...
ma non in questo modo non si adatta a quello che mi serve credo ).
Inoltre io devo usare la dicitura con i riferimeti ad excel (
worksheets("Foglio1").Cells( 1,1) ecc ecc ecc
Grazie

Prova con:
Do While variable=0
    istruzioni
loop
vuol dire fino a che variabile non è uguale a 0 cicla
va bene x te?

 vuol dire fino a che variabile non è uguale a 0 cicla
Sicuro?
Alberto

 ha scritto nel messaggio
news:m1u4a.131644$ZE.37...@twister2.libero.it...


Sono impazzito sto lavorando troppo perdonatemi per
le righe seguenti:
PE OGNI x =m FINO x=L
SE  z(x) = h ALLO'
   z(i)="ciro"
SINO
    z(i)="peppe"
FINE RO SE
O PROSSIM x
Il ciclo for NAPOLETANO.
PS: Sono Napoletano

 PS: Sono Napoletano
Azz non l'avevo capito !  ^_______^
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

     (fai questo) ecc ecc ecc
qui e' un po diverso , infatti non esce dal loop con quel "ALTRIMENTI"
se sostituisci "altrimenti" con "POI" allora e' il codice che ho scritto
sopra altrimenti e' :
DO qualcosa ....
' sono gia' dentro un ciclo che si ripete all'infiniti
....
    If Var = 0 then
           (fai questo) pippo = pippo +1
    else ' ALTRIMENTI
             (fai questo) ecc ecc ecc
    end if
    ...
'continua il loop e non ne esci + ^_^
LOOP


Ciao! Chiedo a qualche anima pia di darmi una mano con il seguente codice...
non riesco a capire cosa sbaglio... o se mi sono preso delle liberta con
Excel e VB che non avevo diritto di prendermi! ( Esempio usare una variabile
dentro una funzione Cells ). Non sono del tutto sicuro neanche del loop...
Ho letto, come mi è stato consigliato, l'help in linea riguardo il controllo
Do While... ma non mi è stato molto utile evidentemente... cosa sbaglio?
Gli errori segnalati riguardano, da quello che ho capito, le righe di codice
segnalate, da me, con un asterisco! L'errore è sempre il runtime 9.
Sub Lippolis()
Dim IntVar As Integer
Dim Inizio As Integer
Dim Fine As Integer
Dim Controllo As Integer
Inizio = 0
Fine = 0
Controllo = 0
If Worksheets("Stampe").Cells(4, 7) >= 3 Then
    Inizio = Worksheets("Stampe").Cells(4, 3)
    Fine = Worksheets("Stampe").Cells(4, 5)
    Worksheets("Modulo").Cells(7, 8) = Worksheets("Stampe").Cells(2, 1)
    For IntVar = Inizio To Fine
        Worksheets("Modulo").PageSetup.PrintArea = "$A$1:$J$63"
        Worksheets("Modulo").Cells(5, 10) = IntVar
        Application.ActivePrinter = "U206 su \\Servizio\u206"
        Rem Worksheets("Modulo").PrintOut
    Next IntVar
Else
MsgBox "Spampare almeno 3 copie del modulo. "
End If
IntVar = 3
* Controllo = Worksheets("Cronologia Modulo").Cells(IntVar, 6)
* Do
    Do While Controllo > 0
        IntVar = IntVar + 1
    Loop
*    Worksheets("Cronologia Modulo").Cells(IntVar, 1) =
Worksheets("Stampe").Cells(2, 1)
*    Worksheets("Cronologia Modulo").Cells(IntVar, 3) =
Worksheets("Stampe").Cells(4, 5)
*    Worksheets("Cronologia Modulo").Cells(IntVar, 5) = Date
* Loop
MsgBox "Operazione Completata"
End Sub
Grazie a tutti! Marco!

Sono un "cretino"! Ho fatto il piu classico degli errori... il mio foglio di
lavoro si chiama in un modo... e nel codice l'ho scritto con una lettera in
meno... ovvio che non funzionava... inoltre ho trovato un modo, poco
ortodosso ammetto, per fare quello che mi serviva... 8 If in fila! :)
Ciao e grazie a tutti per la collaborazione! :)
Marco