excel - Change Background when formula removed by user change -


aim:

change background colour if there no formula (when user overrides defaults formula goes , needs highlighted)

private sub worksheet_change(byval target range)  set currentsheet = activeworkbook.sheets("audit findings")     '############# 'check if missing formulas not allowed dim rng range dim row range dim cell range  set rng = currentsheetrange("j7:j11")  each cell in rng      if cell.hasformula       range(cell.address).interior.colorindex = 37       ' msgbox "cell " & cell.address & " contains formula."     else         range(cell.address).interior.color = rgb(255, 0, 0)        'msgbox "the cell has no formula."     end if  next cell      '#############  'check if blanks not allowed on error goto whoa  application.enableevents = false 'set range check if not intersect(target, range("e7:j11")) nothing      'check length , reverse if blank has value      '################# if len(trim(target.value)) = 0 application.undo end if  letscontinue:     application.enableevents = true     exit sub whoa:     msgbox err.description     resume letscontinue   end sub

references:

looping

cell content

background colour

your code works fine (except in code provided in both cases change interior color red).

i move code worksheet_change event, , scan cells being modifed fall inside scanned range (the for each cell in rng loop not needed anymore) 

private sub worksheet_change(byval target range)  dim watchrange                  range dim intersectrange              range  ' modify range suit needs set watchrange = range("j7:j11") set intersectrange = intersect(target, watchrange)  if not intersectrange nothing      if target.hasformula       target.interior.color = rgb(0, 255, 0) ' has formula >> color green       ' msgbox "cell " & cell.address & " contains formula."     else         target.interior.color = rgb(255, 0, 0) ' has no formula >> color red        'msgbox "the cell has no formula."     end if  end if  end sub

Comments

Post a Comment

Popular posts from this blog

php - How to add and update images or image url in Volusion using Volusion API -

actually have store importing products store product data insert , update image or image url not insert , update. this xml code name datapro.txt. <products_joined> <productcode>3710_012t</productcode> <vendor_partno>eah5450silent/di/1gd3(lp)</vendor_partno> <productname>test product ta</productname> <hideproduct>n</hideproduct> <stockstatus>20</stockstatus> <lastmodified>1/5/2016 10:25:00 am</lastmodified> <lastmodby>2</lastmodby> <productweight>0.9</productweight> <productprice>100</productprice> <productmanufacturer>asus tek</productmanufacturer> <vendor_price>32.69</vendor_price> <numproductssharingstock>0</numproductssharingstock> <categoryids>107</categoryids> <producturl>http://tebkq.mvlce.servertrust.com/productdetails.asp?productcode=3710_012t</producturl>
Read more

javascript - jQuery UI Splitter/Resizable for unlimited amount of columns -

using jqueryui splitter or resizable functions want create layout allows unlimited amount of columns added , columns need resizable. so fiddle: https://jsfiddle.net/f3glh3mw/ but in fiddle html contains out of nested sets instead of inline. limits possibilities above fiddle can have equal widths 2,4,8,16,32 etc columns. in between shows crooked can see in fiddle. when researching came on question: jquery ui , splitter if @ top answer shows structure like: <div class="wrap"> <div class="resizable resizable1"></div> <div class="resizable resizable2"></div> </div> full fiddle: http://jsfiddle.net/8qztj/86/ which structure want javascript hardcoded 2 resizable items. so here question: how modify last fiddle works amount of .resizable divs. or know of plugin can this. thanks helping! so far found plugin: http://www.bacubacu.com/colresizable/ which says , close functionality want. in
Read more

javascript - IE9 error '$'is not defined -

Image
<!--[if lte ie 9]><html class="lte9"><![endif]--><!--[if gt ie 9]><html><![endif]--> <!--[if !ie]><!--> <html> <!--<![endif]--> blah blah <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.12.1/jquery.min.js"></script> <script src="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/js/bootstrap.min.js"></script> <script src="{{ asset('js/mypage.js') }}" type="text/javascript"></script> </body> </html> when load page, ie9 brings error '$' not defined . how can solve error? +++ mypage.js $(function(){ //when load page, //ie9 tag not moving. $(window).load(function() { $('div.mask').hide(); }); // when click , willshow show. //for not ie 9 if (!$('html').hasclass('lte9')) { var = $('ul.about > li > span.activebtn');
Read more