привет))) подскажите как прописать условие проверить ячейку A1 содержит ли она любое из значений R1;RW1;RW2;RW1R1;RW2R1 чтобы это было компактно. помогите, пжлст)
Возможно плохо сформулировал вопрос: нужно чтобы яч А1 проверилась на факт нахождения одно из значений, это пример в самом макросе будет около десятка вариантов, и не хотелось бы так громоздить кучу OR.
Код
Sub srav()
If Cells(1, 1) = "R1" Or Cells(1, 1) = "RW1" Or Cells(1, 1) = "RW1R1" Then
Debug.Print "yes"
Else: Debug.Print "noy"
End If
End Sub
Option Explicit
Sub jjj()
Dim arr()
arr = VBA.Array("R1", "RW1", "RW1R1")
Debug.Print jjjValInArr(Cells(1, 1), arr)
End Sub
Function jjjValInArr(ByVal varVal As Variant, arr()) As Boolean
jjjValInArr = False
Dim varItem As Variant
For Each varItem In arr
If StrComp(varVal, varItem, vbTextCompare) = 0 Then jjjValInArr = True: Exit Function
Next varItem
End Function
Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori