Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Extrema exekveringstider för en loop

Postades av 2003-02-22 22:09:04 - Per-Olof Ohlsson, i forum microsoft office, Tråden har 6 Kommentarer och lästs av 845 personer

Följande lilla loop som ingår i en längre procedur ger ibland extrema exekveringstider.
Normalt får jag mätvärden på 10-15 mS. (För själva loopen alltså, inte hela proceduren)
På en 1.7 GHz med XP tar den istället 700-800 mS. Man hinner utmärkt med
att se hur Excel uppdaterar cell efter cell.

For iCol = 4 To iSistaCol
.Cells(.Range("CC_LastSample").Row + 1, iCol) = .Cells(.Range ("CC_LastSample").Row, iCol)
Next

På andra riggar, t.ex. en 300 MHz notebook med Win98 tar den 20 mS.
(Jag vet att det finns andra sätt att göra denna kopiering men det finns skäl till att jag gör på detta sätt, även att lägga .Range("CC_LastSample").Row i en variabel för att snabba upp det hela, men jag är ute efter varför det på vissa PC blir så otroligt segt ).

Någon som har någon idé ?


Svara

Sv: Extrema exekveringstider för en loop

Postades av 2003-02-23 00:10:58 - Raderat konto

Peo,

Application.Calculation = xlManual
Application.EnableEvents = False

Om det är en längre procedure kan du också testa att bryta ned den i mindre delar.

Dennis


Svara

Sv: Extrema exekveringstider för en loop

Postades av 2003-02-23 16:41:15 - Per-Olof Ohlsson

Jodå, det har jag provat. Problemet är att med exakt samma förutsättningar får jag sådana extrema skillnader. På min egen XP-maskin med 1.6 GHz går det snabbt och bra men på en del andra segt så det liknar ingenting.
Det finns ju vägar runt, precis som du visar, men jag är ute efter orsaken.
Jag vet ju inte var problemet slår till nästa gång. Andra delar av koden exekveras nämligen med normal fart även på problemriggarna.


Svara

Sv: Extrema exekveringstider för en loop

Postades av 2003-02-23 17:16:24 - Raderat konto

Hej PeO,

OK, misstänkte detta.

Använder du olika versioner av XL?

Kalkylmotorn skiljer sig mycket, extremt mycket mellan 97 och XP-versionerna.

Om inte, vilken version av XL använder du?

Dennis




Svara

Sv: Extrema exekveringstider för en loop

Postades av 2003-02-24 01:42:44 - Per-Olof Ohlsson

Hej Dennis

XL 2002 (XP) på alla maskiner eftersom jag också använder RTD-funktionerna som

introducerades i XL 2002.

/PeO


Svara

Sv: Extrema exekveringstider för en loop

Postades av 2003-02-24 19:51:21 - Raderat konto

Hej PeO,

Jag utgår från att du har isolerat tidsdifferensen till denna loop.

Har du samma tidsdifferens om du reducerar antal kolumner och rader i loopen, dvs ange fasta värden på deklarerade variabler istället för att överlåta det till XL?

Deklarera iSistaCol til Long istället men det ska inte påverka särskilt nämnvärt.

Kan du maila mig en exempelarbetsbok så att jag kan testa själv?

Dennis



Svara

Sv: Extrema exekveringstider för en loop

Postades av 2003-02-25 14:57:57 - Per-Olof Ohlsson

Hej Dennis.

Kan tyvärr inte skicka boken då den är beroende av vår RTD-server för att fungera och att avtalet med min uppdragsgivare inte tillåter det. Blir alltför mycket tjafs om jag skall fixa tillstånd, de är lite paranoida vad gäller sånt.
Tidigare erfarenheter......
Letar vidare.

Jag har ett annat problem jag skulle vilja ha hjälp med. Se nytt inlägg.

/PeO


Svara

Nyligen

  • 17:54 Vegastars New Zealand
  • 16:56 Verde Casino Danmark
  • 13:54 Vegastars: Top Australian Online C
  • 21:28 Chicken Road Casino Game
  • 21:21 1xBet Promo Code 2025
  • 18:37 Remove the bumper in AUDI
  • 15:35 Chicken road crash game
  • 21:41 Automotive Services UK

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 961
27 965
271 783
622
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies