Excel VBA: Select Case if ActiveCell like "*string*" -

-

i'm working on macro takes current value of activecell , changes value based on select case. however, unable determine if activecell contains wild card string. not sure if syntax correct. how can select case compare?

    select case activecell.value          case activecell.value "*string*"             activecell.value = "contains string"      end select

it possible use wildcards. keep these 2 things in mind: first, string comparison expressions evaluate boolean data type (true/false); second, per developer reference select...case statement, case expression(s) must "implicitly convertible" same data type of select case test expression. demonstrate, let's use code original post above.

select case activecell.value  '-->activecell.value test expression      case activecell.value "*string*"  '-->(activecell.value "*string*") case expression.         activecell.value = "contains string"  end select

if selected cell containing string value in worksheet, used immediate window test data type of these 2 expressions using typename() function, following:

?typename(activecell.value)  string ?typename(activecell.value "*string*")  boolean

as can see, select...case not work here because data types not implicitly same (a minor exception if macro run on cells in worksheet contained single-word values of "true" or "false", excel automatically converts boolean).

the solution simple one. change test expression true.

select case true      case (activecell.value "*string*")         activecell.value = "contains string"  end select

this same writing:

if (activecell.value "*string*") = true activecell.value = "contains string"

it's matter of personal preference whether use if...then or select...case. select...case construct due readability of code, other benefits (such ability pass each case list of expressions separated commas rather using or operator, making code more concise).


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