|
| 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 » | |
03-05-2017, 08.49.19 | #1 |
Newbie
Registrato: 23-12-2015
Messaggi: 43
|
Funzione Slider o Tempo di Attesa ad Oggetti
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 |
05-05-2017, 00.56.40 | #2 |
Newbie
Registrato: 23-02-2017
Messaggi: 4
|
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 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." |
06-05-2017, 12.29.53 | #3 |
Newbie
Registrato: 23-12-2015
Messaggi: 43
|
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 |
Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti) | |
Strumenti discussione | |
|
|
Discussioni simili | ||||
Discussione | Autore discussione | Forum | Risposte | Ultimo messaggio |
WOW Slider 3.9 | WinTricks | News SOFTWARE | 0 | 29-06-2013 01.07.53 |
Pensiero del Momento [no spam, ma pensieri] | Flying Luka | Chiacchiere in libertà | 2001 | 11-03-2006 03.26.06 |
Buonanotte [3 ] | Billow | Chiacchiere in libertà | 1931 | 27-02-2005 10.41.33 |
Le barzellette più assurde che conoscete | Bilbo | Chiacchiere in libertà | 2676 | 03-05-2004 22.26.18 |
Una Miss Di Sera Bel Tempo Si Spera | Giorgius | Chiacchiere in libertà | 3 | 08-09-2003 12.20.51 |