素因数分解

ついでに素因数分解するプログラムも公開します。
これは素数を探すプログラムで"素数じゃない"と言われた数が、どういう数に分解されるのか確かめたくて作ったプログラムです。

Sub Prime_S()

    Cells.Select
    Selection.ClearContents
    Selection.Interior.ColorIndex = xlNone

    Dim lngN As Long
    lngN = 100  'この値を素因数分解する

    Range("A1").Select
    ActiveCell.Value = lngN
    ActiveCell.Offset(1, 0).Select

    Dim i As Long

    Do Until lngN = 1
        For i = 2 To lngN
            If lngN Mod i = 0 Then
            ActiveCell.Value = i
            ActiveCell.Offset(0, 1).Select
            lngN = lngN / i
            Exit For
            End If
        Next
    Loop

End Sub

このプログラムでも前のものと同様にlngNの値*1を変えて使います。

しかし…、仕事中に何を作ってるんですかね私はw

*1:このプログラムでは2147483646まで実行できます。2147483647は何故かうまく動きません。