kkkkkkkk https://blog.hatena.ne.jp/kkkkkkkk/ kkkkkkkk https://kkkkkkkk.hatenadiary.org/ IT 素数をイルカ君に数えてもらうことにした。素数生成部分は別途クラス化。Assistantに動いてもらう箇所のみ掲載。 Public Sub PrimeNumbersCalmMeDown() Dim str As String Dim pg As New PrimeGenerator pg.max = 100 pg.init str = str + pg.GetPrimeString(10) str = str + Chr(10) + "落ち着け… 素数を数えて落ち着くんだ…" str = str + pg.GetPrimeString(10) With Assistant .On = True … 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fkkkkkkkk.hatenadiary.org%2Fentry%2F20060620%2Fp1" title="Excel VBAで素数 featuring イルカ - kkkkkkkk" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> http://static.flickr.com/63/171300675_c1992534e8.jpg Hatena Blog https://hatena.blog 2006-06-20 00:00:00 rich https://kkkkkkkk.hatenadiary.org/entry/20060620/p1 1.0 100%