Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Suono

16 views
Skip to first unread message

pablito

unread,
Feb 1, 2024, 3:02:35 AMFeb 1
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 AMFeb 1
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 AMFeb 1
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 AMFeb 1
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 AMFeb 2
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