{quote}{login=Serge}{date=25.05.2008 09:02}{thema=}{post}последняя цифра для трезначного числа:  
=ПСТР(A4;3;1)  
целиком формула:  
=ЕСЛИ(ПСТР(A4;3;1)="3";"Нашли тройку в конце числа";"")  
 
смотри пример в файле.{/post}{/quote}  
не это знаем, нужно в макросе. Короче замута с кнопочкой, там где private sub есть. ПСТР нужно только как там будет оформляться

{quote}{login=Лузер™}{date=25.05.2008 10:44}{thema=}{post}Строго говоря для чисел надо использовать числовые функции  
=ЕСЛИ(ОСТАТ(ОСТАТ(A1;100);10)=3;"Нашли";"Ненашли")  
Если надо в VBA  
If (([A1] Mod 100) Mod 10) = 3 Then MsgBox "Нашли"
Если очень хочется текстовые фунции, то в VBA аналог ПСТР - Mid{/post}{/quote}  
Спасибо, первое работает про if, а вот на mid ругается, послал меня этот VBA  
Приведу данный пример:  
Private Sub CommandButton1_Click()  
Dim a As Integer, m As Integer, b As Integer  
for a=100 to 300  
If ((a Mod 100) mod 10) = 3 Then  
MsgBox a  
End If  
Next  
End Sub  
А вот пример такой же тока с неизвестной  
Private Sub CommandButton1_Click()  
Dim a As Integer, m As Integer, b As Integer  
m = InputBox("Write")  
For a = 1 To 200  
If (a Mod 10) = m Then  
MsgBox a  
End If  
Next  
End Sub