Excel-come inserire avviso sonoro o pop-up?

[prgfra]

Vorrei un aiuto per inserire in una cella un avviso tipo beep o qualunque tipo di suono, oppure in alternativa aprire una finestra pop-up, nel caso in cui assuma un determinato valore ad esempio >100.


Grazie

[ciro78]

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1) > 100 Then Beep
End Sub

oppure

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(1, 1) > 100 Then Msgbox("Quello che ti pare")
End Sub

il primo emette il beep il secondo è un messaggio.

il tutto va inserito come vedi all'interno dell'editor di visual basisc
(premi ALT+F11)
poi clicchi sul foglio in cui vuoi controllare la cella e fai copia incolla
qui ti controllo la cella a1
ciao

[prgfra]

grazie mille