04. oktober 2010 - 11:27Der er
6 kommentarer og 1 løsning
Screenupdating - over flere workbooks - "fejler"
Kære eksperter,
Jeg har en master workbook, som henter og gemmer data fra/i en anden workbook via nogle userforms. Det fungerer fint, men det ser bare meeega uprof ud, når skærmen flimrer løs og man kan se mine ark med variable og når der copy/pastes osv.
Jeg har forsøgt at bruge Application.Screenupdating = False (og true), men det virker bare ikke - nok fordi der er flere sheets og workbooks og kodestumper der interagerer.
Kan nogen give mig et forslag til hvordan jeg får det til at se lidt mere professionelt og "roligt" ud? Det optimale ville fx være en lille "Vent venligst" box, der vises i de 3-4 sekunder der arbejdes. Ellers vil det også være great hvis blot skærmen ikke flimrede rundt!
Denne side indeholder artikler med forskellige perspektiver på Identity & Access Management i private og offentlige organisationer. Artiklerne behandler aktuelle IAM-emner og leveres af producenter, rådgivere og implementeringspartnere.
Du kan prøve at læse arkene ReadOnly: Når jeg ikke kender din kode er det svært at give konkrete råd, men her er hovedsagen:
Du skal oprette et Workbook objekt, og sætte det lig kildearket, men som readonly:
dim oWBKilde as Workbook Set oWBKilde = Workbooks.Open(FileName:=StiTilKildeark, ReadOnly:=True)
og så indsætte dine værdier, f.eks.: ThisWorkbook.Sheets("Ark1").Range("B2").Value = oWBKilde.Sheets("Ark1").Range("B2").Value -altså ingen copy/paste, men indsætte værdi direkte
Til sidst skal du lukke og frigive objektet:
oWBKilde.Close (False) Set oWBKilde = Nothing
Det hele omkranses af Application.ScreenUpdating og Application.DisplayAlerts
Et lille problem er, at jeg på et tidspunkt også skal skrive i filen.
1. Først læses der fra den under userform_activate. 2. Så foretages der ændringer, som skrives tilbage i filen. 3. Så genindlæses den igen, så userformen har de nyeste data
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
