Moderatori: Anthony47, Flash30005
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Or Selection.Count > 1 Then Exit Sub
If Target.Value > 10 Then Beep
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Or Selection.Count > 1 Then Exit Sub
If Target.Value <= 10 Then Exit Sub
ActiveSheet.Shapes("Object 1").Select '<<< Il vero nome dell' oggetto .wav
Selection.Verb Verb:=xlPrimary
End Sub
E' una cosa diversa, si fa in un modo simile ma diverso:A me invece serve che faccia beep quando apro il file...
Private Sub Workbook_Open()
If Application.WorksheetFunction.Max(Range("L:L")) > 0 Then Beep
End Sub
=MAX(L:L)>0
Anthony47 ha scritto:Prova ad alzare il volume della componente "Wave".
Se attiva media player o non hai integrato in file audio nel foglio excel oppure NON E' un .wav; sbaglio?
Ciao.
Anthony47 ha scritto:Humm...
l' oggetto incorporato con che tipo di icona e' rappresentato su excel? Se lo selezioni, cosa viene visualizzato nella barra della formula? se ci fai doppioclick che succede?
Ciao.
Ma ieri funzionava o non funzionava?dunque ieri non mi funzionava all'apertura del file ed ho provato a modificare il codice per far in modo che suonasse all'attivazione del foglio e succedeva quanto descritto prima. Non ho salvato il file ed adesso non riesco a farlo funzionare di nuovo (!!!).
Hum.. nella mia versione la scritta e' del tipo =INCORPORA("Documento Registratore di suoni";"") sui .wav e =INCORPORA("Pacchetto";"") su altri file musicali, es .mp3nella formula sta scritto: =INCORPORA("Package",""),
If Application.WorksheetFunction.Max(Range("L:L")) > 0 Then Call PlaySound
Private Sub Worksheet_Activate()
If Application.WorksheetFunction.Max(Range("L:L")) > 0 Then Beep
End Sub
ActiveSheet.Shapes("Object 1").Select '<<< Il vero nome dell' oggetto .wav
Selection.Verb Verb:=xlPrimary
On Error Resume Next
Shell "CMD /C TASKKILL /IM wmplayer.exe"
On Error GoTo 0
myT2 = Timer
Do
DoEvents: If Timer > (myT2 + 0.5) Or Timer < myT2 Then Exit Do
Loop
Torna a Applicazioni Office Windows
Creare un file Excel con fogli visibili in base all'accesso Autore: JanVathek |
Forum: Applicazioni Office Windows Risposte: 8 |
Screenshot automatizzato fogli excel:script?macro o...? Autore: Paolo67met |
Forum: Programmazione Risposte: 9 |
Visitano il forum: Nessuno e 15 ospiti