素人がExcelVBAによる「一人働き方改革」に挑むブログスマートフォン用の表示で見る素人がExcelVBAによる「一人働き方改革」に挑むブログExcelVBAネタです。2019-05-30素数かどうかを判定するFunctionVBA自作メソッド素数かどうかを判定するFunction久しぶりの投稿。素数かどうかを判定するメソッドを自作してみた。その前に前回の記事の恥ずかしい誤りを訂正せえよ、と思っていますが。コードごちゃごちゃなしで、書いたコードをぶちまける。"引数は自然数でなければいけません。Finalizerと書いたが、実はこの1行がなくても、「isPrimeNumber(2)」は「True」を返す。FunctionNextループに突入しないのだ。Forループの開始値が終了値よりも大きいときにStepを抜かすとコンパイルエラーになると思い込んでいたので、これは意外だった。いって(*)を書かないと、後で見たときにわけがわからなくなると思ったので、冗長ではあるが明示しておくことにした。次のコードで動作確認。Subこいつを実行すると、こうなった。おわりに素数判定プログラムなんて、太古の昔から先人たちが色んなアルゴリズムを考えて洗練されまくっているだろうから、後で調べてみる。車輪を再発明した後、既に発明済みの車輪を見て学ぶ、というのは良い方法だと思う。ちなみに、今回なぜこんなことをしようと思ったのかというと、Twitterで結婚式の祝儀に3万11円を包む、というのを見かけたから。素数ゆえ「割れない」ということで。30001円だっけ?」となったので、「素数かどうかを判定するメソッドを書いてみようか」となったわけ。30011円だと割れなくて、30001円だと割れる(意外じゃないっすか?)ので、気をつけましょう。»プロフィールid:akashi_keirinExcelVBAネタです。SyntaxHighlighter.all();注目記事はてなブログをはじめよう!akashi_keirinさんは、はてなブログを使っています。ブログを報告するスターをつけました引用をストックしましたストック一覧を見る閉じる引用するにはまずログインしてくださいログイン閉じる引用をストックできませんでした。再度お試しください閉じる限定公開記事のため引用できません。