3の倍数と3のつく数字でアホになる【世界のナベアツ】【ExcelVBA】

この前神戸を歩いていたら、桂三度の落語会のチラシが掲示板に貼られていました。
名前は見たことがあり、誰だったかなと思いだすと世界のナベアツでした。

2008年頃ブームになったと思うのですが、懐かしい！とつぶやいたところ、
一緒にいた22歳には伝わりませんでした。世代間ギャップ。。。。

3の倍数と3のつく数字でアホになるサンプルコード

’■3の倍数と3のつく数字でアホになるサンプルコード
Public Sub Sando_Katsura()
    Dim num As Long
    
    For num = 1 To 40
        '■3で割り切れる(0になる)　もしくは 数字に3が含まれる場合
        If num Mod 3 = 0 Or InStr(CStr(num), "3") > 0 Then
            Debug.Print num & "!!!!"
        Else
            Debug.Print num
        End If
    Next
End Sub

注意点

この辺りは知識の組み合わせです。

• 割算の余りを求める【Mod演算子】
• 指定した文字位置を判断する【Instr関数】
• String型（文字列型）に変換する【CStr関数】

の組み合わせで判断をしています。

一つづつ勉強していけば、誰でもプロになれるとは思っています。
途中で頓挫する人が多いので、人生は難しいものですね。

その他

世界のナベアツのネタには、さらに組み合わせたネタもありました。Wikipediaより。

• 3の倍数と3が付く数字だけ阿呆になり、5の倍数だけ犬っぽくなります
• 3の倍数と3が付く数字だけ阿呆になり、8の倍数だけ人探しをしてる感じになります

これもプログラムで再現できますね。このように今ある資産をどんどん伸ばしていくことが上達のコツと考えます。最初から100%なんて誰も出来ないです。一つずつ丁寧に。。。