ExcelマクロVBAサンプル集
素数を求めるマクロ

ExcelマクロVBAの実用サンプル、エクセル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って、案外大したことないんですよね。




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

WEBデータの取得方法
右クリックメニューの変更(CommandBars)
エクセルのアイコン取得(FaceID)
素数を求めるマクロ
入力規則のリスト入力を確認する
配色を使用したカラー設定を固定カラーに再設定
指定セルに名前定義されているか判定する
Excel2003(xls)を2007以降(xlsx,xlsm)に変換する(HasVBProject)
ハイパーリンクからファイルのフルパスを取得する
ボタンのテキスト名のシートへ移動(Application.Caller)
Excelの表をPowerPointへ図として貼り付け

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

エクセルの日付と時刻のまとめ|エクセル関数超技(3月6日)
Excelシートの複雑な計算式を解析するVBA|VBAサンプル集(2月18日)
VBAクラスの作り方:独自Rangeっぽいものを作ってみた|VBA技術解説(2月16日)
VBAクラスの作り方:列名のプロパティを自動作成する|VBA技術解説(2月14日)
VBAクラスの作り方:列名の入力支援と列移動対応|VBA技術解説(2月11日)
クラスを使って他ブックのイベントを補足する|VBA技術解説(2月6日)
Excelアドインの作成と登録について|VBA技術解説(2月3日)
参照設定、CreateObject、オブジェクト式の一覧|VBA技術解説(1月20日)
VBAでファイルを規定のアプリで開く方法|VBA技術解説(1月20日)
ドキュメントプロパティ(BuiltinDocumentProperties,CustomDocumentProperties)|VBA技術解説(1月19日)

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

1.最終行の取得(End,Rows.Count)|VBA入門
2.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
3.RangeとCellsの使い方|ExcelマクロVBA入門
4.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
5.変数とデータ型(Dim)|ExcelマクロVBA入門
6.マクロって何?VBAって何?|ExcelマクロVBA入門
7.とにかく書いて見よう(Sub,End Sub)|VBA入門
8.繰り返し処理(For Next)|ExcelマクロVBA入門
9.セルに文字を入れるとは(Range,Value)|VBA入門
10.ひらがな⇔カタカナの変換|エクセル基本操作



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

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


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






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

    本文下部へ