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
.

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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...

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida