Select Case Operators

Question

0.00/5 (No votes)

See more:

I'm using MS Office 2003 {VBA Excel}

I was wondering if there is a way to use the AND operator in SELECT CASE? I've tried it as is {below} but it's not working like that. If there isn't a way to do this I can use the IF...ELSEIF...ELSE, but I'd rather use SELECT CASE.

Select Case bMain
   Case Is = "Cat" And optLect.Value = True
      chkWkTemp.Value = True
   Case Is = "Lec" And optCat.Value = True
      chkWkTemp.Value = True
   Case Else
      chkWkTemp.Value = False
End Select

It just doesn't work like that and I haven't found any way of making sure BOTH statements in the first 2 CASEs are true, which is what I need for this.

Thanks in advance!

Peace to you and yours,
Matthew DraGon Stohler

Posted 25-Nov-11 7:15am

BlueDragonFire

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Accepted Answer · 2011-11-25T09:55:00

You can't use something like this: "Lec" And False in the Select ... Case ... End Select statement.

The correct statement is:

VB

Select Case optLect.Value
    Case True
        Select Case bMain
           Case Is = "Cat", "Lec" 
              chkWkTemp.Value = True
           Case Else
              chkWkTemp.Value = False
        End Select
    Case False
       '?
End Select

or

VB

Dim myVal as String

myVal = bMain & Cstr(optLect.Value)

Select Case myVal
    Case "LecTrue", "CatTrue"
        chkWkTemp.Value = True
    Case "LecFalse", "CatFalse"
        chkWkTemp.Value = False
End Select