Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
Groups keyboard shortcuts have been updated
Dismiss
See shortcuts

Suono

16 views
Skip to first unread message

pablito

unread,
Feb 1, 2024, 3:02:35 AM2/1/24
to
Un quesito forse un po' inusuale: è possibile fare in modo in ambiente
Excel 2021 che se una cella assume un certo valore il foglio generi un
suono ?
Ad esempio =SE(A30>3;"suono";"").
Grazie !
--
Onus probandi incumbit ei qui dicit

Ammammata

unread,
Feb 1, 2024, 4:07:39 AM2/1/24
to
pablito pretended :
> Un quesito forse un po' inusuale: è possibile fare in modo in ambiente Excel
> 2021 che se una cella assume un certo valore il foglio generi un suono ?
> Ad esempio =SE(A30>3;"suono";"").

ma poi lo ripeterebbe ogni volta che viene ricalcolato? non mi sembra
una buona idea

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
........... [ al lavoro ] ...........

issdr

unread,
Feb 1, 2024, 5:34:32 AM2/1/24
to
pablito wrote:

> Un quesito forse un po' inusuale: è possibile fare in modo in ambiente
> Excel 2021 che se una cella assume un certo valore il foglio generi un
> suono ?
> Ad esempio =SE(A30>3;"suono";"").

una traccia. se hai difficoltà chiedi.

https://stackoverflow.com/a/52974229/5494004


pablito

unread,
Feb 1, 2024, 10:46:48 AM2/1/24
to
Probabilmente gli esperti storceranno il naso ! Ecco il mio "prodotto"
partorito con l'aiuto dell'I.A.

Private Sub Workbook_Open()
Application.OnKey "^%y", "PlaySound" ' Associa la combinazione di
tasti CTRL+ALT+y alla subroutine PlaySound
End Sub
Sub PlaySound()
Application.Goto Reference:="R1C1" ' Aggiunta da me

If Not Intersect(ActiveSheet.Range("A1"), ActiveCell) Is Nothing
Then ' Controlla se la cella attiva è > 30
If ActiveSheet.Range("A1").Value > 30 Then ' Controlla se il
valore di A1 ? maggiore di 30
Beep ' Emetti un suono
End If
End If
End Sub

issdr

unread,
Feb 2, 2024, 11:32:16 AM2/2/24
to
pablito wrote:

> Probabilmente gli esperti storceranno il naso ! Ecco il mio "prodotto"
> partorito con l'aiuto dell'I.A.

[...]

non sono un esperto, ma è veramente brutto.

nel codice del foglio in cui vuoi che A1 bippi (destro sulla linguetta
del nome in basso):

Private Sub Worksheet_Calculate()
if [A1] > 30 then beep
end sub

il nome di questa sub è riservato, nel senso che fa si che il codice
venga richiamato quando si verifica l'evento (un qualsiasi ricalcolo nel
foglio)
0 new messages