select case и or

[Bape}l{ka]

добрый день, форумчане)))

excel2003

подскажите пожалуйста, как по-другому при использовании "Select case" можно записать "Case" с условием "Or", по типу:

Select case sh.Cells(1, Colm).Value
Case "Q6_*" or "Q9_*"
   'код
Case "Q7_*"
   'код
Case Else 
   'код...
End Select

у меня такая конструкция не работает, ругается на "Or" =(

[EugeneS]

Case "Q6", "Q9"

[Казанский]

Bape}l{ka,
С помощью звездочки Вы хотите получить условие "Начинается с"? Если да, то так:

Select case Left$(sh.Cells(1, Colm).Value, 3)
Case "Q6_", "Q9_"
   'и т.д.

[Bape}l{ka]

EugeneS, Казанский
спасибо, странно, я так пробовала, н6о у меня не получалось, хотя сейчас все работает)))

Казанский, а Вам отдельное большое спасибо, вы прямо предвосхитили мой вопрос!))) как раз сидела мучилась =ь

поясните пожалуйста, что значит "3" после Value ?

[Bape}l{ka]

аха, это наверное значит, см. после третьего знака?

а если Case "Q6_", "Q19_", можно так оставить, ну т.е. "3" ??

[Hugo121]

Это "три символа слева"
Раз так, то тогда может быть

Select case Split(sh.Cells(1, Colm).Value,"_")(0)
Case "Q6", "Q19"

Тут берём первую часть из нарезки строки по "_".

[Bape}l{ka]

Hugo121
хм, да, наверно это даже удобнее, только ничего там не заглючит, если этих символов "_" несколько, ну например "Q19_вар_фыкр_1" ?? =т

[Hugo121]

Ну мы же берём первую часть.
И если в строке не будет "_", то вернёт всю строку, и она конечно сравнения не пройдёт.
Если вдруг строка будет "_Q19_вар_фыкр_1", то в выборку попадёт пустая строка.

Ещё вариант - определить через Instr() положение символа "_" и брать слева символы до этой позиции.

[Bape}l{ka]

Hugo121, спасибо за подсказку)))