excel - PivotTable FormatConditions ScopeType is causing 1004 -


this question exact duplicate of:

a 1004 error occurs @ end of sub, when trying set scopetype. want formatcondition apply active rows in current column, thought it.

    sub createpivot()         ' define rngtarget , rngsource range type variables         dim rngtarget range         dim rngsource range         dim intlastcol integer         dim intcntrcol integer         dim ws1, ws2 worksheet         dim pt pivottable         dim cf formatcondition          set ws1 = thisworkbook.sheets("sheet1")         set ws2 = thisworkbook.sheets("sheet2")         ws2.cells.clear          ' rngtarget pivottable created (ie: sheet2, cell b3)         set rngtarget = ws2.range("b3")         'set rngtarget = thisworkbook.worksheets("sheet2").range("b3")          ' rngsource defines range used create pivottable         ' activeworkbook = opened workbook         ' activesheet = currectly opened sheet         ' usedrange = range of cells active data in them         set rngsource = ws1.usedrange         'set rngsource = activeworkbook.activesheet.usedrange          ' select range         ws1.select         rngsource.select          ' copy range clipboard         rngsource.copy          ' create new pivottable using rngsource defined above,         ' in excel format,         ' placed @ rngtarget location,         ' , name pivotb3 reference if needed         activeworkbook.pivotcaches.create(xldatabase, rngsource).createpivottable rngtarget, "pivotb3"         set pt = rngtarget.pivottable          ' last used column data table         intlastcol = rngsource.columns(rngsource.columns.count).column          ' select pivot table can apply conditional formats         pt.pivotselect "", xldataandlabel, true          intcntrcol = 3 intlastcol             ws2.select             ws2.cells(4, intcntrcol).select ' select current sum column             selection.formatconditions.add type:=xlcellvalue, operator:=xlless, formula1:="=5000" ' set conditional format less 5000             selection.formatconditions(selection.formatconditions.count).setfirstpriority ' take priority on other formats             selection.formatconditions(1).font ' use font property next operations                 .themecolor = xlthemecolorlight1 ' set default (if not meet condition)                 .tintandshade = 0 ' same above             end             selection.formatconditions(1).interior                 .patterncolorindex = xlautomatic                 .color = 65535 ' set background color yellow                 .tintandshade = 0             end             selection.formatconditions(1).stopiftrue = false             selection.formatconditions(1).scopetype = xlfieldsscope ' apply format rows match "sum of xxxx"         next intcntrcol     end sub

based on last question propose method applying formatting:

set ws2 = thisworkbook.sheets("sheet2") ws2.usedrange     .formatconditions.add type:=xlcellvalue, operator:=xlless, formula1:="=5000" ' set conditional format less 5000     .formatconditions(.formatconditions.count).setfirstpriority ' take priority on other formats     .formatconditions(1).font ' use font property next operations         .themecolor = xlthemecolorlight1 ' set default (if not meet condition)         .tintandshade = 0 ' same above     end     .formatconditions(1).interior         .patterncolorindex = xlautomatic         .color = 65535 ' set background color yellow         .tintandshade = 0     end     .formatconditions(1).stopiftrue = false end

Comments

Post a Comment

Popular posts from this blog

linux - Does gcc have any options to add version info in ELF binary file? -

i mean whether gcc can insert source code version infor elf binary section or similar. not want change source file, add info gcc option in makefile. you can emit version info text file, turn text file object file statically link executable. the first step simple have write code: script or write version info in format plain text file. write makefile rule produce version.o version.txt, using objcopy . you'll have object file 2 useful symbols defined in it: beginning , end of textual version info. add generated object executable, , you'll able access version 2 ways: running strings on binary, or writing code in application print version string (you'll need declare start , end symbols variables in header file).
Read more

javascript - Clean way to programmatically use CSS transitions from JS? -

as title implies, there proper way set initial css properties (or class) , tell browser transition these value? for example ( fiddle ): var el = document.queryselector('div'), st = el.style; st.opacity = 0; st.transition = 'opacity 2s'; st.opacity = 1; this not animate opacity of element in chrome 29/firefox 23. because ( source ): [...] you’ll find if apply both sets of properties, 1 after other, browser tries optimize property changes, ignoring initial properties , preventing transition. behind scenes, browsers batch property changes before painting which, while speeding rendering, can have adverse affects. the solution force redraw between applying 2 sets of properties. simple method of doing accessing dom element’s offsetheight property [...] in fact, hack work in current chrome/firefox versions. updated code ( fiddle - click run after opening fiddle run animation again): var el = document.queryselector('div'...
Read more

android - send complex objects as post php java -

is possible send contact numbers via post php class inside eclipse ? or post limited primitive types , have find work arounds send them string ? i propose: send them json in post request, befor start, have @ gson project , keep in mind set content application -> json. luck
Read more