Sfarfallio pagine



  • Sfarfallio pagine
    di Fernando (utente non iscritto) data: 25/09/2017 17:06:16

    Salve,
    ho un problema e non riesco a trovare una soluzione pur avendo provato alcune cose.
    Premetto che l'applicazione funziona da due anni e non ha mai creato seri problemi.
    Tale applicazione è stata sviluppata con macro in excel 2007 con sistema operativo Windows 8.1
    che dopo lo sviluppo delle macro, ho aggiornato con Windows 10.
    Da alcuni giorni ho installato excel 2013 e l'applicazione non si comporta in modo corretto.
    Appena richiedo l'esecuzione di una macro, mi compaiono sfarfallii che prima non avevo con excel 2007.
    Oltre al fastidio nel veder sul monitor le pagine che vengono elaborate, l'esecuzione si è rallentata sensibilmente.
    Pertanto, chiedo il vostro aiuto per risolvere tale problema.
    In allegato le istruzioni che sono presenti su tutti moduli.

    Grazie della vostra collaborazione

    Fernando

     
    Option Explicit
    Sub Rendicontazione()
    Application.ScreenUpdating = False
    
    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal
    Call Modulo A
    Call ModuloB
    ecc ecc
    
    End Sub



  • di Gianfranco data: 25/09/2017 17:58:59

    ciao
    Application.ScreenUpdating = False
    Application.EnableEvents = False


    e alla fine
    Application.ScreenUpdating = True
    Application.EnableEvents = True



  • di Fernando (utente non iscritto) data: 25/09/2017 20:34:32

    Gianfranco,
    ti ringrazio del suggerimento però non funziona.
    Ho inserito le istruzioni a tutti i moduli che vengono richiamati tramite l'istruzione "Call"



  • di Luca73 data: 26/09/2017 10:34:12

    Ciao Domanda
    maperche rimpicciolisci ed ingradisci le finestre

    Application.WindowState = xlMinimized
    Application.WindowState = xlNormal

    ????





  • di alfrimpa data: 26/09/2017 13:19:49

    Senza un file di esempio con le macro da testare è difficile dare risposte sensate.

    Alfredo




  • Sfarfallio pagine
    di Fernando (utente non iscritto) data: 29/09/2017 16:40:53

    Salve,
    sono sparito per qualche giorno per problemi personali.
    Ho creato un ambiente simile a quello che mi sta facendo impazzire.

    Non riesco a trovare un pulsante per allegare file, macro e form
    in modo che le possiate scaricare e verificare voi stessi.

    E' possibile allegare fle?








  • Sfarfallio pagine
    di Fernando (utente non iscritto) data: 29/09/2017 16:46:32

    Pulsante trovato, però devo comprimere i file altrimenti non posso inviare nulla.


  • Sfarfallio pagine
    di Fernando (utente non iscritto) data: 29/09/2017 16:56:51

    Ho inviato un file compresso ma non vedo dove sia andato a finire



  • di Vecchio Frac data: 29/09/2017 17:01:13

    Io lo vedo, in alto a destra ^_^




  • Sfarfallio pagine
    di Fernando (utente non iscritto) data: 01/10/2017 00:43:19

    Salve,
    a titolo informativo, scaricate i tre file e la macro (più di una)
    in una cartella poi il resto è intuitivo.
    Se è necessario dare ulteriori informazioni sono a vostra completa disposizione.
    Grazie



  • di Gianfranco data: 01/10/2017 10:58:38

    ciao
    non c'è sfarfallio
    ma il form si apre e si chiude ogni ricalcolo
    prova a levare
    Unload UserForm14

    prima del Next IndP
    dalla macro
    Sub RicalcoloTotali()


     
    If Totale_Pro > 0 Then  'scrivo sul totale solo se presente
       IndT = IndT + 1
       PtrTot.Cells(IndT, 1) = PtrPro.Cells(IndP, 1)
       PtrTot.Cells(IndT, 2) = Totale_Pro
    End If
    
    
    
    Next IndP
        
    'Rilascio userfom14
    
    Unload UserForm14
    
    DoEvents


  • Sfarfallio pagine
    di Fernando (utente non iscritto) data: 02/10/2017 18:46:29

    Gianfranco,

    ti ringrazio del suggerimento però non funziona perché eliminare l'istruzione Unload UserForm14 dopo NextP
    impedisce di visualizzare i nominativi che vengono elaborati a man mano.

    Detto ciò, credo di aver posto non correttamente il problema che mi affligge in quanto intitolare
    sfarfallio, è stato a mio avviso forviante.

    Riformulo il problema nella speranza di essere più precio.

    Allora, non parliamo di sfarfallio ba bensì di continue sovrapposizione visibili sullo schermo quando un modulo
    accede ad un file e relativi fogli, cioè tuttii fogli acceduti appaiono sullo schermo sia in lettura e scrittura.

    Primo esempio: il modulo ThisWorkBook viene eseguito una sola volta in fase di apertura della macro principale.
    Tale modulo effettua l'apertura dei file sui quali inizia ad effettuare elaborazioni per preparare un tipo di ambiente
    e cioè caricamento tabelle precalcoli e file temporanei.
    Tutto ciò funziona correttamente però appaiono tutti i fogli che di volta in volta vengono elaborati.
    Tale problema oltre che brutto da vedere rallenta l'esecuzione delle operazioni.
    Chiaramente, visto che viene eseguito una sola volta in fase di apertura si può anche soprassedere anche se
    l'utilizzatore che mia figlia storce il naso.

    Secondo esempio: chiusura di tutti i file e uscita da excel, prima di uscire appaiono una serie di fogli,
    anche in questo caso si può soprassedere visto che viene eseguito una sola volta.

    Terzo esempio: il vero problema si verifica quando si effettuano elaborazioni batch le quali sono diventate
    un vero incubo vista la loro lentezza causata nel evidenziare sul monitor tutti i fogli che vengono elaborati
    per tutti i nominativi in essere.
    Anche se non sono elaborazioni batch ma online, dove appaiono maschere per inserimento dati ecc. ecc. il fatto che si
    evidenziano i fogli interesati si è costretti a cercare la maschera aperta nella barra in basso.

    Ho scrito quelle poche istruzioni che ho allegato per rendere visibile a tutti il problema.
    Chiaramente sul progetto originale con tutti i file reali è un vero schifo sotto il profilo visivo e per i tempi biblici.

    Ripeto con excel 2007 è perfetto con excel 2013 un dramma.

    Un saluto a tutti nella speranza che possiate aiutarmi,
    buona serata

    Fernando



  • Sfarfallio pagine
    di Fernando (utente non iscritto) data: 06/10/2017 23:20:46

    Buona sera a tutti,
    nessuna novità per risolvere il mio problema?
    Comunque, grazie a tutti

    Fernando