ExcelマクロVBAサンプル集 | 素数を求めるマクロ | Excelマクロの実用サンプル、エクセルVBA集と解説



最終更新日:2013-09-25

素数を求めるマクロ


素数とは、1 と自分自身以外に正の約数を持たない、1でない自然数のことです、

この素数を求めて、シートに出力するマクロになります、

特に何かに使えると言う事もないので、

PCの計算能力って、どの程度なのかを実感してみるくらいの事でしょうか。


Sub 素数を求める()
  Dim i As Long
  Dim j As Long
  Dim m As Long
  Dim p As Long
  Dim flg As Boolean
  i = 1
  j = 1
  p = 2
  Do
    flg = False
    For m = 2 To Int(Sqr(p))
      If p Mod m = 0 Then
        flg = True
        Exit For
      End If
    Next
    If flg = False Then
      Cells(i, j) = p
      i = i + 1
      If i > Rows.Count Then
        i = 1
        j = j + 1
      End If
    End If
    p = p + 1
  Loop
End Sub


素数の求め方については、別途調べて頂きたいのですが、

簡単に説明すると、

2からその数までの整数で割り切れるかどうか・・・

割り切れる数がある場合は素数ではなく、

割り切れる数がない場合に素数となります。

ただし、実際には、

2からその数まで確認する必要がなく、

その数の平方根まで確認すれば良い事になります。

これをマクロでかいたものが上記になります。


A列から出力し、最終列までいったら、次の列に進みます。

ここでは、Longをつかっているので、

pが2,147,483,647を超えた時点で型エラーがせ発生するはずです。

でもね私のPCでは、時間がかかりすぎて、そこまで確認できていません。

pが億の単位で諦めました。

数が大きくなるに従い、処理時間がかかるはずなので、

そこから、20億までは、まだまだかかりそうなので中断しました。

PCって、案外大したことないんですよね。




同じテーマ「ExcelマクロVBAサンプル集」の記事

入力規則のリスト入力を確認する
配色を使用したカラー設定を固定カラーに再設定
指定セルに名前定義されているか判定する
Excel2003(xls)を2007以降(xlsx,xlsm)に変換する(HasVBProject)
ハイパーリンクからファイルのフルパスを取得する
ボタンのテキスト名のシートへ移動(Application.Caller)
Excelの表をPowerPointへ図として貼り付け

新着記事 ・・・新着記事一覧を見る

SUMIFの間違いによるパフォーマンスの低下について|エクセル関数超技(6月17日)
条件式のいろいろな書き方:TrueとFalseの判定とは|ExcelマクロVBA技術解説(6月15日)
空白セルを正しく判定する方法2|ExcelマクロVBA技術解説(5月6日)
フルパスをディレクトリ、ファイル名、拡張子に分ける|ExcelマクロVBA技術解説(4月15日)
テキストボックスの各種イベント|Excelユーザーフォーム入門(4月9日)
フォルダ(サブフォルダも全て)削除する、Optionでファイルのみ削除|ExcelマクロVBAサンプル集(4月4日)
最後の空白(や指定文字)以降の文字を取り出す|エクセル関数超技(3月26日)
先頭の数値、最後の数値を取り出す|エクセル関数超技(3月26日)
Excelファイルを開かずにシート名をチェック|ExcelマクロVBAサンプル集(3月23日)
数式の参照しているセルを取得する|ExcelマクロVBAサンプル集(3月18日)

アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|ExcelマクロVBA入門
2.RangeとCellsの使い方|ExcelマクロVBA入門
3.Range以外の指定方法(Cells,Rows,Columns)|ExcelマクロVBA入門
4.変数とデータ型(Dim)|ExcelマクロVBA入門
5.セルのコピー&値の貼り付け(PasteSpecial)|ExcelマクロVBA入門
6.定数と型宣言文字(Const)|ExcelマクロVBA入門
7.徹底解説(VLOOKUP,MATCH,INDEX,OFFSET)|エクセル関数超技
8.マクロって何?VBAって何?|ExcelマクロVBA入門
9.CSVの読み込み方法|ExcelマクロVBAサンプル集
10.ひらがな⇔カタカナの変換|エクセル基本操作



  • >
  • >
  • >
  • 素数を求めるマクロ

  • このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


    記述には細心の注意をしたつもりですが、
    間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
    なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。

    ↑ PAGE TOP