Risultati da 1 a 3 di 3

Discussione: attivare sub se singola cella xls 2007 cambia valore entro 30 secondi, altrimenti no.



  1. #1
    L'avatar di anassagora
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    milano
    Messaggi
    13
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    Angry attivare sub se singola cella xls 2007 cambia valore entro 30 secondi, altrimenti no.

    Salve,
    vorrei attivare una sub per esempio per cambiare colore ad una cella, se una singola cella, es A10, cambia valore entro 30 secondi, variandolo questo valore di una specifica percentuale, esempio 0,2%, altrimenti no.

    Dovrei usare l'orologio del computer ma non so come fare.:118::118::118:

    In sintesi: se il valore di una cella collegata ad una cella DDE varia da 99,93 a 99,83 in 180 secondi non deve accadere nulla, se varia entro 30 secondi vorrei far partire una chiamata ad una sub, per far emettere un suono.

    Attualmente uso questo programma che vorrei continuare ad usare aggiungendo questa nuova funzione.

    Grazie

    Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    Option Explicit
    Dim A_1 As Variant

    Codice: 
    Sub Orario()
    DoEvents
    If A_1 <> Worksheets(1).[A5] Then
    
    If Worksheets(1).[A5] <= Worksheets(1).[A8] Then
    Call PlaySound_Min3
    Worksheets(1).[B5].Interior.ColorIndex = 45
    A_1 = Worksheets(1).[A5]
    ElseIf Worksheets(1).[A5] <= Worksheets(1).[A7] Then
    Call PlaySound_Min2
    Worksheets(1).[B5].Interior.ColorIndex = 53
    A_1 = Worksheets(1).[A5]
    ElseIf Worksheets(1).[A5] <= Worksheets(1).[A6] Then
    Call PlaySound_Min
    Worksheets(1).[B5].Interior.ColorIndex = 3
    A_1 = Worksheets(1).[A5]
    ElseIf Worksheets(1).[A5] >= Worksheets(1).[A2] Then
    Call PlaySound_Max3
    Worksheets(1).[B5].Interior.ColorIndex = 5
    A_1 = Worksheets(1).[A5]
    ElseIf Worksheets(1).[A5] >= Worksheets(1).[A3] Then
    Call PlaySound_Max2
    Worksheets(1).[B5].Interior.ColorIndex = 10
    A_1 = Worksheets(1).[A5]
    ElseIf Worksheets(1).[A5] >= Worksheets(1).[A4] Then
    Call PlaySound_Max
    Worksheets(1).[B5].Interior.ColorIndex = 4
    A_1 = Worksheets(1).[A5]
    Else
    Worksheets(1).[B5].Interior.ColorIndex = xlNone
    A_1 = Worksheets(1).[A5]
    End If
    End If
    Application.OnTime Now + TimeSerial(0, 0, 1), "Orario"
    End Sub
    
    Sub PlaySound_Min()
    If Application.CanPlaySounds Then
    Call sndPlaySound32("d:\b\10SEC_4KHZ_200HZ.wav", 2)
    End If
    End Sub
    
    Sub PlaySound_Min2()
    If Application.CanPlaySounds Then
    Call sndPlaySound32("d:\b\10SEC_4KHZ at 5HZ.wav", 2)
    End If
    End Sub
    
    Sub PlaySound_Min3()
    If Application.CanPlaySounds Then
    Call sndPlaySound32("d:\b\10SEC_4KHZ at 10hz.wav", 2)
    End If
    End Sub
    
    Sub PlaySound_Max()
    If Application.CanPlaySounds Then
    Call sndPlaySound32("d:\b\10sec_4khz.wav", 2)
    End If
    End Sub
    Sub PlaySound_Max2()
    If Application.CanPlaySounds Then
    Call sndPlaySound32("d:\b\10SEC_4KHZ_tremolo.wav", 2)
    End If
    End Sub
    Sub PlaySound_Max3()
    If Application.CanPlaySounds Then
    Call sndPlaySound32("d:\b\10SEC_RUMORE_BIANCO.wav", 2)
    End If
    End Sub
    Invia MPPM 

  2. #2
    L'avatar di anassagora
    Clicca e Apri
    Data Registrazione
    Mar 2016
    Località
    milano
    Messaggi
    13
    Versione Office
    2007
    Likes ricevuti
    0
    Likes dati
    0

    aggiungo copia video

    Invia MPPM 

  3. #3

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4019
    Versione Office
    2013
    Likes ricevuti
    1228
    Likes dati
    923
    Ciao anassagora,
    ti consiglio di leggere il regolamento.
    In questo forum il cross-posting non è consentito:

    Regola nr.3 "Crossposting" la stessa domanda vietata su più forum
    Non è consentito postare lo stesso messaggio o parti di esso in più aree del forum o su altri forum di excel, salvo casi di particolare interesse che dovranno comunque essere autorizzati da un Admin
    Messaggi crossposting verranno chiusi e quando possibile riuniti.
    Se ripetuti potranno portare all'allontanamento dell'utente.
    cross-posting:
    http://www.excelvba.it/Forum/thread.php?f=1&t=10360

    Thread chiuso.

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."
    Invia MPPM 

Discussioni Simili

  1. [Risolto] Copia cella solo se diversa da vuota, altrimenti passa alla successiva
    Di Loretta nel forum Domande su Excel in generale
    Risposte: 11
    Ultimo Messaggio: 05/01/17, 19:07
  2. Risposte: 10
    Ultimo Messaggio: 14/07/16, 01:08
  3. Cella che cambia valore senza motivo apparente
    Di Spioncilli nel forum Domande su Excel in generale
    Risposte: 13
    Ultimo Messaggio: 28/06/16, 17:14
  4. Attivare macro a un determinato orario o a un determinato valore cella
    Di Davide nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 03/01/16, 17:21
  5. data piu' antecedente tra quelle associate a un certo valore e entro un anno
    Di Serena nel forum Domande su Excel in generale
    Risposte: 6
    Ultimo Messaggio: 28/12/15, 18:07

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •