Excel - Desidero istruzioni

Asked By Maurizio A on 22-May-12 05:05 AM
Salve mi Chiamo Maurizio ; Per prima cosa desidero dirvi a tutti coloro che fanno Parte di questo Forum , che siete Stupendi e molto Preparati o Afferati in materia; in quanto se non fosse stato per voi Io tante cose non le avrei mai potute Imarare prima ; o volo leggendo dei libri, che a mio avviso lasciano il Tempo che trovano.

Poi o un altro problemino da Chiedervi : Come si Fa' a far Animare una Label su' di un Foglio Elettronico come Excel in modo che parta da Destra dello Schermo e si Fermi un Pochino prima di raggiungere la Sinistra.

Grazie a tutti coloro che sapranno darmi una mano in Merito ; e un saluto in particolare alla Isabella , che con il suo Ultimo Intervento mi a dato un grandissimo Aiuto , nella risoluzione di tanti miei problemi; Saluti a tutti da Maurizio


isabelle replied to Maurizio A on 02-Jun-12 10:48 PM
ciao ,Maurizio

Sub AnimareLabel ()
Dim i As Integer
For i = 1 To 10000
ActiveSheet.Label1.Left = i / 10
Next
End Sub

--
isabelle



Le 2012-05-22 05:05, Maurizio A a ?crit :

che siete Stupendi e molto Preparati o Afferati in materia; in quanto se non fosse stato per voi Io tante cose non

le avrei mai potute Imarare prima ; o volo leggendo dei libri, che a mio avviso lasciano il Tempo che trovano.

in modo che parta da Destra dello Schermo e si Fermi un Pochino prima di raggiungere la Sinistra.

che con il suo Ultimo Intervento mi a dato un grandissimo Aiuto , nella risoluzione di tanti miei problemi; Saluti a tutti da Maurizio
isabelle replied to isabelle on 02-Jun-12 11:06 PM
Maurizio, je suis d?sol? de ne dire rien d'autre, mais d?j? je doit utiliser les 2 traducteurs ita/us et ita/fr
pour comprendre ton probl?me, je devine que tu n'es pas famifi? avec la langue de shakespeare, alors j'esp?re que
tu pourras lire ce message dans cette langue de moli?re.

--
isabelle



Le 2012-06-02 22:48, isabelle a ?crit :
isabelle replied to isabelle on 03-Jun-12 12:00 AM
per rendere pi? veloce

Sub test2()
Dim i As Long
For i = 1 To 10000
ActiveSheet.Label1.Left = (i * 2) / 5
Next
End Sub



--
isabelle





Le 2012-06-02 22:48, isabelle a ?crit :