چاپ اعداد اول قبلی

[okami]

سلام و خسته نباشید
این کد برای تشخیص عدد اول هست ، حالا من یک کد میخوام که هد عددی بهش داده بشه تمامی اعداد قبل اون رو چاپ بکنه (مثلا بدی 7 چاپ کنه 5 3 2 ) امکانش هست راهنمایی بفرماید ؟

Sub prime()
n = Cells(1, 1)
m = 0
For i = 1 To n
j = n \ i
If 0 = n - i * j Then
m = m + 1
End If
Next i
If m = 2 Then
Cells(1, 2) = "yes"
Else
Cells(1, 2) = "no"
End If
End Sub

[generalsamad]

با سلام
این ماژول رو ایجاد کنید

Function IsPrime(Num As Single) As Boolean
     Dim i As Long
     If Num < 2 Or (Num <> 2 And Num Mod 2 = 0) _
      Or Num <> Int(Num) Then Exit Function
     For i = 3 To Sqr(Num) Step 2
         If Num Mod i = 0 Then Exit Function
     Next
     IsPrime = True
End Function 

سپس از این کد استفاده کنید

Private Sub CommandButton1_Click()
Dim Prime As Single, i As Single
    Prime = Application.InputBox(Prompt:="Enter and integer", Type:=1)
    k = 1
    For i = 1 To Prime
        If IsPrime(i) Then
            Cells(k, 1) = i
            k = k + 1
        End If
    Next
End Sub