excel - 'ClearContents' and 'PasteSpecial' performance -

-

in excel vba need clear large named range of content (but not formats) , paste part of formulas taken different named range. issue performance of clear , paste operations. quite slow. same operations performed manually on sheet faster. sheet in manual calculation mode. below code have written this: 

sub loadformuals_(nm_rng_formula string, nm_rng_control string, nm_rng_paste string, nm_rng_clear string) dim rabs integer dim rrel integer  dim rng_formula range: set rng_formula = range(nm_rng_formula) dim rng_control range: set rng_control = range(nm_rng_control) dim rng_paste range: set rng_paste = range(nm_rng_paste) dim rng_clear range: set rng_clear = range(nm_rng_clear) application.screenupdating = false application.enableevents = false   dim ws worksheet set ws = worksheets(rng_paste.worksheet.name) ws.enablecalculation = false rng_clear.clearcontents   if not (isempty(rng_control.cells(1, 1)))     application.screenupdating = false     rabs = rng_control.end(xldown).row     rrel = rabs - rng_control.cells(1, 1).row + 1     rng_formula.copy     ws.range(rng_paste.cells(1, 1), rng_paste.cells(rrel, 1)).pastespecial paste:=xlpasteformulas     application.cutcopymode = false end if application.enableevents = true ws.enablecalculation = true end sub

here nm_rng_clear string name of range needs cleared, nm_rng_formula name of range formulas, , ranges nm_rng_control , nm_rng_pastecontrol formulas pasted.

the slow parts are: 

rng_clear.clearcontents

and: 

ws.range(rng_paste.cells(1, 1), rng_paste.cells(rrel, 1)).pastespecial paste:=xlpasteformulas

is there can make quicker?

i have updated code tiny bit , think perform little bit better it's hard say. slowing down workbook large reference formulas using whole columns: vlookup, match... or in rare cases conditions =if(a:a=2,a:a-b:b,a:a*c:c)

option explicit  sub loadformuals_(byval nm_rng_formula string, _                   byval nm_rng_control string, _                   byval nm_rng_paste string, _                   byval nm_rng_clear string)      dim rabs integer     dim rrel integer     dim strformula string      call turnextrasoff      dim rng_formula range: set rng_formula = range(nm_rng_formula)     dim rng_control range: set rng_control = range(nm_rng_control)     dim rng_paste range: set rng_paste = range(nm_rng_paste)     dim rng_clear range: set rng_clear = range(nm_rng_clear)       dim ws worksheet     set ws = worksheets(rng_paste.worksheet.name)     strformula = rng_formula.resize(1, 1).formula      'clear range     rng_clear.value = vbnullstring      ' paste formulas     if not (isempty(rng_control.cells(1, 1)))         rabs = rng_control.end(xldown).row         rrel = rabs - rng_control.cells(1, 1).row + 1         ws.range(rng_paste.cells(1, 1), rng_paste.cells(rrel, 1)).formula = strformula     end if      call turnextrason  end sub  sub turnextrasoff()     application         .screenupdating = false         .enableevents = false         .calculation = xlcalculationmanual     end end sub  sub turnextrason()     application         .screenupdating = true         .enableevents = true         .calculation = xlcalculationautomatic     end end sub

hope helps. :)


Comments

Post a Comment

Popular posts from this blog

java - Static nested class instance -

-
this question has answer here: java inner class , static nested class 23 answers i came across in java, know static nested class why create instance of 'static'. isn't whole idea of 'static' use without instance? understand concept of inner classes, why (and frankly how possible to) create 'instance' of 'static' member @ ? why this: 1- outerclass.staticnestedclass nestedobject = new outerclass.staticnestedclass(); 2- nestedobject.anestedclassmethod(); and not this: 1- outerclass outerinstance=new outerclass(); 2- outerinstance.staticnestedclass.anestedclassmethod(); use on inner classes, keyword static indicates can access inner class without instance of outer class. for example: public class outer { public static class inner { /* code here. */ } } with construction, can create instance of inn
Read more

c# - Bluetooth LE CanUpdate Characteristic property -

-
i building xamarin.forms cross platform mobile app, uses monkey.robotics bluetoth low energy functionality. connecting mbed based implimentation of custom gatt service . in xamarin c#, triggers characteristic. canupdate property in monkey.robotics? this standard example c# based on: if (characteristic.canupdate) { characteristic.valueupdated += (s, e) => { debug.writeline("characteristic.valueupdated"); device.begininvokeonmainthread( () => { updatedisplay(characteristic); }); isbusy = false; // spin until first result received }; isbusy = true; characteristic.startupdates(); } this has been working, since changed own custom gatt service connecting to, canupdate property false. property , how triggered? me debugging gatt service code. thanks monkey.robotics open sour
Read more

JavaScript - Replace variable from string in all occurrences -

-
ok, know if have character '-' , want remove in places in string javascript, ... someword = someword.replace(/-/g, ''); but, when applying array of characters, s not working ... const badchars = ('\/:*?"<>|').split(''); let filename = title.replace(/ /g, '-').tolocalelowercase(); (let item = 0; item < badchars.length; item++) { // below not work global '/ /g' filename = filename.replace(/badchars[item]/g, ''); } any ideas? /badchars[item]/g looks badchars , literally, followed i , t , e , or m . if you're trying use character badchars[item] , you'll need use regexp constructor, , you'll need escape regex-specific characters. escaping regular expression has been well-covered . using that: filename = filename.replace(new regexp(regexp.quote(badchars[item]), 'g'), ''); but , don't want that. want character class: let filename = title.replac
Read more