vba - Visual Basic Excel Color Cells on Lost Focus -



vba - Visual Basic Excel Color Cells on Lost Focus -

i need create vba script in excel colors 2 cells when value of 1 @ to the lowest degree 10% greater or less other

private sub worksheet_change(byval target range) application.enableevents = false if target.address = aprx_lns if aprx_lns > aprx2_lns * 0.1 aprx_lns.interior.color = hex(ffff00) aprx2_lns.interior.color = hex(ffff00) elseif aprx_lns < aprx2_lns * 0.1 aprx_lns.interior.color = hex(ffff00) aprx2_lns.interior.color = hex(ffff00) end if end if application.enableevents = true end sub private sub worksheet_change2(byval target range) application.enableevents = false if target.address = aprx2_lns if aprx_lns > aprx2_lns * 0.1 aprx_lns.interior.color = hex(ffff00) aprx2_lns.interior.color = hex(ffff00) elseif aprx_lns < aprx2_lns * 0.1 aprx_lns.interior.color = hex(ffff00) aprx2_lns.interior.color = hex(ffff00) end if end if application.enableevents = true end sub

what doing wrong? neither of cells changing color selected color, after made values create if statement true. know nil vba, explanations great. thanks!

following on comments above, let's combine logic in single event handler.

also, used named ranges/cells, need refer them correctly. name meaningless in vba unless qualified explicit range. pass name string range("aprx_lns"), etc.

note code fire when alter values of 1 of these 2 cells, directly. means if these cells contain formula referencing other cells, , other cells change, highlighting not occur.

revised & simplified

private sub worksheet_change(byval target range) dim aprx_lns range dim aprx_lns2 range dim difference double dim diffratio double set aprx_lns = range("aprx_lns") '## modify needed set aprx2_lns = range("aprx2_lns") '## modify needed application.enableevents = false if target.address = aprx_lns.address or target.address = aprx2_lns.address difference = abs(aprx_lns) / abs(aprx2_lns) '## compute absolute difference ratio diffratio = abs(1 - difference) if diffratio >= 0.1 '### if cell values differ +/- 10%, highlight them aprx_lns.interior.color = 65535 'vbyellow aprx2_lns.interior.color = 65535 'vbyellow else '### otherwise, unhighlight them: aprx_lns.interior.color = xlnone aprx2_lns.interior.color = xlnone end if end if application.enableevents = true end sub

excel vba excel-vba colors

Comments

Post a Comment

Popular posts from this blog

php - Android app custom user registration and login with cookie using facebook sdk -

php - Android app custom user registration and login with cookie using facebook sdk - i developing android application in users need register , log in using facebook. approximately, flow. open app first time, authenticate facebook, data, send info server create them business relationship in application, start session new business relationship in server, cookie perform later interactions. so far good. what need know wich info have send server, can able identify users when log in seccond time. because need start session in server , send cookie android app farther interactions. i'm using php server side language. i thinking getting getaccesstoken() in android facebook sdk, pass server on business relationship creation , storing in android app. but can't manage how login users on sec time utilize app. any suggestions ? in advance ! to uniquely identify user within app, should create request /me , user's id. guaranteed unique , remain con
Read more

django - Access session in user model .save() -

django - Access session in user model .save() - is possible access current session in user model .save()? pseudo code of want achieve: # users.models.py def save(self, *args, **kwargs): created = true if self.pk: created = false super(abstractuser, self).save(*args, **kwargs) # post-save if created: look_for_invite_in_session_and_register_if_found(self, session) seems wrong in architecture. shouldn't access request in models layer. work request must done in view. can this: user, created = abstractuser.objects.get_or_create(name=name) if created: look_for_invite_in_session_and_register_if_found(user, request.session) django session
Read more

php - .htaccess Multiple Rewrite Rules / Prioritizing -

php - .htaccess Multiple Rewrite Rules / Prioritizing - here current htaccess file: rewriteengine on rewritecond %{http_host} !^www\.website\.com [nc] rewritecond %{http_host} ([^.]+)\.website\.com [nc] rewriterule ^(.*)$ http://www.website.com/gotourl.php?urlid=?%1 [l] rewriterule ^(\w+)$ ./gotourl.php?urlid=$1 [nc,l] rewriterule ^(\w+)/$ ./gotourl.php?urlid=$1 [nc,l] the website in question url shortener i'm working on testing/developing , personal use. above code may not ideal i'm not familiar .htaccess , made via googling , testing. want url shortening aspect: http://website.com/1234 -> http://website.com/gotourl.php?urlid=1234 http://website.com/1234/ -> http://website.com/gotourl.php?urlid=1234 the problem cannot figure out how ignore directories. want specific directories go specific pages: http://website.com/img (or) http://website.com/img/ -> http://website.com/img.php http://website.com/img/1234 (or) http://website.com/
Read more