Gyak3

Sub foo()
    Dim i As Integer, darab As Integer
    darab = 0
    For i = 100 To 999
        If i <= 800 And i < 900 And i Mod 10 <> 7 Then
            darab = darab + 1
        End If
    Next i
    Debug.Print (darab)
End Sub