ばんわあー(￣▽￣)

どーも最近本生活リズムが狂っていて、本調子が出てないみたいですｗ

ので、釣りしながら、裏で気分転換に、指定した範囲の「素数」をExcelシートに出力するExcelマクロプログラムを作ってました(￣▽￣)

素数：2以上の１と自分自身でしか割ることができない数。

あ、興味のある方、パソコンのベンチマークテストで使えると思いますので、よかったらどーぞ。

プログラムソースはこちらです。

Sub 素数()
Dim  a   As Long

ActiveSheet.Cells.Select
Selection.ClearContents

i = 1: j = 1
a = InputBox("算出範囲を入力")
For n = 2 To a
    対象外 = 0
    m = Int(Sqr(n))
    For k = 2 To m
        If  n Mod k = 0 Then
            対象外 = 1
            Exit For
        End If
    Next k
    If  対象外 = 0 Then
        ActiveSheet.Cells(i, j) = n
        i = i + 1
        If  i = 26 Then
            i = 1
            j = j + 1
        End If
    End If
Next n

End Sub

って、おめ、これ

マニアックすぎて、誰もわかんねーって（苦笑）

なんか裏でもっと怪しいことしてそうｗ

紙と鉛筆があれば、満足して１日中遊んでるよね（笑）

ぢゃかましーわ(; ･`д･´)

・・・・・・・・・・・・

失礼しましたm(_ _)m

そいえば、釣ってるうち、みっそん１個完了して、臨時収入ゲットしました(￣▽￣)

ということで、今回は不作内容につき適当にスルーしてください(^^;)

次回完全復帰に向け、捏造ネタ模索中です(￣▽￣)ｖ

日曜日もよろしくおねがしますm(_ _)m