vba - simple loop used to be fast, now it's slow -

-

I have a simple piece that was burnt through the data of 45,000 rows in the eyes of the eye and now it takes a Very long (~ 15 minutes). I have read through some similar problems, but I want to post the code because it is very basic, this code is the individual weight of each item (one line per line) of an order, and then a cell for each item with the total amount Allocates to. It goes from top to bottom to get the total and then goes from bottom to bottom to fill the empty space. What am I missing? 

  Sub-fill Bhartakya () 'File Completely according to the process order' 'This macro tells the weight of children of all processes' and then in that column E total' Long Dim Nrow As long as the dim nLastRow long dim wtTot dim Nstop, 'every line of the process' order' last line 'nLastRow = ActiveSheet.UsedRange.Rows.Count' process order 'by ActiveWorkbook.Worksheets' type Scheduling (. "Zpr2013b") Sort.SortFields.Clear ActiveWorkbook.Worksheets (. "Zpr2013b") Sort.SortFields.Add_Bow : = Range (cells (1, 'D'), cell (nLastRow, 'D')), _ SortOn: = xlSortOnValues, order: = xlAscending, DataOption:. = XlSortNormal ActiveWorkbook.Worksheets ("zpr2013b") sorted (cells (1, 'A'), cell (nLastRow, "q")) with the set range. .Header = xlYes .MatchCase = false .Orientation = xlTopToBottom .SortMethod = WtTot = cells (2, "b") with xlPinYin .Apply end. Value for 'last coil' in the line of '' Going from top to bottom and putting the total weight of each process '' nLastRow for nRow = 2 if cell (nRow, "D") value = cell (nRow + 1 , "D"). Value then wtTot = wtTot + Cells (nRow + 1, "B") value and if the next NRO 'go up from the bottom and fill all the spaces of other calls', 'well', 'n' value = "cell" (x + 1, "E") value = 2 for phase X-1 if cells (X, "E"). Value = "" then cell (x, "e"). I would recommend using this code instead. X and sub

It should be very fast for you to run and the task will be completed: 

  subfillInTotalWeight () set the worksheet dim form ws = "ActiveWorkbook.Sheets" ("zpr2013b") ws.UsedRange.Sort Intersect (ws.UsedRange, ws.Columns ('D')), xlAscending, Header :. = XlYes with range ("E2", ws.Cells (rows.Count, 'D') and (xlUp) .offset (, 1)). Formula = "= SUMIF (D: D, D" and. Row and ", B: B)". value. = End of price with

Comments

Post a Comment

Popular posts from this blog

apache - 504 Gateway Time-out The server didn't respond in time. How to fix it? -

-
Using a form submission on an embedded iframe , the customer downloads a compressed log file Requested. The request was sent to the server, which is the compressed log files, perform some database operations and returns a compressed file. After just 2 minutes, 504 gateway time-out server did not respond timely message on browser net panel How to fix this error? The log files were taking a long time to compress, and timeout was set to 2min The error was fixed by extending the file file: # # timeout: The number of seconds before getting the time out. # # # Timeout 120 timeout 600
Read more

c# - .net WebSocket: CloseOutputAsync vs CloseAsync -

-
We have a working ASP.NET Web API REST service, which is one of the methods of our controller, HTTPTTEX. .) Socket handler code looks something like this ... Public async task socket handler (AspNetWebSocketContext context) {_webSocket = context.WebSocket; ... while (! Cts.IsCancellationRequested) {WebSocketReceiveResult Results = _webSocket.ReceiveAsync (Input Segment, cts.Token) .Result; WebSocketsStateCollusocketState = _webSocket.State; If (result.MessageType == WebSocketMessageType.Close || currentSocketState == WebSocketState.CloseReceived) {// What should I use. CloseAysnc () or. CloseOutputAsync ()? _webSocket.CloseOutputAsync (WebSocketCloseStatus.NormalClosure, "Client Requested", cts.Token). Wait (); } If (currentSocketState == WebSocketState.Open) {...}}} .What is the difference between .CooseAsync () and CloseOutputAysnc ()? I tried both of them and they both seemed to work fine but some difference should be the same they both describe very similar to...
Read more

c++ - How to properly scale qgroupbox title with stylesheet for high resolution display? -

-
I am trying to apply a stylesheet for QGroupBox (QT4.8), which works on the normal screen ( 96 dpi) high resolution screen (Yoga 2 Pro, 3200x1800, 275 dpi, windows 8.1). The following style looks good on the 275 dpi screen, but the top margins on a regular 96 dpi screen are far too big. QGroupBox {border: 1px solid red; Range radius: 7px; Margin-top: 12x; } QGroupBox :: Title {subcontrol-origin: margin; Subcontrol-position: left above; Padding-left: 10px; Padding-right: 10px; } Changing the top-margin has an effect, but I did not get a proper setting which works on both screens. If I shorten the value, the content of the group box overlaps with the title on 275 dpi screen. I was also playing with units "East", "PX", "MX", "PT". Reading the document I would have guessed, "2 X" was the correct solution, which should be scaled with different screen resolutions. Without the stylesheet, the groupbox works well on both screens. ...
Read more