お題：世界のナベアツを作れ

【よかったら遊んでください】✨🐧 プログラミングで解決してね❤️ お題：世界のナベアツを作れ / 1～10の連続する数を順番に選択していき　素数の時だけ ”アホになる‼️” とメッセージをだせ👍 \ #お題 #VBA #VBA仲間募集 #つながりたい #プログラミング初心者 #駆け出しエンジニアと繋がりたい

2020-02-07 20:42:21

チン☆テクラ（bot） @akashi_keirin

素数ならやったことあるさ。 #VBA akashi-keirin.hatenablog.com/entry/2019/06/… twitter.com/penguincomcom/…

2020-02-07 20:50:44

チン☆テクラ（bot） @akashi_keirin

素数判定メソッド自作済みなので、 Dim i As Long For i = 1 To 10 If isPrimeNumber( i ) Then _ Debug.Print "アホになる！！" Next でしまい。ち～んｗ 😁 twitter.com/penguincomcom/…

2020-02-07 21:02:23

ペンギン屋＠技術とVBA好き。 @penguincomcom

はやっ(笑)‼️ 素数判定メソッド自作済みって‼️🤣🤣🤣 すげーーーー‼️🌟 コードもすっきりしていてエレガント✨✨ twitter.com/akashi_keirin/…

2020-02-07 21:06:46

チン☆テクラ（bot） @akashi_keirin

しもた。修正。 Dim i As Long For i = 1 To 10 If isPrimeNumber( i ) Then Debug.Print "アホになる！！" Else Debug.Print CStr( i ) End If Next ですな。

2020-02-07 21:25:44

ペンギン屋＠技術とVBA好き。 @penguincomcom

素数判定メソッド完成✨✨✨🐧 （ほぼ#コピッペだけど）ニューコードもできた‼️ ちょっと成長✨👍👍🐧

2020-02-07 21:50:10

ペンギン屋＠技術とVBA好き。 @penguincomcom

素数判定メソッド付き（メソッドはコピッペだけど！！）くやしくないんだからね‼️🐟🦐🐧 pic.twitter.com/60wJq0g0lZ

2020-02-07 21:58:33

拡大

ペンギン屋＠技術とVBA好き。 @penguincomcom

気にいってるヤツ簡単で見やすくいい✨🐧 Sub test() 　Debug.Print "1" 　MsgBox "2,アホになる！！" 　MsgBox "3,アホになる！！" 　Debug.Print "4" 　MsgBox "5,アホになる！！" 　Debug.Print "7" 　MsgBox "7,アホになる！！" 　Debug.Print "8" 　Debug.Print "9" 　Debug.Print "10" End Sub

2020-02-07 22:08:21

ふくみみ@プログラム書いて7年/神主を諦めた男 @SE45365259

素数について整理しよう。素数は、下一桁が2,5を除いて必ず1,3,5,9のいずれかである。この事から i*10+(1,3,5,9)のいずれかに必ずなる。

2020-02-07 22:15:09

さくたん@エクセルVBAとAI @sakutan2020

@penguincomcom これのオチと一緒。 thom.hateblo.jp/entry/2016/12/…

2020-02-07 22:16:41

ペンギン屋＠技術とVBA好き。 @penguincomcom

これ最高ですｗ////// VBA 私がコードを整理するときの思考プロセスを紹介 - t-hom’s diary thom.hateblo.jp/entry/2016/12/…

2020-02-07 22:21:09

ペンギン屋＠技術とVBA好き。 @penguincomcom

@sakutan2020 ホントだ‼️ オチが一緒でしたｗｗｗみなさん同じく通る道なのかも知れませんねｗｗ最高です🐧👍

2020-02-07 22:23:52

文_ふみ🐰🇺🇦ADHD_VBA/GAS_障害者雇用 @teori_kimono

@penguincomcom 難しく考え過ぎました😅 1〜10の範囲なら、まだ計算しなくって良かったんですね（笑）

2020-02-07 22:46:11

ペンギン屋＠技術とVBA好き。 @penguincomcom

@teori_kimono そうなんです。私は、はじめてみた時”やられた感”がありましたｗ大量でなければコピペで十分ですからｗ

2020-02-07 22:48:37

文_ふみ🐰🇺🇦ADHD_VBA/GAS_障害者雇用 @teori_kimono

@penguincomcom 敢えて関数を探しちゃう辺りで、コケてるんですね😂

2020-02-07 22:49:42

ペンギン屋＠技術とVBA好き。 @penguincomcom

@excelvba_diary Excel VBA Diaryさん　こんばんは簡潔で美しいコードっていいですよね。書き直すたび少しづつ美しいコードになると小躍りしたくなりますｗ

2020-02-07 22:54:11

ペンギン屋＠技術とVBA好き。 @penguincomcom

@teori_kimono 悪くはないと思いますよ！！ただもっと簡単な方法があるかもしれませんコンビニ行くのにF1は必要ない的な(笑) チャリンコで十分ｗ

2020-02-07 22:56:57

ふくみみ@プログラム書いて7年/神主を諦めた男 @SE45365259

素数整理3 メイン a任意 if((a%10)=(1,3,7,9)) 素数(a) end if if(素数?) 素数 else not素数 if end endメイン素数(a) Max =long(a/2) for i=1To Max if(a%(i*2+1)=0) 素数じゃない blank End if Next 1 if(not素数？) not素数 else 素数だ end if end 素数

2020-02-07 23:00:34

ふくみみ@プログラム書いて7年/神主を諦めた男 @SE45365259

素数整理4 1,2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,51,53,59,61,67,71,73,79,83,91,97,

2020-02-07 23:08:53

ちゅん🐤 @KotorinChunChun

@penguincomcom @sakutan2020 空気読まずにごめんなさい。単にオチと同じだとは言えない気がします。曜日は7種類と言う定数だから、将来拡張する可能性がないから最適解がそうなった。でも本題は拡張することが目に見えているので、forの方に優位があると思われます。但し出題に答えるだけなら10なので問題なし！

2020-02-07 23:13:07

ペンギン屋＠技術とVBA好き。 @penguincomcom

@KotorinChunChun @sakutan2020 いえいえ！　ことりちゅんさん、こんばんはたしかに！！！曜日は拡張する可能性がないですもんね。拡張することを念頭に入れるならforで書いた方がいいかもしれませんただ10までなら問題なし！

2020-02-07 23:18:27