Проверка текста по маске

[jar76]

Подскажите пожалуйста, как проверить значение ячейки по нескольким маскам?
Этот код
Function MaskCompare(txt As String, mask As String, CaseSensitive As Boolean)
If Not CaseSensitive Then
txt = UCase(txt)
mask = UCase(mask)
End If

If txt Like mask Then
MaskCompare = True
Else
MaskCompare = False
End If
End Function
после второй проверки через оператор "ИЛИ" после 3-й проверки выдает #ЗНАЧ

[DiemonStar]

попробуйте так:

Function MaskCompare(Txt As String, Masks() As String, Optional CaseSensitive As Boolean = False) As Boolean
 If CaseSensitive Then
   Text = Txt
 Else
   Text = UCase(Txt)
 End If
 MaskCompare = False
 For Each Msk In Masks
   If (Txt Like Msk) Or ((Txt Like UCase(Msk)) And Not CaseSensitive) Then
     MaskCompare = True
     Exit For
   End If
 Next Msk
End Function

[Казанский]

=ИЛИ(MaskCompare(A1;"Маска1";0);MaskCompare(A1;"Маска2";0);MaskCompare(A1;"Маска3";0))

Лучше было бы функцию написать так, чтобы она принимала массив масок.

[jar76]

новый код вообще перестает работать
желательно как-то упростить формулу:
=ИЛИ(MaskCompare(B1450;$F$1439;0);( MaskCompare(B1450;$F$1440;0);(MaskC ompare(B1450;$F$1441;0);(MaskCompar e(B1450;$F$1442;0);(MaskCompare(B14 50;$F$1443;0);(MaskCompare(B1450;$F $1444;0);(MaskCompare(B1450;$F$1445 ;0);(MaskCompare(B1450;$F$1446;0);( MaskCompare(B1450;$F$1447;0);(MaskC ompare(B1450;$F$1448;0);(MaskCompar e(B1450;$F$1449;0);(MaskCompare(B14 50;$F$1450;0);(MaskCompare(B1450;$F $1451;0);(MaskCompare(B1450;$F$1452 ;0);(MaskCompare(B1450;$F$1453;0);( MaskCompare(B1450;$F$1454;0);(MaskC ompare(B1450;$F$1455;0))))))))))))) )))))

первый код почему-то работает только до второй маски

[DiemonStar]

новый код вообще перестает работать

Ну так сразу писать нужно, как вы планируете это использовать:

Public Function MaskCompare(Txt As String, Masks As Range, Optional CaseSensitive As Boolean = False) As Boolean
 If CaseSensitive Then
   Text = Txt
 Else
   Text = UCase(Txt)
 End If
 MaskCompare = False
 For Each Msk In Masks.Columns(1).Cells
   If (Txt Like Msk) Or ((Txt Like UCase(Msk)) And Not CaseSensitive) Then
     MaskCompare = True
     Exit For
   End If
 Next Msk
End Function

вот этот вариант должен работать в формулах (не проверял)

upd.
проверил - работает нормально

[jar76]

спасибо DimonStar все работает,
простите за наглость как сделать что бы вместо: =ИЛИ(MaskCompare(B1440;$F$1439;0);M askCompare(B1440;$F$1440;0);MaskCom pare(B1440;$F$1441;0);MaskCompare.. ...

сразу была ссылка на диапазон значений маски?

[DiemonStar]

Сообщение от jar76

спасибо DimonStar все работает,
простите за наглость как сделать что бы вместо: =ИЛИ(MaskCompare(B1440;$F$1439;0);M askCompare(B1440;$F$1440;0);MaskCom pare(B1440;$F$1441;0);MaskCompare.. ...

сразу была ссылка на диапазон значений маски?

я делаю так:

=MaskCompare(A3;C1:C5)

где C1:C5 - диапазон содержащий маски

[jar76]

супер, огромное спасибо!

[DiemonStar]

Ошибку нашёл у себя:

Public Function MaskCompare(Txt As String, Masks As Range, Optional CaseSensitive As Boolean = False) As Boolean
 If CaseSensitive Then
   Text = Txt
 Else
   Text = UCase(Txt)
 End If
 MaskCompare = False
 For Each Msk In Masks.Columns(1).Cells
   If (Text Like Msk) Or ((Text Like UCase(Msk)) And Not CaseSensitive) Then
     MaskCompare = True
     Exit For
   End If
 Next Msk
End Function

без правки неверно работает сравнение по регистрам.

[staniiislav]

Сообщение от DiemonStar

Ошибку нашёл у себя:

Public Function MaskCompare(Txt As String, Masks As Range, Optional CaseSensitive As Boolean = False) As Boolean
 If CaseSensitive Then
   Text = Txt
 Else
   Text = UCase(Txt)
 End If
 MaskCompare = False
 For Each Msk In Masks.Columns(1).Cells
   If (Text Like Msk) Or ((Text Like UCase(Msk)) And Not CaseSensitive) Then
     MaskCompare = True
     Exit For
   End If
 Next Msk
End Function

без правки неверно работает сравнение по регистрам.

а что это функция вообще делает? для чего ее можно использовать?