Forum di Excel e VBA, per condividere esperienze e risolvere problemi su:
Excel, Word, Access, Power Point, Microsoft Office, macro, Visual Basic e Visual Studio.

valore cella chiama file



  • valore cella chiama file
    di FA-BA (utente non iscritto) data: 25/01/2017 17:17:10

    If Sheets("OBBIETTIVI").Range("K27") = "" Then GoTo L1
    n = Sheets("OBBIETTIVI").Range("K27")
    fname = "F:GIOCOLA BATTAGLIA DEI POTENTILA BATTAGLIA DEI POTENTI (definitivo)Voci(PC)DURANTE_GIOCO" & n & ".wav"
    Call sndPlaySound32(fname, 0)
    L1:

    Sto cercando di risolvere questa porzione di codice ( variabile non definita) ho inserito il goto per non farlo impazzire nel caso cella vuota ma non è servito ha nulla, cosa c'è di errato?


    Questa l'ho usata anche per ingesso ed uscita e funziona ma in questa macro non vuole funzionare!
    Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    Sub Auto_open()
    Foglio4.ScrollArea = "A1:AO97"
    Application.DisplayFullScreen = True
    n = Sheets("GIOCO").Range("AF70")
    fname = "F:GIOCOLA BATTAGLIA DEI POTENTILA BATTAGLIA DEI POTENTI (definitivo)Voci(PC)AVVIO" & n & ".wav"
    Call sndPlaySound32(fname, 0)
    End Sub
    ////////////////----
    Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    Sub Auto_close()
    Application.DisplayFullScreen = False
    n = Sheets("GIOCO").Range("AG70")
    fname = "F:GIOCOLA BATTAGLIA DEI POTENTILA BATTAGLIA DEI POTENTI (definitivo)Voci(PC)USCITA" & n & ".wav"
    Call sndPlaySound32(fname, 0)
    End Sub

     
    Option Explicit
Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Sub CicloConMatriceValori()
'----Suoni errore--->
If Sheets("GIOCO").Range("AB47") = "1" Then Call sndPlaySound32("F:GIOCOLA BATTAGLIA DEI POTENTILA BATTAGLIA DEI POTENTI (definitivo)SuoniERRORE.wav", 0)
If Sheets("GIOCO").Range("AB47") = 1 Then MsgBox "Scelte errate!": Exit Sub
'CONFERMA CARTE "UTENTE"
Sheets("TURNO").Range("G4") = "OK!"
'-----Lista effetti sonori -------> Dona-->
If Sheets("GIOCO").Range("N48") = "N" Then Call sndPlaySound32("F:GIOCOLA BATTAGLIA DEI POTENTILA BATTAGLIA DEI POTENTI (definitivo)SuoniDona.wav", 0)
'---Esito Scontri-->
If Sheets("GIOCO").Range("F24") = "Morirà" Then Call sndPlaySound32("F:GIOCOLA BATTAGLIA DEI POTENTILA BATTAGLIA DEI POTENTI (definitivo)SuoniMuori.wav", 0)
If Sheets("GIOCO").Range("F24") = "Sopravvivrà" Then Call sndPlaySound32("F:GIOCOLA BATTAGLIA DEI POTENTILA BATTAGLIA DEI POTENTI (definitivo)SuoniSopravvivi.wav", 0)
If Sheets("GIOCO").Range("F24") = "Pareggerà" Then Call sndPlaySound32("F:GIOCOLA BATTAGLIA DEI POTENTILA BATTAGLIA DEI POTENTI (definitivo)SuoniPareggi.wav", 0)
If Sheets("GIOCO").Range("F24") = "Vincerà" Then Call sndPlaySound32("F:GIOCOLA BATTAGLIA DEI POTENTILA BATTAGLIA DEI POTENTI (definitivo)SuoniVinci.wav", 0)
If Sheets("GIOCO").Range("F24") = "Eliminerà" Then Call sndPlaySound32("F:GIOCOLA BATTAGLIA DEI POTENTILA BATTAGLIA DEI POTENTI (definitivo)SuoniElimini.wav", 0)
If Sheets("GIOCO").Range("F24") = "TRAGEDIA" Then Call sndPlaySound32("F:GIOCOLA BATTAGLIA DEI POTENTILA BATTAGLIA DEI POTENTI (definitivo)SuoniTragedia.wav", 0)
'.....suoni obbiettivo->
If Sheets("OBBIETTIVI").Range("K26") = "S" Then Call sndPlaySound32("F:GIOCOLA BATTAGLIA DEI POTENTILA BATTAGLIA DEI POTENTI (definitivo)Suoniobbiettivo.wav", 0)
'---SUONI DI EVENTI FINALI--->
If Sheets("GIOCO").Range("S34") = "Hai vinto complimenti !" Then Call sndPlaySound32("F:GIOCOLA BATTAGLIA DEI POTENTILA BATTAGLIA DEI POTENTI (definitivo)SuoniVittoria_Finale.wav", 0)
If Sheets("GIOCO").Range("S34") = "Hai perso!" Then Call sndPlaySound32("F:GIOCOLA BATTAGLIA DEI POTENTILA BATTAGLIA DEI POTENTI (definitivo)SuoniSconfitta_Finale.wav", 0)
'-----Effetti sonori (catatrofe)-->
If Sheets("TURNO").Range("C13") = "X" Then Call sndPlaySound32("F:GIOCOLA BATTAGLIA DEI POTENTILA BATTAGLIA DEI POTENTI (definitivo)SuoniCATASTROFE.wav", 0)
'---voci pc (Raggiungimento obbiettivo)-->
If Sheets("OBBIETTIVI").Range("K27") = "" Then GoTo L1
n = Sheets("OBBIETTIVI").Range("K27")
fname = "F:GIOCOLA BATTAGLIA DEI POTENTILA BATTAGLIA DEI POTENTI (definitivo)Voci(PC)DURANTE_GIOCO" & n & ".wav"
Call sndPlaySound32(fname, 0)
L1:



  • di FA-BA (utente non iscritto) data: 25/01/2017 17:18:31

    ultime 5 righe codice vba (giallo).



  • di patel data: 25/01/2017 17:20:25

    che casinista che sei ! perché una nuova discussione ?





  • di FA-BA (utente non iscritto) data: 25/01/2017 17:22:00

    perdonami!
    ma non volevo continuare una chiusa!!!



  • di FA-BA (utente non iscritto) data: 25/01/2017 17:25:43

    chiudo e continuo con l'altra che abbiamo discusso ieri ?!?!



  • di FA-BA (utente non iscritto) data: 25/01/2017 17:30:38

    ...



  • di patel data: 25/01/2017 18:29:29

    nessuna discussione è chiusa, se hai inserito risolto lo puoi togliere ricliccando sul pulsante apposito, il risolto non chiude la discussione, è solo una nota.





  • di FA-BA (utente non iscritto) data: 25/01/2017 18:36:10

    Comunque ho risolto veramente facendo in questo modo:

    Nella macro ho inserito una condizione (> "0") e rispettiva chiamata alla Macro (Obbiettivi).
    If Sheets("OBBIETTIVI").Range("K27") > "0" Then Call Obbiettivi Else GoTo L1
    L1:

    //////////////////////////// Sotto la macro che viene chiamata.

    Sub Obbiettivi()
    n = Sheets("OBBIETTIVI").Range("K27")
    fname = "F:GIOCOLA BATTAGLIA DEI POTENTILA BATTAGLIA DEI POTENTI (definitivo)Voci(PC)DURANTE_GIOCO" & n & ".wav"
    Call sndPlaySound32(fname, 0)
    End Sub


    Funziona ! ..... Dovresti essere fiero di me questa volta. (patel)



  • di patel data: 25/01/2017 18:51:51

    lo sono, qualche bacchettata ogni tanto fa bene


 


by Globosoft © 2018 Regole di utilizzo | Contatti | Privacy Policy