ScreenUpdating

04/03/2010 - 10:47 por Des As Tre | Informe spam
Hola.

Podeis decirme ¿ Que razones puede haber para que la instrucción


Application.ScreenUpdating= False



o en el sub



Sub AgilizarExcel()
With Application
ActualizarPantalla = .ScreenUpdating
If Not ActualizarPantalla = False Then .ScreenUpdating = False
Calculo = .Calculation
If Not Calculo = xlCalculationManual Then .Calculation = xlCalculationManual
PermitirEventos = .EnableEvents
If Not PermitirEventos = False Then .EnableEvents = False
End With
End Sub



No deshabilite la actualización de pantalla ?



Se les llama desde Private Sub Workbook_Open() para hacer una serie de comprobaciones al arrancar
la aplicacion. Y no quiero que se vea los colorines que tiene cada libro cuando se abren y cierran.



Saludos y ... Excel entes vibraciones
Des As Tres No imprimas, ganemos un árbol... o tres hojinas
.

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
05/03/2010 - 00:06 | Informe spam
hola, Des !

considero no necesario (des/re)verificar si una condicion es distinta de como la necesitas
fuera del "screenupdating" que se (auto)recupera de false a true al terminar la ejecucion de codigos
(EXCEPTO cuando se utiliza en false en algunos eventos y presentacion de dialogos integrados)

-> ANTES de iniciar tus procesos: "toma" el estado actual del modo de calculo
ponlo en "manual"... corre tus procesos... y regresalo a su estado inicial
(se entiende que los eventos deben quedar restablecidos "obligadamente")

sub miMacro()
dim calculo
with application
calculo = .calculation
.screenupdating = false
.enableevents = false

' corre aqui tus procesos, y AL TERMINAR ... '

.enableevents = true
.calculation = calculo
end with
end sub

saludos,
hector.

__ OP __
Podeis decirme Que razones puede haber para que la instruccion
Application.ScreenUpdating= False
o en el sub
Sub AgilizarExcel()
With Application
ActualizarPantalla = .ScreenUpdating
If Not ActualizarPantalla = False Then .ScreenUpdating = False
Calculo = .Calculation
If Not Calculo = xlCalculationManual Then .Calculation = xlCalculationManual
PermitirEventos = .EnableEvents
If Not PermitirEventos = False Then .EnableEvents = False
End With
End Sub
No deshabilite la actualizacion de pantalla ?

Se les llama desde Private Sub Workbook_Open() para hacer una serie de comprobaciones al arrancar la aplicacion.
Y no quiero que se vea los colorines que tiene cada libro cuando se abren y cierran...
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida