Excelでその数が素数であるかどうかを確認するにはどうすればよいですか？

ご存知のように、素数は、XNUMXつとそれ自体のXNUMXつの異なる自然数除数のみを含む自然数です。 ワークシートに数字のリストがある場合、その数字が素数であるかどうかをどのように確認できますか？

配列数式を使用して、数値が素数であるかどうかを確認します

ユーザー定義関数を使用して、数値が素数であるかどうかを確認します

配列数式を使用して、数値が素数であるかどうかを確認します

次の式は、素数であるかどうかを識別するのに役立ちます。次のようにしてください。

1。 次の数式を空白のセルに入力します–たとえばデータの横にあるC2：

=IF(A2=2,"Prime",IF(AND(MOD(A2,ROW(INDIRECT("2:"&ROUNDUP(SQRT(A2),0))))<>0),"Prime","Not Prime")) (A2 セルには確認したい番号が含まれています）、を押します Ctrl + Shift + Enter キーを一緒に押すと、結果が得られます。数値が素数の場合はセルに「素数」と表示され、そうでない場合は「素数ではない」と表示されます。スクリーンショットを参照してください。

2。 次に、セルC2を選択し、この数式を適用するセルまで塗りつぶしハンドルをドラッグすると、が素数であるかどうかに関係なく、すべての数値が識別されます。 スクリーンショットを参照してください：

ユーザー定義関数を使用して、数値が素数であるかどうかを確認します

以下 ユーザー定義関数 また、素数かどうかを確認するのに役立ちます。次のようにしてください。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

VBAコード：数値が素数であるかどうかを確認します。

Function CheckPrime(Numb As Single) As Boolean
'Updateby Extendoffice
    Dim X As Long
    If Numb < 2 Or (Numb <> 2 And Numb Mod 2 = 0) _
     Or Numb <> Int(Numb) Then Exit Function
    For X = 3 To Sqr(Numb) Step 2
        If Numb Mod X = 0 Then Exit Function
    Next
    CheckPrime = True
End Function

3。 次に、このコードを保存して閉じ、ワークシートに戻って、次の数式を入力します。 = checkprime（A2） 数値リストの横の空白のセルに入力し、この数式を含めるセルまで塗りつぶしハンドルをドラッグします。数値が素数の場合はTRUEと表示され、そうでない場合はFALSEと表示されます。スクリーンショットを参照してください。