Torna indietro   Hardware Upgrade Forum > Software > Programmazione

NVIDIA GeForce GTX 1070 Founders Edition: la seconda scheda Pascal
NVIDIA GeForce GTX 1070 Founders Edition: la seconda scheda Pascal
Sarà in commercio dal 10 giugno la seconda scheda della famiglia di prodotti Pascal che NVIDIA propone al pubblico degli utenti appassionati e dei videogiocatori. GeForce GTX 1070 Founders Edition ripropone le caratteristiche alla base del modello GTX 1080, rinunciando al 25% circa di prestazioni per un prezzo più contenuto di oltre il 50%. Basterà per farne il best buy della stagione?
Comparativa dissipatori a liquido: 13 kit all-in-one a confronto
Comparativa dissipatori a liquido: 13 kit all-in-one a confronto
Qual è il miglior dissipatore a liquido all-in-one? Cercheremo di rispondere alla domanda in questo confronto fra 13 kit di diversi produttori, tipologia e fascia di prezzo. Di seguito i nomi dei modelli: Antec H600 Kuhler Pro, Arctic Liquid Freezer 120 e Liquid Freezer 240, Cooler Master Seidon, Nepton 120XL, Nepton 240M, Corsair Hydro H80i v2, Hydro H100i v2, Hydro H110i, Hydro H115i, Hydro H5 SF, iTek Liquy 240, Thermaltake Water 3.0 Extreme S
Uncharted 4, perché è il miglior gioco di avventura di sempre
Uncharted 4, perché è il miglior gioco di avventura di sempre
Dopo The Last of Us, un gioco che ha letteralmente segnato la scorsa generazione di videogiochi, Naughty Dog torna a misurarsi con sé stessa con un titolo ancora più ambizioso, non fosse altro che per la necessità di dover sfruttare il rinnovato hardware di PS4. Ne è venuto fuori qualcosa di unico.
Tutti gli articoli Tutte le news

Vai al Forum
Rispondi
 
Strumenti
Old 10-03-2009, 15:13   #1
LOMBOLUCA
Junior Member
 
Iscritto dal: Mar 2009
Messaggi: 5
[VBA] Fare lampeggiare una cella di excel

salve a tutti !
sono un utente nuovo del forum !
ho un problema al lavoro con il foglio elettronico excel.
mi tornerebbe utile inserire una macro in VBA che mi faccia lampeggiare alcune celle quando un valore si avvicina ad un'altro ( targhet )
faccio un esempio :
ho un serie di valori " Targhet " da raggiungere situati da C3 compreso a C16 compreso, e ho dei dati di produzione che non devono superare i targhet situati da G3 compreso a G 16 compreso

qualcuno mi può aiutare ???

Thanks

Luca:
LOMBOLUCA è offline   Rispondi citando il messaggio o parte di esso
Old 10-03-2009, 19:23   #2
ezio
Senior Member
 
L'Avatar di ezio
 
Iscritto dal: Apr 2001
Città: Giovinazzo(BA) ...bella città, riso patat e cozz a volontà!
Messaggi: 28222
Ti sposto in Programmazione, dovresti ottenere più facilmente una risposta Corretto anche il titolo con il tag [VBA]
ezio è offline   Rispondi citando il messaggio o parte di esso
Old 11-03-2009, 09:12   #3
MarcoGG
Senior Member
 
L'Avatar di MarcoGG
 
Iscritto dal: Dec 2004
Messaggi: 3180
In Excel VBA c'è il metodo Application.OnTime. Non esiste un vero e proprio oggetto Timer, e molti pensano che volutamente Ms osteggi questa possibilità per non permettere agli utenti di trasformare un foglio elettronico in un albero di Natale...
A mio avviso non è buona pratica inserire testi o celle lampeggianti, in quanto disturbano parecchio la vista ( personalmente detesto leggere ad es. una pagina web con roba che lampeggia o mi salta davanti... ).

Detto questo, il modo c'è comunque e puoi ottenerlo ad esempio usando queste Function che mi sono fatto io, parametrizzando un esempio trovato sul web... Lascio poi a te l'implementazione :

In un modulo :

Codice:
Public istanteCambio As Double

Public Sub lampeggiaON(nomeFoglio As String, indirizzo As String)

    If Sheets(nomeFoglio).Range(indirizzo).Interior.ColorIndex = 3 Then
        Sheets(nomeFoglio).Range(indirizzo).Interior.ColorIndex = 2
    Else
        Sheets(nomeFoglio).Range(indirizzo).Interior.ColorIndex = 3
    End If
    
    istanteCambio = Now + TimeSerial(0, 0, 1)
    Dim strProcedura As String
    strProcedura = ThisWorkbook.Name & "!'lampeggiaON " & """" & nomeFoglio & """" & "," & """" & indirizzo & """" & "'"
    Application.OnTime istanteCambio, strProcedura, , True

End Sub

Public Sub lampeggiaOFF(nomeFoglio As String, indirizzo As String)

    Sheets(nomeFoglio).Range(indirizzo).Interior.ColorIndex = xlNone
    
    Dim strProcedura As String
    strProcedura = ThisWorkbook.Name & "!'lampeggiaON " & """" & nomeFoglio & """" & "," & """" & indirizzo & """" & "'"
    Application.OnTime istanteCambio, strProcedura, , False

End Sub
Codice per avviare/fermare l'effetto lampeggiamento sulla cella desiderata :

Codice:
    lampeggiaON "Foglio1", "A1"

    lampeggiaOFF "Foglio1", "A1"
E il gioco è fatto.
MarcoGG è offline   Rispondi citando il messaggio o parte di esso
Old 11-03-2009, 14:07   #4
LOMBOLUCA
Junior Member
 
Iscritto dal: Mar 2009
Messaggi: 5
VBA fare lampeggiare un cella di excel

ciao Marco GG
ti ringrazio anzitempo per la tua risposta ed il tuo tempismo, ne approffitterei quindi per dirti che io di macro non ne capisco niente, ti chiederei quindi un'enorme sforzo !!
potresti dirmi point to point come inserire la tua macro e sopratutto cosa devo implementare ?
il mio foglio di lavoro ( sheet) si chiama : dati
dove devo inserire i nomi delle celle nelle quali devo mettere la condizione ?

considera che io devo dire :
se G3>= di C3 , G3 dovrebbe lampeggiare
se G4>= di C4 , G4 dovrebbe lampeggiare
se G5>= di C5 , G5 dovrebbe lampeggiare
etc. fino alla riga 16 compreso

per quello che riguarda "l'albero di natale " ti ringrazio per la tua impressione , ma mi piacerebbe fare il foglio elettronico "appariscente" solo per fare un bella figura con il mio capo !! lui va matto per queste cose
grazie ancora per la tua pazienza !!

LOMBOLUCA
LOMBOLUCA è offline   Rispondi citando il messaggio o parte di esso
Old 11-03-2009, 15:16   #5
MarcoGG
Senior Member
 
L'Avatar di MarcoGG
 
Iscritto dal: Dec 2004
Messaggi: 3180
Eh, lo so, ma allora dovrei farti tutto io...

Comunque sia, sconsiglio caldamente di riempire il Foglio con celle che lampeggiano, in quanto le procedure OnTime sono potenzialmente dannose. La selezione e l'edit del Foglio ne potrebbero risentire, senza parlare del fatto che, in presenza di un numero elevato di eventi OnTime, Excel potrebbe anche andare in blocco... Non ci faresti una gran figura col capo.

Molto meglio in questi casi creare un'applicazione VB6 o VB NET, che hanno un supporto alle operazioni temporizzate decisamente superiore, e un'ottima gestione dei files Excel...
MarcoGG è offline   Rispondi citando il messaggio o parte di esso
Old 20-03-2009, 16:23   #6
LOMBOLUCA
Junior Member
 
Iscritto dal: Mar 2009
Messaggi: 5
grazie comunque di tutto,
io ci rinuncio e getto la spugna
grazie ancora Marco GG

LOMBOLUCA
LOMBOLUCA è offline   Rispondi citando il messaggio o parte di esso
Old 05-04-2009, 00:12   #7
carlodag
Member
 
Iscritto dal: Jul 2004
Messaggi: 94
Quote:
Originariamente inviato da MarcoGG Guarda i messaggi
In Excel VBA c'è il metodo Application.OnTime. Non esiste un vero e proprio oggetto Timer, e molti pensano che volutamente Ms osteggi questa possibilità per non permettere agli utenti di trasformare un foglio elettronico in un albero di Natale...
A mio avviso non è buona pratica inserire testi o celle lampeggianti, in quanto disturbano parecchio la vista ( personalmente detesto leggere ad es. una pagina web con roba che lampeggia o mi salta davanti... ).

Detto questo, il modo c'è comunque e puoi ottenerlo ad esempio usando queste Function che mi sono fatto io, parametrizzando un esempio trovato sul web... Lascio poi a te l'implementazione :

In un modulo :

Codice:
Public istanteCambio As Double

Public Sub lampeggiaON(nomeFoglio As String, indirizzo As String)

    If Sheets(nomeFoglio).Range(indirizzo).Interior.ColorIndex = 3 Then
        Sheets(nomeFoglio).Range(indirizzo).Interior.ColorIndex = 2
    Else
        Sheets(nomeFoglio).Range(indirizzo).Interior.ColorIndex = 3
    End If
    
    istanteCambio = Now + TimeSerial(0, 0, 1)
    Dim strProcedura As String
    strProcedura = ThisWorkbook.Name & "!'lampeggiaON " & """" & nomeFoglio & """" & "," & """" & indirizzo & """" & "'"
    Application.OnTime istanteCambio, strProcedura, , True

End Sub

Public Sub lampeggiaOFF(nomeFoglio As String, indirizzo As String)

    Sheets(nomeFoglio).Range(indirizzo).Interior.ColorIndex = xlNone
    
    Dim strProcedura As String
    strProcedura = ThisWorkbook.Name & "!'lampeggiaON " & """" & nomeFoglio & """" & "," & """" & indirizzo & """" & "'"
    Application.OnTime istanteCambio, strProcedura, , False

End Sub
Codice per avviare/fermare l'effetto lampeggiamento sulla cella desiderata :

Codice:
    lampeggiaON "Foglio1", "A1"

    lampeggiaOFF "Foglio1", "A1"
E il gioco è fatto.

Marco mi interessa molto questa cosa.

Io la vorrei applicare ad una cella dove controlla la percentuale di un dato, ora mi interessa se lampeggia arrivando ad una certa percentuale tipo il 25%.

Altra cosa mi scrivi la formula esatta usanto :
nome foglio = Foglio1
Cella esito controllo = D1
Cella controllo =IV404

Resto in attesa
Thx
carlodag è offline   Rispondi citando il messaggio o parte di esso
Old 05-04-2009, 22:37   #8
MarcoGG
Senior Member
 
L'Avatar di MarcoGG
 
Iscritto dal: Dec 2004
Messaggi: 3180
Quote:
Originariamente inviato da carlodag Guarda i messaggi
Io la vorrei applicare ad una cella dove controlla la percentuale di un dato, ora mi interessa se lampeggia arrivando ad una certa percentuale tipo il 25%.
Semplice :
Codice:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    If Range("A1").Value >= 0.25 Then
        On Error Resume Next
        lampeggiaON "Foglio1", "A1"
    Else
        On Error Resume Next
        lampeggiaOFF "Foglio1", "A1"
    End If

End Sub
In questo caso la cella di controllo ( nell'IF ) è "A1".
La cella da far lampeggiare ( parametro passato a lampeggiaON e lampeggiaOFF ) è sempre "A1", il Foglio è "Foglio1". E ho risposto anche alla seconda domanda...
MarcoGG è offline   Rispondi citando il messaggio o parte di esso
 Rispondi


NVIDIA GeForce GTX 1070 Founders Edition: la seconda scheda Pascal NVIDIA GeForce GTX 1070 Founders Edition: la sec...
Comparativa dissipatori a liquido: 13 kit all-in-one a confronto Comparativa dissipatori a liquido: 13 kit all-in...
Uncharted 4, perché è il miglior gioco di avventura di sempre Uncharted 4, perché è il miglior g...
Gigabyte GV-N970Xtreme: una GeForce GTX 970 molto custom Gigabyte GV-N970Xtreme: una GeForce GTX 970 molt...
Toshiba OCZ RD400 PCIe NVMe 512GB, oltre i 2000MB/s - First Look Toshiba OCZ RD400 PCIe NVMe 512GB, oltre i 2000M...
Nvidia GeForce GTX 1080: ecco le version...
Le news più importanti della settimana
The Crew: superati i 5 milioni di utenti
Devolver Digital annuncia un action RPG ...
Classifica app di messaggistica: WhatsAp...
Il nuovo titolo di Ready at Dawn sar&agr...
ForcePhone, il Force Touch per tutti con...
F1 2016: nuova modalità Carriera ...
Windows Store: 6,5 miliardi di visite ne...
MSI presenta lo zaino-PC per videogiocat...
Samsung presenta Galaxy S7 Injustice Edi...
ZTE Axon 7 ufficiale: con Snapdragon 820...
TIM Roaming Europa Daily Basic non &egra...
Ghost Recon Wildlands: trailer in vista ...
Windows 10 IP 14352: nuove funzioni per ...
BitDefender Internet Security
BitDefender Antivirus Plus
BurnAware Premium
BurnAware Free
Internet Download Manager
K-Lite Codec Pack Update
K-Lite Mega Codec Pack
K-Lite Codec Pack Full
K-Lite Codec Pack Standard
K-Lite Codec Pack Basic
Filezilla
Firefox 47
Backup4all
EZ CD Audio Converter
CCleaner Portable
Tutti gli articoli Tutte le news Tutti i download

Strumenti

Regole
Non Puoi aprire nuove discussioni
Non Puoi rispondere ai messaggi
Non Puoi allegare file
Non Puoi modificare i tuoi messaggi

Il codice vB è On
Le Faccine sono On
Il codice [IMG] è On
Il codice HTML è Off
Vai al Forum


Tutti gli orari sono GMT +1. Ora sono le: 07:50.


Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2016, Jelsoft Enterprises Ltd.
Served by www2v