Oprettet tor. d. 11. marts 2010 kl. 23:48:08

30 point uddelt | 4 kommentarer

lars_u (8.325 point. Point ude: 150)

sløv makro

Kan dette speedes op, især Sub formaterforbrug

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Password = "xxx"
ActiveSheet.Unprotect Password
With Range("B2:C2")
.FormatConditions.Delete
.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="0"
.FormatConditions(1).Interior.ColorIndex = 15
End With
callsub: formaterforbrug
Password = "xxx"
ActiveSheet.Protect Password
Application.ScreenUpdating = True
End Sub

Sub formaterforbrug()
Range("B3:B13").Style = "forbrug post"
Range("B18:B28").Style = "forbrug post"
Range("B33:B43").Style = "forbrug post"
Range("D3:D13").Style = "forbrug post"
Range("D18:D28").Style = "forbrug post"
Range("D33:D43").Style = "forbrug post"
Range("F3:F13").Style = "forbrug post"
Range("F18:F28").Style = "forbrug post"
Range("F33:F43").Style = "forbrug post"
Range("H3:H13").Style = "forbrug post"
Range("H18:H28").Style = "forbrug post"
Range("H33:H43").Style = "forbrug post"
Range("J3:J13").Style = "forbrug post"
Range("J18:J28").Style = "forbrug post"
Range("J33:J43").Style = "forbrug post"
Range("L3:L13").Style = "forbrug post"
Range("L18:L28").Style = "forbrug post"
Range("L33:L43").Style = "forbrug post"
Range("N3:N13").Style = "forbrug post"
Range("N18:N28").Style = "forbrug post"
Range("N33:N43").Style = "forbrug post"
Range("P3:P13").Style = "forbrug post"
Range("P18:P28").Style = "forbrug post"
Range("P33:P43").Style = "forbrug post"
Range("R3:R13").Style = "forbrug post"
Range("R18:R28").Style = "forbrug post"
Range("R33:R43").Style = "forbrug post"
Range("T3:T13").Style = "forbrug post"
Range("T18:T28").Style = "forbrug post"
Range("T33:T43").Style = "forbrug post"
Range("V3:V13").Style = "forbrug post"
Range("V18:V28").Style = "forbrug post"
Range("V33:V43").Style = "forbrug post"
Range("C3:C13").Style = "forbrug pris"
Range("C18:C28").Style = "forbrug pris"
Range("C33:C43").Style = "forbrug pris"
Range("E3:E13").Style = "forbrug pris"
Range("E18:E28").Style = "forbrug pris"
Range("E33:E43").Style = "forbrug pris"
Range("G3:G13").Style = "forbrug pris"
Range("G18:G28").Style = "forbrug pris"
Range("G33:G43").Style = "forbrug pris"
Range("I3:I13").Style = "forbrug pris"
Range("I18:I28").Style = "forbrug pris"
Range("I33:I43").Style = "forbrug pris"
Range("K3:K13").Style = "forbrug pris"
Range("K18:K28").Style = "forbrug pris"
Range("K33:K43").Style = "forbrug pris"
Range("M3:M13").Style = "forbrug pris"
Range("M18:M28").Style = "forbrug pris"
Range("M33:M43").Style = "forbrug pris"
Range("O3:O13").Style = "forbrug pris"
Range("O18:O28").Style = "forbrug pris"
Range("O33:O43").Style = "forbrug pris"
Range("Q3:Q13").Style = "forbrug pris"
Range("Q18:Q28").Style = "forbrug pris"
Range("Q33:Q43").Style = "forbrug pris"
Range("S3:S13").Style = "forbrug pris"
Range("S18:S28").Style = "forbrug pris"
Range("S33:S43").Style = "forbrug pris"
Range("U3:U13").Style = "forbrug pris"
Range("U18:U28").Style = "forbrug pris"
Range("U33:U43").Style = "forbrug pris"
Range("W3:W13").Style = "forbrug pris"
Range("W18:W28").Style = "forbrug pris"
Range("W33:W43").Style = "forbrug pris"
End Sub
Lars

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet fre. d. 12. marts 2010 kl. 00:03:20| #1

kabbak (151.384 point)
www.kabbak.dk

du kan gøre den 3 gange hurtigere ved at sætte flere sammen, sådan ger
Range("B3:B13,B18:B28,B33:B43").Style = "forbrug post"

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet fre. d. 12. marts 2010 kl. 09:22:45| #2

kabbak (151.384 point)
www.kabbak.dk

Men hvorfor opdatere hver gang der sker en ændring i en celle, kan du ikke gøre det enten , når mappen åbnes / lukkes.

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. marts 2010 kl. 11:00:16| #3

lars_u (8.325 point)

Hej igen
det er kun for at beskytte formaterne i cellerne, har overvejet at gøre som du foreslår(når mappen åbnes / lukkes)
tak for hjælpen.
smid et svar

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet tir. d. 16. marts 2010 kl. 13:19:35| #4

Accepteret svar!30 point tildelt

kabbak (151.384 point)
www.kabbak.dk

;-))

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Log ind

Opret bruger | Glemt adgangskode

Seneste spørgsmål

Svar til: X i en celle giver et andet resultat i anden...

Oprettet den 11. februar 2012 kl. 14.15

ashurra giver 100 point for svar | Giv et svar »

Hjælp til formel rente/antal dage

Oprettet den 11. februar 2012 kl. 12.14

petert giver 30 point for svar | Giv et svar »

Problemløser, "HVIS" formel, eller andet til optimering?

Oprettet den 11. februar 2012 kl. 02.36

Olav123 giver 150 point for svar | Giv et svar »

Seneste guides

Installer win 7

9. februar 2012 kl. 14.11 | Læs »

Installation af Apache2, PHP5, MySQL5, Phpmyadmin og...

8. februar 2012 kl. 20.05 | Læs »

Den hurtige og effektive metoder til at knække...

4. februar 2012 kl. 23.16 | Læs »

Guide til usb internet også kaldet mobilt bredbånd

4. februar 2012 kl. 22.33 | Læs »

Den gode bruger

30. januar 2012 kl. 04.45 | Læs »

Se alle guides »

Seneste nyheder

Måske snart slut med Androids helt store problem

10. februar 2012 kl. 13.40 | Læs »

Her er fem sjove danske websider du skal kende

10. februar 2012 kl. 13.31 | Læs »

NemId sprængt: Hackere bryder ind i Danske Bank

10. februar 2012 kl. 13.06 | Læs »

Danmark kigger langt efter musikbranchens guldkalv

10. februar 2012 kl. 12.20 | Læs »

Nu kan du snart hente Windows 8

10. februar 2012 kl. 11.41 | Læs »

Se alle nyheder »

Tips & Tricks fra PC World

Her er fem sjove danske websider du skal kende

Trænger dine lattermuskler til en omgang fitness på dansk? Vi viser vej til fem websider fyldt med humor og vanvittig satire.

Læs mere »

Anmeldelser fra PC World

Test: Denne super-tablet er iPads hårdeste konkurrent

Eee Pad Transformer Prime er frygtindgydende med sin quadcore processor og evne til at trylle sig om til bærbar. Apple bør kigge i bagspejlet, for Asus' tablet-pc kommer buldrende - og gør det...

Læs mere »

Seneste blogindlæg

Tvangslukke spørgsmål: Hvad er den bedste løsning?

Hej Vi har mange åbne spørgsmål på Eksperten. Vi ville gerne tvangslukke dem - så et spørgsmål efter f.eks. 6 måneder lukkes. Men der er et par uklarheder som ville være gode at få lidt input til:...

Læs mere »