A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
以下のマクロを標準モジュールに登録してください。
Option Explicit
Sub 素数判定()
Dim i As Long
For i = 2 To 100
Cells(i, 1).Value = i
Cells(i, 2).Value = isPrime(i)
Next
End Sub
Private Function isPrime(ByVal num As Long) As Boolean
Dim i As Long
isPrime = False
For i = 2 To num - 1
If num Mod i = 0 Then Exit Function
Next
isPrime = True
End Function
No.1
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
首吊りどこ締めるの
-
彼女のことが好きすぎて彼女の...
-
勃起する時って痛いんですか? ...
-
精子が黄色?
-
白血球が多いとどんな心配があ...
-
ある範囲のセルから任意の値を...
-
これって喉仏ですか? 私は女性...
-
精子に血が・・・
-
甲状腺が腫れているが血液検査...
-
イタリアから帰国する際、肉製...
-
精液の落とし方を教えてください
-
検便についてです。 便は取れた...
-
2つの数値のうち、数値が小さい...
-
エクセルで数式の答えを数値と...
-
Excelで""で囲む方法
-
小数点以下を繰り上げたものを...
-
エクセルのラベルの値(文字列...
-
中出しをするとお腹が痛い・・・。
-
MIN関数で空白セルを無視したい...
-
7歳の子供です。 4日程前から顔...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
首吊りどこ締めるの
-
白血球が多いとどんな心配があ...
-
彼女のことが好きすぎて彼女の...
-
検便についてです。 便は取れた...
-
勃起する時って痛いんですか? ...
-
精子が黄色?
-
エクセル指定した範囲からラン...
-
小数点以下を繰り上げたものを...
-
EXCELで条件付き書式で空白セル...
-
ある範囲のセルから任意の値を...
-
甲状腺が腫れているが血液検査...
-
これって喉仏ですか? 私は女性...
-
2つの数値のうち、数値が小さい...
-
精液の落とし方を教えてください
-
精子に血が・・・
-
EXCELで式からグラフを描くには?
-
アクエリアスが苦く感じる
-
Excelで""で囲む方法
-
値が入っているときだけ計算結...
-
風俗店へ行く前のご飯
おすすめ情報