If InStr(LCase(iFName), "машинос") Then Range("A7").Font.ColorIndex = 2: Range("A7").Select: GoTo Calll
If InStr(LCase(iFName), "лурги") Then Range("A8").Font.ColorIndex = 2: Range("A8").Select: GoTo Calll
If InStr(LCase(iFName), "химия") Then Range("A9").Font.ColorIndex = 2: Range("A9").Select: GoTo Calll
If InStr(LCase(iFName), "персона") Then Range("A10").Font.ColorIndex = 2: Range("A10").Select: GoTo Calll
Можно ли в переключатель Switch вставлять серию инструкций?
В данный момент использую такую некрасивую конструкцию:
Можно ли это все разместить в Switch? Он вроде быстрее работает - сразу переходит к нужному варианту.
Спасибо.
P.S. Просьба на Goto пока внимания не обращать :o
Код:
Можно ли это все разместить в Switch? Он вроде быстрее работает - сразу переходит к нужному варианту.
Спасибо.
P.S. Просьба на Goto пока внимания не обращать :o
Могу предложить такой вариант:
При условии, что IFName=Public
Код:
Sub ProcessIt(strTest, strRange)
If InStr(LCase(iFName), strTest) Then Range(strRange).Font.ColorIndex = 2: Range(strRange).Select: GoTo Calll
End Sub
ProcessIt("машинос", "A7")
ProcessIt("лурги", "A8")
ProcessIt("химия", "A9")
If InStr(LCase(iFName), strTest) Then Range(strRange).Font.ColorIndex = 2: Range(strRange).Select: GoTo Calll
End Sub
ProcessIt("машинос", "A7")
ProcessIt("лурги", "A8")
ProcessIt("химия", "A9")
При условии, что IFName=Public
Действительно, так компактнее и не давит на мою слабую психику ;)
Спасибо.
Спасибо.
Сразу не сообразил спросить. У меня мой код находится внутри Sub. Разве можно в один Sub вложить другой Sub?
Нет, нельзя. Эту процедуру надо разместить отдельно, как и другие.