برنامه عدد اول

[میثم66]

برنامه ای بنویسید که 10 عدد از اکسل خوانده اول بودن آنها را بررسی کند؟
البته من برنامه اول بودن یک عدد رو دارم ولی وقتی تعداد اعداد 10 تا میشود باید چجوری بنویسم.

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

[میثم66]

برنامه ای بنویسید که 10 عدد از اکسل خوانده اول بودن آنها را بررسی کند؟
البته من برنامه اول بودن یک عدد رو دارم ولی وقتی تعداد اعداد 10 تا میشود باید چجوری بنویسم.

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

فهمیدم باید چیکار کنم.باید اینجوری بنویسم

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