FONT.COLOR returns NULL in conditional formatting excel vba -

-

i have sub routine gets conditional formatting properties cell cell in sheet "source" , applies them in sheet "result" in same workbook. works when font.color , font.tintandshade returns null, in result sheet conditional formatting have black font color. (you can check in result sheet conditional formatting > mange rules).

the error "invalid use of null" maybe because of type of values.

error occurs here: 

fcfontc = xarr(i, j).formatconditions(ii).font.color fcfontt = xarr(i, j).formatconditions(ii).font.tintandshade

here code:

sub formatcondition1() dim fc formatcondition dim fcfontc long  dim fcfontt integer dim fcc long dim fct integer dim ii integer dim wks1 worksheet, wks2 worksheet dim xarr range, yarr range dim integer, j integer 'dim k integer, l integer  worksheets("source").activate worksheets("result").select  set yarr = worksheets("result").range("a1:c2") yarr.range("a1:c2").clear  set wks1 = activeworkbook.worksheets("source") set wks2 = activeworkbook.worksheets("result")  set xarr = wks1.range("a1:c2") set yarr = wks2.range("a1:c2")  = 1 xarr.rows.count     j = 1 xarr.columns.count         if xarr(i, j).formatconditions.count > 0             ii = 1 xarr(i, j).formatconditions.count 'ii number of conditions                 set fc = xarr(i, j).formatconditions.item(ii)                  'cell font formatting                 '**** error here *******                 fcfontc = xarr(i, j).formatconditions(ii).font.color                 fcfontt = xarr(i, j).formatconditions(ii).font.tintandshade                  'cell interior formating                 'set fccin = xarr.formatconditions(ii).interior.patterncolorindex                  fcc = xarr(i, j).formatconditions(ii).interior.color                  fct = xarr(i, j).formatconditions(ii).interior.tintandshade                  'set property new cell                 yarr(i, j).select                 selection.formatconditions.add type:=xlcellvalue, operator:= _                     fc.operator, formula1:=fc.formula1                 'selection.formatconditions(selection.formatconditions.count).setfirstpriority                  'cell font formatting                 selection.formatconditions(ii).font.color = fcfontc                 selection.formatconditions(ii).font.tintandshade = fcfontt                  'cell interior formating                 selection.formatconditions(ii).interior                     .patterncolorindex = xlautomatic                     .color = fcc                     .tintandshade = fct                 end                 selection.formatconditions(selection.formatconditions.count).stopiftrue = false             next ii         end if     next j next

end sub

my question "how can property of conditional formatting fonts also?


Comments

Post a Comment

Popular posts from this blog

java - Run a .jar on Heroku -

-
i trying run .jar file on heroku, , can't find instructions anywhere on how this. have read wants me compile uploading heroku. possible, , if is, how this? if helps, trying run minecraft craftbukkit server, , don't have pom.xml file yet. you didn't provide details i'll try give , people reaches question way it. first of all, create heroku account , create heroku application (assumed have done that). second, need generate application jar , upload heroku. so, open terminal , install heroku cli (assuming unix terminal): $ sudo npm install -g heroku-cli you need have npm , nodejs installed, can check link: https://www.digitalocean.com/community/tutorials/how-to-install-node-js-on-ubuntu-16-04 once done that, can use npm update node version acceptable heroku-cli: $ sudo npm install -g n $ sudo n 7.10.0 and run: $ sudo npm install -g heroku-cli in order deploy jars, need install deploy plugin: $ sudo heroku plugins:install heroku-cli-deploy ...
Read more

java - Jtable duplicate Rows -

-
Image
when add new rows in jtable duplicate rows many times this method update jtable public final void tableaucomande(){ ((defaulttablemodel)tabcommande.getmodel()).getdatavector().clear(); session s=hibernateutil.getsessionfactory().opensession(); criteria cr1= s.createcriteria(commande.class); list <commande> lcs=cr1.list() ; criteria cr2= s.createcriteria(lignecommande.class); list <lignecommande> lck=cr2.list() ; if(lcs.size()!=0 && lck.size()!=0) { (commande lc:lcs) { for(lignecommande lig:lck){ ((defaulttablemodel)tabcommande.getmodel()).addrow(new object[]{ lc.getid_cmd(),lc.getnumcmd(),lc.getdate_cmd(),lc.getclient().getnomprenom(), lig.getproduit().getlib_prd(),lig.getquantite(),lig.getproduit().getid_prd() }); } } // tabcommande.setrowselectioninterval(tabcommande.getrowcount()-1,tabcommande.getrowcount()-1); } } this code add add data rows displaye...
Read more

validation - How to pass paramaters like unix into windows batch file -

-
i need pass various parameters .cmd file unix format file.cmd -configuration=value -source=value -flag but, try this: startlocal @echo off cls setlocal set cmdline=%* set configuration= set source= set badargs= set validation= goto main :splitargs echo splitargs(%*) if "%*" neq "" ( /f "tokens=1,2,* delims== " %%i in ("%*") call :assignkeyvalue %%i %%j & call :splitargs %%k ) goto :eof :assignkeyvalue echo assignkeyvalue(%1, %2) if /i %1==-configuration ( set configuration=%2 ) else if /i %1==-source ( set source=%2 ) else ( rem append unrecognised [key,value] badargs echo unknown key %1 set badargs=%badargs%[%1, %2] ) goto :eof :validate echo validating set validation=fail if defined configuration ( echo -configuration ok if defined source ( echo -source ok if not defined badargs ( set validation=success ) ) ) goto :eof :main cl...
Read more