Come riprodurre un suono quando una condizione viene soddisfatta in Excel?
In Excel, possiamo usare la formattazione condizionale per formattare ed evidenziare le celle in base a una condizione specifica, ma a volte potrebbe essere utile riprodurre un suono quando tale condizione viene soddisfatta. Ad esempio, se il valore della cella A1 supera 300, vorrei che venisse emesso un suono. Excel non supporta nativamente questa funzionalità; in questo articolo presenterò alcuni codici VBA per risolvere il problema.
Riproduci un segnale acustico di sistema predefinito in base al valore di una cella con codice VBA
Riproduci un suono personalizzato in base al valore di una cella con codice VBA
Riproduci un suono se il valore di una cella cambia in una Specifica colonna con codice VBA
Riproduci un segnale acustico di sistema predefinito in base al valore di una cella con codice VBA
Ecco un codice pratico per riprodurre il segnale acustico di sistema predefinito non appena si verifica una condizione specifica. Procedi nel seguente modo:
1. Tieni premuti i tasti ALT + F11: si aprirà la finestra di Microsoft Visual Basic for Applications.
2. Fai clic su Inserisci > Modulo e incolla il seguente codice nella finestra del Modulo.
Codice VBA: Riproduci un segnale acustico di sistema predefinito in base al valore di una cella:
Function BeepMe() As String
Beep
BeepMe = ""
End Function
3. Salva e chiudi quindi questa finestra del codice, torna al foglio di lavoro e inserisci la seguente formula:=IF(A1>300,BeepMe(),«») in una cella vuota accanto a quella contenente il valore in base al quale desideri riprodurre un suono. Premi il tasto Invio: nella cella della formula non verrà visualizzato nulla. Vedi screenshot:
4. Da ora in poi, se il valore inserito nella cella A1 supera 300, verrà riprodotto il segnale acustico di sistema predefinito.
Riproduci un suono personalizzato in base al valore di una cella con codice VBA
Se desideri riprodurre un suono diverso dal segnale acustico di sistema predefinito, anche in questo caso puoi contare su un codice VBA per ottenere il risultato desiderato.
1. Tieni premuti i tasti ALT + F11: si aprirà la finestra di Microsoft Visual Basic for Applications.
2. Fai clic su Inserisci > Modulo e incolla il seguente codice nella finestra del Modulo.
Codice VBA: Riproduci un suono specifico in base al valore di una cella:
#If Win64 Then
Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
#Else
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Boolean
#End If
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Function SoundMe() As String
'Updateby Extendoffice 20161223
Call PlaySound("c:\windows\media\Speech On.wav", _
0, SND_ASYNC Or SND_FILENAME)
SoundMe = ""
End Function
3. Salva e chiudi quindi questa finestra del codice, torna al foglio di lavoro e inserisci la seguente formula:=IF(A1>300,SoundMe(),«») in una cella vuota accanto a quella contenente il valore in base al quale desideri riprodurre un suono. Premi il tasto Invio: nella cella della formula non apparirà nulla. Vedi screenshot:
4. D’ora in poi, non appena inserirai nella cella A1 un valore superiore a 300, verrà immediatamente riprodotto un suono specifico.
Nota: Nel codice precedente, puoi personalizzare il file audio .wav in base alle tue esigenze dalla cartella c:\windows\media\. Vedi screenshot:
Riproduci un suono se il valore di una cella cambia in una Specifica colonna con codice VBA
Se desideri riprodurre un suono ogni volta che il valore di una cella cambia in una colonna specifica, puoi utilizzare il seguente codice VBA.
1. Fai clic con il pulsante destro del mouse sulla scheda del foglio in cui desideri riprodurre un suono quando il valore in una colonna cambia, quindi scegli Visualizza codice dal menu contestuale. Nella finestra di Microsoft Visual Basic for Applications che si apre, copia e incolla il seguente codice nel modulo vuoto:
Codice VBA: Riproduci un suono se il valore di una cella cambia in una colonna:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20161223
Dim xCell As Range
On Error Resume Next
If Target.Columns.Count = 1 Then
If Intersect(Target, Columns(3)) Is Nothing Then
Exit Sub
Else
For Each xCell In Columns(3)
On Error Resume Next
If (xCell.Value = Target.Value) And (xCell.Value <> "") Then
Beep
Exit For
End If
Next
End If
End If
End Sub
Nota: Nel codice precedente, il numero 3 nello script Columns(3) corrisponde al numero della colonna in cui desideri riprodurre un suono quando il valore cambia.
2. Quindi salva e chiudi questa finestra del codice. Ora, ogni volta che il valore di una cella nella terza colonna cambia, verrà riprodotto il segnale acustico predefinito del sistema.
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi