Использование приблизительного значения в Case

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Использование приблизительного значения в Case (Макросы/Sub)

ant6729

Дата: Суббота, 02.09.2017, 16:08 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

Всем добрый день!

Возможно ли использование такой записи?:

[vba]

Код

Sub авап()

Select Case Cells(1, 5).Value
Case Like "*Вася*"
Cells(1, 6).Value = 1
Case Like "*Петя*"
Cells(1, 6).Value = 1
End Select

End Sub

[/vba]

VBA ругается на Like , хочет Is

А мне нужно, чтобы VBA анализировал приблизительное значение
Может, там Вася34 или Вася длыоврпад

Подскажите, пожалуйста, как обойти эти моменты....???

Сообщение отредактировал ant6729 - Суббота, 02.09.2017, 16:33

Ответить

RAN

Дата: Суббота, 02.09.2017, 16:36 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

[vba]

Код

Select Case True
Case Cells(1, 5).Value Like "*Вася*"
Cells(1, 6).Value = 1
Case Cells(1, 5).Value Like "*Петя*"
Cells(1, 6).Value = 1
Case Else
MsgBox "Учи VBA!"
End Select

[/vba]

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Суббота, 02.09.2017, 16:37

Ответить

iMrTidy

Дата: Суббота, 02.09.2017, 16:39 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 85

Репутация: 14 ±

Замечаний: 0% ±

NO

ant6729,

[vba]

Код

Option Explicit

Sub Test()

Dim val As String

val = Cells(1, 5).Value

Select Case True
    Case val Like "*Вася*"
        Cells(1, 6).Value = 1
    Case val Like "*Петя*"
        Cells(1, 6).Value = 1
    Case Else
        MsgBox "Такого значения нет"
End Select

End Sub

[/vba]

Вышенаписанное мной не является истиной, но лишь моя точка зрения, которая скорее всего ошибочна.

Сообщение отредактировал iMrTidy - Суббота, 02.09.2017, 16:39

Ответить

Udik

Дата: Суббота, 02.09.2017, 16:39 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 1588

Репутация: 192 ±

Замечаний: 0% ±

Excel 2016 х 64

Используйте вместо Case оператор If...ElseIF...

вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com

Ответить

ant6729

Дата: Суббота, 02.09.2017, 17:05 | Сообщение № 5

Группа: Проверенные

Ранг: Ветеран

Сообщений: 533

Репутация: 2 ±

Замечаний: 40% ±

Excel 2010

RAN, все время меня склоняете...Где ж мне VBA учить, если не тут...
Вокенбаха прочитал - ничего не понял...приходится на практике добирать...
А сколько дома сам себе тот или иной процесс по автоматизации собственных отчетов пишешь.. но иногда залетаешь...на нюансы...
СПАСИБО))