{"height":"190","provider_url":"https://hatena.blog","description":"Sub FizzBuzz() ' ' Office:Mac 2011\u3067\u78ba\u8a8d ' [\u30c4\u30fc\u30eb]\u2192[\u30de\u30af\u30ed]\u2192[\u30de\u30af\u30ed\u2026]\u3067\u9069\u5f53\u306a\u540d\u524d\u3092\u5165\u308c\u3066\u30b3\u30fc\u30c9\u753b\u9762\u3092\u958b\u304d\u3001\u30b3\u30d4\u30fc\uff06\u30da\u30fc\u30b9\u30c8 ' For i = 1 To 100 s = \"\" If i Mod 3 = 0 Then s = \"Fizz\" End If If i Mod 5 = 0 Then s = s + \"Buzz\" End If If s = \"\" Then s = CStr(i) End If Range(\"A\" & i).Value = s Next End Sub","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fkeisanki.hateblo.jp%2Fentry%2F20111022%2F1319265902\" title=\"Excel VBA\u3067FizzBuzz - \u8a08\u7b97\u6a5f\u8a2d\u5b9a\u8a18\u9332\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","version":"1.0","categories":["FizzBuzz","VBA"],"blog_title":"\u8a08\u7b97\u6a5f\u8a2d\u5b9a\u8a18\u9332","published":"2011-10-22 15:45:02","width":"100%","url":"https://keisanki.hateblo.jp/entry/20111022/1319265902","author_name":"houmei","author_url":"https://blog.hatena.ne.jp/houmei/","type":"rich","blog_url":"https://keisanki.hateblo.jp/","image_url":null,"provider_name":"Hatena Blog","title":"Excel VBA\u3067FizzBuzz"}