eseguire mp3 e wav in excel

Question

Salve vorrei aggiungere al mio file Excel nominato "ULTIMO.LA BATTAGLIA DEI POTENTI V 33,

i seguenti file audio:    Grazie in anticipo!

1)1.mp3 all'avvio ... per sempre in ripetizione (Loop).

2)1.wav quando cella F24=Eliminerà DELLA SCHEDA ->GIOCO.

PER IL MOMENTO TUTTO QUI.

Sub CicloConMatriceValori()

If Sheets("GIOCO").Range("AB47") = 1 Then MsgBox "Scelte errate!": Exit Sub

    Const sIntRngOrig As String = "G6:G12"

    Const sIntRngDest As String = "C6:C12"

    Dim Wb As Workbook

    Dim Ws As Worksheet

    Dim IntRngOrig As Range

    Dim IntRngDest As Range

    Dim arrValori() As Variant

    Dim i As Integer, i2 As Integer

    Dim IndiceRiferimento As Integer

    Dim Valore1, Valore2, Valore3, Valore4, Valore5, Valore6

Set Wb = ThisWorkbook

'<--- disabilito lo schermo, gli eventi e imposto il calcolo in manuale --->

   With Application

      .ScreenUpdating = False

      .EnableEvents = False

      .Calculation = xlCalculationManual

   End With

     With Wb

         '<--- memorizzo i valori presenti in G6:G12 in una matrice --->

         i2 = 0

         For Each Ws In .Worksheets

           With Ws

             If .Name <> "GIOCO" And .Name <> "(I.A)" And .Name <> "NOTE" Then

               Set IntRngOrig = .Range(sIntRngOrig)

                 With IntRngOrig

                   For i = 1 To .Rows.Count

                     i2 = i2 + 1

                     ReDim Preserve arrValori(1 To i2)

                     arrValori(i2) = .Cells(i, 1).Value

                   Next i

                 End With

             End If

           End With

         Next Ws

'<--- riporto i valori memorizzati nella precedente matrice nelle celle C6:C12 --->

         i2 = 0

         For Each Ws In .Worksheets

           With Ws

             If .Name <> "GIOCO" And .Name <> "(I.A)" And .Name <> "NOTE" Then

               Set IntRngDest = .Range(sIntRngDest)

                 With IntRngDest

                   For i = 1 To .Rows.Count

                     i2 = i2 + 1

                     .Cells(i, 1).Value = arrValori(i2)

                   Next i

                 End With

             End If

           End With

         Next Ws

'<--- fine trasferimento in matrice / inizio conteggio macro in (I.A)--->

         With .Sheets("(I.A)")

          If .Range("AE49") = 7 Then

.Range("AE49") = 1

            .Range("W48:AB53") = Empty

         Else

           .Range("AE49") = .Range("AE49") + 1

         End If

IndiceRiferimento = .Range("AE49").Value '<--- 1,2,3,4,5,6,7

           Valore1 = Wb.Sheets("GIOCO").Range("H21").Value

           Valore2 = .Range("Q3").Value

           Valore3 = Wb.Sheets("GIOCO").Range("H20").Value

           Valore4 = .Range("Q2").Value

           Valore5 = Wb.Sheets("GIOCO").Range("H19").Value

           Valore6 = .Range("Q1").Value

           Select Case IndiceRiferimento

           Case 1

             .Range("V48") = Valore1

             .Range("V49") = Valore2

             .Range("V50") = Valore3

             .Range("V51") = Valore4

             .Range("V52") = Valore5

             .Range("V53") = Valore6

           Case 2

             .Range("W48") = Valore1

             .Range("W49") = Valore2

             .Range("W50") = Valore3

             .Range("W51") = Valore4

             .Range("W52") = Valore5

             .Range("W53") = Valore6

           Case 3

             .Range("X48") = Valore1

             .Range("X49") = Valore2

             .Range("X50") = Valore3

             .Range("X51") = Valore4

             .Range("X52") = Valore5

             .Range("X53") = Valore6

           Case 4

             .Range("Y48") = Valore1

             .Range("Y49") = Valore2

             .Range("Y50") = Valore3

             .Range("Y51") = Valore4

             .Range("Y52") = Valore5

             .Range("Y53") = Valore6

           Case 5

             .Range("Z48") = Valore1

             .Range("Z49") = Valore2

             .Range("Z50") = Valore3

             .Range("Z51") = Valore4

             .Range("Z52") = Valore5

             .Range("Z53") = Valore6

           Case 6

             .Range("AA48") = Valore1

             .Range("AA49") = Valore2

             .Range("AA50") = Valore3

             .Range("AA51") = Valore4

             .Range("AA52") = Valore5

             .Range("AA53") = Valore6

           Case 7

             .Range("AB48") = Valore1

             .Range("AB49") = Valore2

             .Range("AB50") = Valore3

             .Range("AB51") = Valore4

             .Range("AB52") = Valore5

             .Range("AB53") = Valore6

           End Select

         End With

         MsgBox "Fatto!"

     End With

'<--- riattivo lo schermo, gli eventi e imposto nuovamente il calcolo in automatico --->

   With Application

     .ScreenUpdating = True

     .EnableEvents = True

     .Calculation = xlCalculationAutomatic

   End With

 End Sub

Answer 1

Qui si risponde, capita la domanda, come e quando si può e se si ha una risposta.

Per il tuo problema vedi qui:

• http://tinyurl.com/za9b5pt
• https://www.google.it/#q=mp3+in+Excel

Answer 2

Norman David Jones    TACI!     ///////       Mauro Gamberini    Grazie! (puoi aiutarmi ha far tacere Norman , non posso per tutta la mia vita avere questa palla al piede non rincominciamo coi post in utili aiutami ha non farlo pubblicare , buttatelo fuori oppure fate in modo che non possa rispondere alle mie domande. altrimenti sporgerò denuncia verso   Norman David Jones tramite Polizia Postale, per favore non fatemi arrivare ha tanto.

Answer 3

Ciao Sig. Ballini,

Qui non potete rispondere , in questo sito  "SOTTO" non hanno nemmeno capito la domanda!

Rispondo unicamente ed esclusivamente da parte mia per suggerire che non si tratti di una mancanza di comprensione e per ricordarti di una risposta mia precedente nel thread

http://answers.microsoft.com/it-it/office/forum/office_2007-excel/excel-copia-di-celle/85e31adb-3986-494c-91b1-538c1a6a2095

Più in particolare, mi riferisco ai seguenti commenti miei:

Amo la sottostante ragion d'essere di questa Community, e non mi dà alcun piacere dirlo, ma penso che l'inferno congelerà prima che risponda io alle domande di sig. Ballini.

Avendo controllato le ultime previsioni meteo per l'inferno, mi rammarico che, date le temperature previste, non credo che io possa essere di aiuto.

===

Regards,

Norman

Answer 4

Qui non potete rispondere , in questo sito  "SOTTO" non hanno nemmeno capito la domanda!

https://social.msdn.microsoft.com/Forums/it-IT/4c0cba80-83f2-4ece-bb15-350000c687d8/aggiungere-suoni-e-musica-in-excel?forum=vbseiit

Avete qualcun altro?

Neanche -> http://www.excelvba.it/Forum/thread.php?f=1&t=11012 ->Hanno capito ma poverini non hanno saputo rispondere. (in effetti loro sanno di essere persone esperte ma non competenti al 100%)

Ho veramente bisogno di sapere come si fa ! Consigliatemi!

Answer 5

Ricompilo la domanda Vorrei inserire:

1.mp3 all'avvio ... per sempre in ripetizione (Loop).

E.wav se F24=Eliminerà DELLA SCHEDA ->GIOCO.

M.wav se F24=Morirà DELLA SCHEDA ->GIOCO.

V.wav se F24=Vincerà DELLA SCHEDA ->GIOCO.

S.wav se F24=Sopravvivrà DELLA SCHEDA ->GIOCO.

P.wav se F24=Pareggerà DELLA SCHEDA ->GIOCO.

IL CODICE è SOPRA!