2から100までの自然数について素数であるか判定したいです。シートのA列には自然数の値、B列には判定

2から100までの自然数について素数であるか判定したいです。シートのA列には自然数の値、B列には判定結果(TRUE,FALSE)をVBAのスクリプトに出力したいです。

No.2 回答者： tatsumaru77 回答日時： 2022/11/17 11:03

以下のマクロを標準モジュールに登録してください。

Option Explicit

Sub 素数判定()
Dim i As Long
For i = 2 To 100
Cells(i, 1).Value = i
Cells(i, 2).Value = isPrime(i)
Next
End Sub
Private Function isPrime(ByVal num As Long) As Boolean
Dim i As Long
isPrime = False
For i = 2 To num - 1
If num Mod i = 0 Then Exit Function
Next
isPrime = True
End Function

No.1 回答者： ShowMeHow 回答日時： 2022/11/17 10:37

https://ja.wikipedia.org/wiki/%E3%82%A8%E3%83%A9 …

エラトステネスの篩を作って、素数リストを作るのが手っ取り早いです。