Come posso tenere il mio schermo excel prima di salvare

Il codice riportto di seguito è quello di formattare i file excel aperti in barra delle applicazioni. sta facendo il mio lavoro molto bene. butt io voglio tenere il mio schermo al passo evidenziato per un po 'in modo che possa controllare il risultato. può qualcuno avere qualche idea ???

Sub OpenAllWorkbooksnew() Set destWB = ActiveWorkbook Dim DestCell As Range Dim cwb As Workbook For Each cwb In Workbooks **Call donemovementReport** ActiveWorkbook.Close True ActiveWorkbook.Close False Next cwb End Sub 

Potresti usare un punto di interruzione: http://www.wiseowl.co.uk/blog/s196/breakpoints.htm

Non è il modo più pulito, ma se questo foglio di calcolo è solo per te, allora questo è un metodo molto semplice ed efficace.

È ansible utilizzare Stop per mettere in pausa il codice. Per esempio

 Option Explicit Sub Sample() Debug.Print "1" Stop Debug.Print "2" End Sub 

Se si dispone di un controllo su ciascuna cartella di lavoro, è ansible creare un intervallo denominato in ciascuno chiamato "Controllo" e modificare il codice come segue …

 Sub OpenAllWorkbooksnew() Set destWB = ActiveWorkbook Dim DestCell As Range Dim cwb As Workbook For Each cwb In Workbooks 'ensure "Checked" flag is reset cwb.Names("Checked").RefersToRange.Value = "Unchecked" 'bring workbook to focus cwb.Activate 'wait until "Checked" flag is changed to "OK" Do Until cwb.Names("Checked").RefersToRange.Value <> "Unchecked" DoEvents Loop 'check result and action accordingly If UCase(cwb.Names("Checked").RefersToRange.Value) = "OK" Then ActiveWorkbook.Close True ElseIf UCase(cwb.Names("Checked").RefersToRange.Value) = "ERROR" Then ActiveWorkbook.Close False End If Next cwb End Sub ActiveWorkbook.Close True Sub OpenAllWorkbooksnew() Set destWB = ActiveWorkbook Dim DestCell As Range Dim cwb As Workbook For Each cwb In Workbooks 'ensure "Checked" flag is reset cwb.Names("Checked").RefersToRange.Value = "Unchecked" 'bring workbook to focus cwb.Activate 'wait until "Checked" flag is changed to "OK" Do Until cwb.Names("Checked").RefersToRange.Value <> "Unchecked" DoEvents Loop 'check result and action accordingly If UCase(cwb.Names("Checked").RefersToRange.Value) = "OK" Then ActiveWorkbook.Close True ElseIf UCase(cwb.Names("Checked").RefersToRange.Value) = "ERROR" Then ActiveWorkbook.Close False End If Next cwb End Sub 

Se non si dispone di un tale livello di controllo su each cartella di lavoro che viene eseguito loop attraverso, quindi lo stesso metodo potrebbe funzionare ma utilizzando il Ribbon / Commandbar (a seconda della versione di Excel). È difficile essere più specifici senza ulteriori informazioni su come esattamente questo codice viene chiamato, ecc.