Вставить в конструкцию if...else логический оператор or/and

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставить в конструкцию if...else логический оператор or/and (Макросы/Sub)

vider

Дата: Суббота, 16.01.2016, 17:17 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2010

Необходимо в цикле пройти по листу и скрыть строки не соответствующие условию.
Условие отбора строк формируется динамически на основании данных другого листа.
[vba]

Код

Application.ScreenUpdating = False
For i = lFirstRow + 1 To lLastRow
If Not ((ActiveSheet.Cells(i, 1).Value Like F1Criteria1) & F1Operator & (ActiveSheet.Cells(i, 1).Value Like F1Criteria2)) Then
ActiveSheet.Rows(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True

[/vba]
Переменная F1Operator содержит логический оператор сравнения (OR/AND).
Если явно указать оператор в конструкции if цикл отрабатывает корректно, при вставке переменной F1Operator в конструкцию if вываливается ошибка.
Подскажите как программно вставить оператор сравнения в конструкцию if или может есть другое решение данного вопроса.
PS: файл примера не прикрепил тк кода ничтожно мало.

Ответить

Udik

Дата: Суббота, 16.01.2016, 17:25 | Сообщение № 2

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

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

Сообщений: 1588

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

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

Excel 2016 х 64

Э, а Вы не пробовали вместо амперсанда AND использовать? Это если надо получить одновременную проверку по 3 условиям.

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

Сообщение отредактировал Udik - Суббота, 16.01.2016, 17:29

Ответить

vider

Дата: Суббота, 16.01.2016, 17:36 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2010

Цитата Udik, 16.01.2016 в 17:25, в сообщении № 2

а Вы не пробовали вместо амперсанда AND использовать?

Если явно прописать AND или OR вместо & F1Operator & все прекрасно работает.

Ответить

Udik

Дата: Суббота, 16.01.2016, 17:41 | Сообщение № 4

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

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

Сообщений: 1588

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

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

Excel 2016 х 64

Цитата vider, 16.01.2016 в 17:36, в сообщении № 3

все прекрасно работает

Какая неожиданность

Если учесть, что амперсанд предназначен для соединения текстовых строк, и преобразует к тексту данные при использовании, то просто теряюсь в догадках

соответственно у вас получиться что-то типа ложьложьложь или 000

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

Сообщение отредактировал Udik - Суббота, 16.01.2016, 17:45

Ответить

_Boroda_

Дата: Суббота, 16.01.2016, 18:20 | Сообщение № 5

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Цитата vider, 16.01.2016 в 17:17, в сообщении № 1

Переменная F1Operator содержит логический оператор сравнения (OR/AND)

А если не OR/AND туда засунуть, а + (плюс) и * (умножить)?

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

vider

Дата: Суббота, 16.01.2016, 18:31 | Сообщение № 6

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

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2010

_Boroda_, Ничего не меняется, через переменную ошибка вываливается, на прямую в конструкцию "+" ставлю нормально

Ответить

_Boroda_

Дата: Суббота, 16.01.2016, 18:50 | Сообщение № 7

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Да, все правильно. Так у Вас получается не выражение, а текстовая строка.
Посмотрите код, так, надеюсь, понятно будет. Пробегитесь по нему через F8 и посмотрите на значения переменных. В А5 на листе какое-то значение. Например, q
[vba]

Код

    F1Operator = "+"
    i = 5
    F1Criteria1 = "dqd"
    F1Criteria2 = "fqg"
    ff1_ = ActiveSheet.Cells(i, 1).Value Like F1Criteria1
    ff2_ = ActiveSheet.Cells(i, 1).Value Like F1Criteria2
    ff_ = ff1_ & F1Operator & ff2_
    f_ = Evaluate(ff_)
    If Not f_ Then
        ActiveSheet.Rows(i).Hidden = True
    End If

[/vba]

Ответить

vider

Дата: Суббота, 16.01.2016, 20:47 | Сообщение № 8

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

Ранг: Прохожий

Сообщений: 6

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

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

Excel 2010

_Boroda_, Спасибо, заработало с «+», с «OR/AND» так и не получилось только строку
[vba]

Код

If Not f_ Then
заменил на
If Not f_ = 1 Then

[/vba]
а то скрывало все строки

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставить в конструкцию if...else логический оператор or/and (Макросы/Sub)

Страница 1 из 1
1