+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 9 su 9

Discussione: Problemi di funzionamento di Excel/VBA

  1. #1
    arimans non Ŕ in linea Scolaretto
    Post
    115

    Problemi di funzionamento di Excel/VBA

    Salve a tutti,


    ho ricevuto da poco un nuovo pc e ho problemi con excel e l┤esecuzione delle macro.
    A parte che all┤inizio non funzionavano cose tipo la finestra di ricerca nell┤editor di VBA (ctrl+F) o non potevo vedere i valori correnti delle variabili andandoci sopra con il mouse (tutto risolto aggiornando i driver della scheda video), al momento non funzionano dei comandi eseguiti su fogli excel esterni:

    codice HTML:
    Application.AskToUpdateLinks = False                                           
    Application.AutomationSecurity = msoAutomationSecurityForceDisable
    codice HTML:
    Selection.Rows.Ungroup
    Selection.Columns.Ungroup
    Selection.EntireRow.Hidden = False
    se eseguo il codice passo passo funzionano, sennˇ no.

    Al momento a causa di impostazioni del sistema tutte le opzioni di sicurezza sulle macro sono bloccate, quella di attivazione delle macro solo tramite conferma Ú di default.
    Puˇ dipendere da questo?

    Grazie!

  2. #2
    GiuseppeMN non Ŕ in linea Scribacchino
    Post
    761
    Buona sera, @arimans
    leggo solo ora.

    @arimans, chiede:

    ... se eseguo il codice passo passo funzionano, sennˇ no.
    Ho testato il Codice VBA

    codice:
    Selection.Rows.Ungroup
    Selection.Columns.Ungroup
    Selection.EntireRow.Hidden = False
    senza riscontrare problemi nell'esecuzione in automatico.

    Ovviamente Ŕ necessario:
    - Definire il Range di lavoro
    - Assicurarsi che nel Range sia stato preventivamente definito correttamente il "Raggruppamento"

    Il Codice VBA che ho utilizzato per condurre i miei test Ŕ il seguente:

    codice:
    Sub Separa()
        Range("A13:C16").Rows.Ungroup
    End Sub
    A margine di quanto sopra, una cortesia, se non ti Ŕ di troppo disturbo e se lo ritieni opportuno, ti chiedo di dare riscontro; giÓ in passato:
    Problema con Dir()
    ti era stata data una risposta senza ottenere riscontro.
    Il riscontro pu˛ tranquillamente essere:

    La risposta non Ŕ coerente con la mia richiesta. ... (opzionale) Grazie comunque.
    Questo non tanto per me quanto per gli Utenti di Forum che, in questo modo, potranno valutare se approfondire o meno l'argomento.


    Giuseppe

  3. #3
    arimans non Ŕ in linea Scolaretto
    Post
    115
    Ciao Giuseppe,

    grazie per la tua risposta. Forse mi sono spiegato male.
    lo so che il codice si deve riferire ad un range, qui quello che ho scritto:
    codice HTML:
    Workbooks(StuekLiName).Activate
    
    Cells.Select
    On Error Resume Next
    Selection.Rows.Ungroup
    Selection.Columns.Ungroup
    Selection.EntireColumn.Hidden = False
    Era solo per far capire che tipo di comandi non funzionano (quelli che vanno in questo caso a toccare un foglio esterno).

    Nel secondo caso ho scritto:
    codice HTML:
    varDatei = Application.GetOpenFilename(, , "MMG/StŘckliste ÷ffnen")
    
    Application.AskToUpdateLinks = False                                          
    Application.AutomationSecurity = msoAutomationSecurityForceDisable
        
    Workbooks.Open varDatei 
    Di fatto il codice
    codice HTML:
    Application.AskToUpdateLinks = False
    non funziona e se apro un foglio con dei collegamenti mi chiede di aggiornarli.
    Da cosa puˇ dipendere?

    Per la tua domanda devo fare una ricerca, poi rispondo direttamente lÝ.

    Grazie

  4. #4
    arimans non Ŕ in linea Scolaretto
    Post
    115
    Ho fatto delle prove incorciate ed Ú chiaramente un problema di driver del Laptop.
    Praticamente l┤immagine della tabella non viene attualizzata e quando il codice arriva a
    codice:
    Cells.Select
    non viene selezionato proprio niente e quindi i passaggi successivi non vengono eseguiti.
    Se invece muovo la finestra e la faccio rigenerare (dal punto di vista grafico), allora funziona.

    La cosa strana Ú che il tutto Ú precipitato quando ho aperto una tabella con dei collegamenti esterni.
    Nonostante il codice che blocca i collegamenti esterni ha chiesto di aggiornarli e da allora si blocca su tutte le tabelle esterne nella parte di codice sopra citata.

    La scheda grafica Ú una Quadro K2100M Driver versione 426.32.
    I driver sono stati reinstallati, il computer fatto ripartire varie volte ma niente.


    Idee?

  5. #5
    arimans non Ŕ in linea Scolaretto
    Post
    115

    Soluzione 1

    Dopo aver fatto delle prove incrociate anche sul computer di casa Ú venuto fuori che per qualche arcano motivo il seguente codice

    codice:
    Cells.Select
    On Error Resume Next
    Selection.Rows.Ungroup
    Selection.Columns.Ungroup
    Selection.EntireColumn.Hidden = False
    ha dei problemi se viene preceduto da
    codice:
    Workbooks(NomeFile).Activate
    o da
    codice:
    Workbooks(NomeFile).Sheets(1).Activate
    Funziona senza problemi invece con
    codice:
    Workbooks(NomeFile).Sheets(NomeFoglio).Activate
    Non riesco a comprenderne il motivo.

  6. #6
    GiuseppeMN non Ŕ in linea Scribacchino
    Post
    761
    Sinceramente non saprei che dirti.

    Ho condotto diversi Test con:
    - File (NomeFile = "Master.xlsx")
    - Nel File sopra indicato ho definito il primo Foglio di lavoro con il nome "DataSet"
    - Nel suddetto Foglio di lavoro ho definito "Raggruppa Righe Colonne" nel Range A4:B5

    Appicando il Codice VBA:
    codice:
    Option Explicit
    
    Sub Test()
    Application.ScreenUpdating = False
    Const NFl As String = "Master.xlsx"
       
        Workbooks(NFl).Sheets(1).Activate
        
            Cells.Select
                On Error Resume Next
                Range(Cells(4, 1), Cells(5, 2)).Select
    				Selection.Rows.Ungroup
    				Selection.Columns.Ungroup
    				Selection.EntireColumn.Hidden = False
    Application.ScreenUpdating = True
    End Sub
    Non ho riscontrato problemi.

    Forse non ho interpretato correttamete le tue perplessitÓ?

    Giuseppe

  7. #7
    arimans non Ŕ in linea Scolaretto
    Post
    115
    Ciao Giuseppe,

    non so cosa dirti, la macro l┤ho provata su 3 computer diversi, e mettendo il nome in maniera esplicita funziona, sennˇ no...
    Putroppo non posso postarla tutta perchÚ di lavoro.

  8. #8
    GiuseppeMN non Ŕ in linea Scribacchino
    Post
    761
    Buona giornata, @arimans;
    posso chiederti con quale di Release di Excel lavori?

    Io utilizzo Excel 2013 e non vedo problemi.


    Giuseppe

  9. #9
    arimans non Ŕ in linea Scolaretto
    Post
    115
    Quote Originariamente inviato da GiuseppeMN Visualizza il messaggio
    Buona giornata, @arimans;
    posso chiederti con quale di Release di Excel lavori?

    Io utilizzo Excel 2013 e non vedo problemi.


    Giuseppe
    Al lavoro ho Office 2016 (Win10) e a casa 2010 (Win7).
    Comunque anch┤io normalmente non ho mai avuto problemi, Ú quello che mi spiazza...

+ Rispondi al Thread

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi