{"provider_name":"Hatena Blog","published":"2020-04-30 14:35:05","height":"190","type":"rich","categories":["ExcelVBA"],"blog_url":"https://blog.systemjp.net/","title":"VBA\u3067\u914d\u5217\u3092\u8ffd\u52a0\u3057\u3066\u3044\u304f\u6280","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2020%2F04%2F30%2F143505\" title=\"VBA\u3067\u914d\u5217\u3092\u8ffd\u52a0\u3057\u3066\u3044\u304f\u6280 - shikaku&#39;s blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","author_url":"https://blog.hatena.ne.jp/shikaku/","version":"1.0","provider_url":"https://hatena.blog","author_name":"shikaku","image_url":null,"width":"100%","blog_title":"shikaku's blog","url":"https://blog.systemjp.net/entry/2020/04/30/143505","description":"ReDim Preserve\u3057\u3066\u3044\u304f\u3002 Sgn()\u3067\u672a\u521d\u671f\u5316\u304b\u5224\u5b9a\u3067\u304d\u308b Dim arr() As String For i = 0 To 4 If Sgn(arr) = 0 Then '\u521d\u671f\u5316\u3055\u308c\u3066\u3044\u306a\u3044\u306e\u3067\u521d\u671f\u5316 ReDim Preserve arr(0) Else '\u521d\u671f\u5316\u3055\u308c\u3066\u3044\u308b\u306e\u3067\u8981\u7d20\u3092\u8ffd\u52a0 ReDim Preserve arr(UBound(arr) + 1) End If arr(UBound(arr)) = i * 2 Next '\u7d50\u679c 'arr(0) 0 'arr(1) 2 'arr(2) 4 'arr(3) 6 'arr(4) 8 \u30cd\u30bf\u5143 https://zukucode\u2026"}