コンテンツ

• 説明書
• どうやって
• 必要なもの

素数には約数として1とその数だけがあります。たとえば、13は約数1と13しかないので素数です。すべての数は素数の積として書くことができます。素数を見つけるための多くのツールがあり、それには意思決定の仕組みも含まれます。 Excel 2007にマクロを簡単に追加して、意思決定プロセスの一部を置き換えることができます。マクロは、自分のボタンでExcelをカスタマイズできるツールです。この場合は、因子を計算するボタンです。マクロを追加したら、数値を入力するだけでExcelが係数を計算します。

説明書

Excelを使って素因数と数を見つける （Fotolia.comからのPaul Hamptonによる番号画像）

1. すべてのブックを閉じて、新しいExcelワークシートを作成します。 "Alt + F11"を押して基本的なビジュアルエディタを起動してください。

2. 画面左上のVBAProjectメニューでワークブックをダブルクリックしてワークシートを開きます。

3. 次のコードを空のブックにカットアンドペーストします。

   Sub GetFactors（）整数としてのディムカウント単数としてのNumToFactor '整数制限<32768の範囲内の単一ディムおよび単一ディムとしてのディム係数シングルとしてのIntCheck

   Count = 0 NumToFactor = _ Application.InputBox（プロンプト：= "整数型"、タイプ：= 1） '0より大きい整数の入力を強制します。 0です - キャンセルを許可します。 ElseIf NumToFactor <1その後、MsgBox "0より大きい整数を入力してください。" ElseIf IntCheck> 0次にMsgBox "整数を入力してください - 小数点なし"。 0より大きい整数の入力までループします。NumToFactor <= 0またはIntCheck> 0の間にループします。y = 1の場合To NumToFactor 'チェックされている整数を示すメッセージをステータスバーに入れます。 Application.StatusBar = "Checking"＆y Factor = NumToFactor Modおよび 'Modで除算した結果に余りがないかどうか、つまり因数がないかどうかを判断します。 Factor = 0の場合 'アクティブセルで始まる列に係数を入力します。 ActiveCell.Offset（Count、0）.Value = y '次の値にオフセットする量を増やします。 Count = Count + 1 [次の状態に戻す]ステータスバーを終了します。Application.StatusBar = "Ready" End Sub

   
   

   Sub GetPrime（）整数としての薄暗いカウント単数としての薄暗いBegNum '整数の制限は<32768になります薄暗いEndNumとしての単一の薄暗いとしての単一の薄暗いとしてのフラグ単色としてのIntCheckとしてのカウント= 0

   Do BegNum = _ Application.InputBox（Prompt：= "Type開始番号。"、Type：= 1） '0より大きい整数の入力を強制します。IntCheck = BegNum - Int（BegNum）BegNum = 0の場合、Subを終了'キャンセル0 - キャンセルを許可します。 ElseIf BegNum <1その後、MsgBox "0より大きい整数を入力してください。" ElseIf IntCheck> 0次にMsgBox "整数を入力してください - 小数点なし"。 0より大きい整数を入力するまでループを終了します。BegNum <= 0またはIntCheck> 0の間にループします。

   EndNum = _ Application.InputBox（Prompt：= "タイプ終了番号"、Type：= 1） '0より大きい整数を強制的に入力します。IntCheck = EndNum - Int（EndNum）EndNum = 0の場合、次にSubを終了します'キャンセル0 - キャンセルを許可します。 "ElseIf EndNum <BegNum Then MsgBox"より大きな整数を入力してください。 "＆BegNum ElseIf EndNum <1その後MsgBox"ゼロより大きい整数を入力してください。 ElseIf IntCheck> 0次にMsgBox "整数を入力してください - 小数点なし"。 0より大きい整数が入力されるまでループを終了します。EndNum <BegNumまたはEndNum <= 0またはIntCheck> 0の間にループします。

   ｙ ＝ ＢｅｇＮｕｍ Ｔｏ ＥｎｄＮｕｍフラグ＝ ０ ｚ ＝ １ Ｕｎｔｉｌｌｅフラグ＝ １またはｚ ＝ ｙ ＋ １ '各ループ内の整数および除数を示すメッセージをステータスバーに入れる。 Application.StatusBar = y＆ "/"＆z Prime = y Mod z Prime = 0かつz <> y And z <> 1ならばflag = 1ならz = z + 1ならばループ

   
   

   flag = 0の場合 'アクティブセルで始まる列に係数を入力します。 ActiveCell.Offset（Count、0）.Value = y '次の値にオフセットする量を増やします。 Count = Count + 1 [次の場合は終了]と[ステータスバーを復元] Application.StatusBar = "Ready" End Sub

4. [ファイル]をクリックし、[閉じてMicrosoft Excelに戻る]を選択します。

5. ExcelでMicrosoft Officeボタンをクリックします。 [Excelのオプション]、[カスタマイズ]の順にクリックし、[選択]コマンドで[マクロ]を選択します。

6. 一覧で、 "ThisWorkbook.GetFactors"マクロをクリックし、[追加]をクリックします。 [OK]をクリックしてください。この操作により、マクロはExcelの左上にあるクイックアクセスツールバーに追加されます。

7. データを表示したいセルを選択します。

8. クイックアクセスツールバーのマクロボタンをクリックします。素因数を求める数を入力します。 Excelは、選択された列にすべての要因（素数と従兄弟を含む）の一覧を返します。たとえば、30の係数は1、2、3、5、6、10、15および30です。

9. 表示されたリストから素数を選択してください。リストの素数は2、3、5です。これらがあなたの与えられた数の素因数です。

どうやって

• Excelがあなたに代わって部門を計算するようにしてください。手動で計算するのではなく、係数を返すセルに関連する式を追加します。

必要なもの

• Excel 2007