Question

Дано натуральное число определить есть ли в нем цифра a

Answer 1

Function ЕстьЦифра(ччч, ццц) 
ЕстьЦифра = False 
ццц1 = ччч Mod 10 
ччч1 = (ччч - ццц1) / 10 
If ччч1 < 10 Then 
If ччч1 = ццц Or ццц1 = ццц Then 
ЕстьЦифра = True 
End If 
Else 
If ццц1 = ццц Then 
ЕстьЦифра = True 
Else 
ЕстьЦифра = ЕстьЦифра(ччч1, ццц) 
End If 
End If 
End Function 
Sub ppp() 
число = Cells(2, 1) 
цифра = Cells(2, 2) 
If ЕстьЦифра(число, цифра) Then 
Cells(2, 3) = "ДА" 
Else 
Cells(2, 3) = "НЕТ" 
End If 
End Sub 

а вот результат: