Telefonino.net network
 
| HOMEPAGE | INDICE FORUM | REGOLAMENTO | ::. NEI PREFERITI .:: | RSS Forum | RSS News | NEWS web | NEWS software |
| PUBBLICITA' | | ARTICOLI | WIN XP | VISTA | WIN 7 | REGISTRI | SOFTWARE | MANUALI | RECENSIONI | LINUX | HUMOR | HARDWARE | DOWNLOAD | | CERCA nel FORUM » |

Torna indietro   WinTricks Forum > Software > Office suite

Notices

Rispondi
 
Strumenti discussione
Vecchio 03-05-2017, 09.49.19   #1
A.Maurizio
Newbie
 
Registrato: 23-12-2015
Messaggi: 43
A.Maurizio promette bene
Funzione Slider o Tempo di Attesa ad Oggetti

Ciao a Tutti mi chiamo A.Maurizio.
E il mio problema e questo : Su di un foglio di Excel ho inserito 5 Oggetti classificati come (Ovale 1 ; Ovale 2 ) ecc...!

Ora il mio Intento sarebbe quello di Creare una sorta di Slaider come succedeva in Windows XP quando veniva caricato il sistema operativo nel PC.

Con l'unica variante che io vorrei che la cosa funzionasse seguendo una logica di tempo prestabilito dall'utente finale.

Mi spiego meglio : Io vorrei che quando inserirsco un numero che potrebbe variare da (1 a 10) nella cella "B1" del foglio di Excel; E' poi premo il tasto di avvio.

I suddetti Oggetti potessero cambiare colore in modo alternato seguendo la scansione del tempo, come sempre per Esempio :

Passare dal colore di Base (Grigio) al colore (Giallo) per dare la sensazione di Acceso e Spento , e cosi via via con tutte le altre fino al termine del ciclo che viene determinato dal numeri inserito nella Cella (B1) tutto qui.
Vi ringrazio sin da ora per tutto l'aiuto che vorrete darmi in merito Saluti e Grazie da A.Maurizio

(P.S) Potete scaricare il Progetto di prova da questo Link : https://app.box.com/s/z5vdl8ypz36se1u0n93x8118efxtju4d
A.Maurizio non è collegato   Rispondi citando
Vecchio 05-05-2017, 01.56.40   #2
cromagno
Newbie
 
L'avatar di cromagno
 
Registrato: 23-02-2017
Messaggi: 4
cromagno è nella strada per il successo
Rif: Funzione Slider o Tempo di Attesa ad Oggetti

Ciao,
un modo un pò "sempliciotto" potrebbe essere questo:
Codice:
Sub Ciclo()
Dim Cerchi As Integer, i As Integer, k As Integer, Precedente As Integer
Dim Forma As String, Acceso As Double, Spento As Double, Cicli As Integer

Cerchi = 5
Acceso = RGB(255, 255, 0)
Spento = RGB(128, 128, 128)
Cicli = Worksheets("Prove").Range("C1").Value

For k = 1 To Cicli
    For i = 1 To Cerchi
        Precedente = IIf(i = 1, Cerchi, i - 1)
        Forma = "Ovale " & Precedente
        Worksheets("Prove").Shapes(Forma).Fill.ForeColor.RGB = Spento
        Forma = "Ovale " & i
        Worksheets("Prove").Shapes(Forma).Fill.ForeColor.RGB = Acceso
        Application.Wait Now + TimeValue("00:00:01")
    Next i
Next k

MsgBox "Fine Ciclo!", vbInformation + vbOKOnly
End Sub
Ho utilizzato il foglio "Prove" per i test (ti riallego il file):
http://www.filedropper.com/slideradoggetti

Lascio a te le modifiche.

Ciao
Tore
___________________________________

"Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
cromagno non è collegato   Rispondi citando
Vecchio 06-05-2017, 13.29.53   #3
A.Maurizio
Newbie
 
Registrato: 23-12-2015
Messaggi: 43
A.Maurizio promette bene
Rif: Funzione Slider o Tempo di Attesa ad Oggetti

Ciao cromagno Grazie anche a te del tuo Suggerimento .

E Bellissimo e come scansione e molto più Veloce.

Devo Ammettere che più mi Addentro nell'ambito della Programmazione del VBA, e più noto con Piacere che ho ancora molto da Imparare.

Grazie Infinite Nuovamente Sinceri Saluti da A.Maurizio
A.Maurizio non è collegato   Rispondi citando
Rispondi


Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti)
 
Strumenti discussione

Regole di scrittura
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is ON
Gli smilies sono ON
[IMG] è ON
Il codice HTML è OFF

Vai al forum

Discussioni simili
Discussione Autore discussione Forum Risposte Ultimo messaggio
WOW Slider 3.9 WinTricks News SOFTWARE 0 29-06-2013 02.07.53
Pensiero del Momento [no spam, ma pensieri] Flying Luka Chiacchiere in libertà 2001 11-03-2006 04.26.06
Buonanotte [3 ] Billow Chiacchiere in libertà 1931 27-02-2005 11.41.33
Le barzellette più assurde che conoscete Bilbo Chiacchiere in libertà 2676 03-05-2004 23.26.18
Una Miss Di Sera Bel Tempo Si Spera Giorgius Chiacchiere in libertà 3 08-09-2003 13.20.51

Orario GMT +2. Ora sono le: 01.08.37.


E' vietata la riproduzione, anche solo in parte, di contenuti e grafica.
Copyright © 1999-2017 Edizioni Master S.p.A. p.iva: 02105820787 • Tutti i diritti sono riservati
L'editore NON si assume nessuna responsabilità dei contenuti pubblicati sul forum in quanto redatti direttamente dagli utenti.
Questi ultimi sono responsabili dei contenuti da loro riportati nelle discussioni del forum
Powered by vBulletin - 2010 Copyright © Jelsoft Enterprises Limited.