select case vba



Vba case пример

Автор Александр Златенков задал вопрос в разделе Другие языки и технологии

VBA Excel. Работает ли Select case вместе с Like? Хучу сортировать данные в зависимости от части названия книги. Книга* и получил лучший ответ

Ответ от ...[гуру]
Напрямую так - нет. Можно сделать только с < > = и сочетаниями
н-р
Dim s as string
s = "123"
select case s
case is > "345": MsgBox "1"
case is < "345": MsgBox "2"
end select
Много хотите от несчастного VBA =)
Но можно перечислить варианты в массиве, сделать функцию, которая возвращает номер элемента в массиве и от него "кейзить" =)
Типа этого (набросок) , за 100% правильность не ручаюсь т. к. пишу без VBA,
но идея понятна:
Function MyCase(s As String) As Integer
Dim arr
Dim i As Integer
arr = Array("книгарасходов*", "книгадоходов*")
For i = 0 To UBound(arr)
If s Like arr(i) Then MyCase = i: Exit Function
Next
End Function
Sub t()
Dim s As String
s = "книгарасходов1"
Select Case MyCase(s)
Case 0: MsgBox "Расходы"
Case 1: MsgBox "Доходы"
End Select
End Sub

Ответ от Григорий Трущ[активный]
Хз)

Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: VBA Excel. Работает ли Select case вместе с Like? Хучу сортировать данные в зависимости от части названия книги. Книга*
спросили в User am User am 0
VBA Excel Обработка ошибки
из справки VBA:




On Error
Statement

Enables an error-handling routine
подробнее...

ПОМОГИТЕ!!!!Эконоика( ВВП
А что у сокласников не спросишь?

Ну давай САМ! !

Основные факторы
подробнее...

как сбросить ошибку SRS на Kia? Самому=) с помощью скребки=)
!!!ВНИМАНИЕ! ВСЕ ДЕЙСТВИЯ ПРОВОДИТЬ ПРИ ВЫКЛЮЧЕННОМ ЗАЖИГАНИИ!! !
Для проведения
подробнее...
спросили в Другое 1118 год
Что вы знаете об ордене Тамплиеров?
Уникальным продуктом крестовых походов стали духовные рыцарские ордены - сословные организации
подробнее...

вопрос по "множественному" ЕСЛИ в логических формулах Excel 2007 и 2010
Ваш файл 2003 Эксель открыть не получается.
Проблема вложенных функций ЕСЛИ в 2003 еще острее.
подробнее...
Ответ от 3 ответа[гуру]
Привет! Вот еще темы с похожими вопросами:
спросили в Создание 479 год
Подскажите программу для создания субтитров
Aegisub 1.10 beta / Aegisub 2.1.6 Preview 2494
Одна из самых удобных программ для создания и
подробнее...

Для чего нужен Visual Basic и что на нём пишут, стоит ли его изучать?
Visual Basic встроен в Microsoft Office. Я его использовал при разработке баз данных в среде
подробнее...
спросили в Начинка
Как начать бизнес с Китайскими поставщиками? Хочу продавать вещи, копии брендовые в интернете.
для начала начните учить китайский или английский, чтобы они вас не
подробнее...
 

Ответить на вопрос:

Имя*

E-mail:*

Текст ответа:*
Проверочный код(введите 22):*