{"id":278,"date":"2023-08-05T09:37:03","date_gmt":"2023-08-05T00:37:03","guid":{"rendered":"https:\/\/rafa-system.com\/vba\/?p=278"},"modified":"2023-08-05T09:37:04","modified_gmt":"2023-08-05T00:37:04","slug":"post-278","status":"publish","type":"post","link":"https:\/\/rafa-system.com\/vba\/2023\/08\/05\/post-278\/","title":{"rendered":"\u4e8c\u6b21\u5143\u914d\u5217\u5185\u306e1\u5217\u3092\u4e00\u6b21\u5143\u914d\u5217\u3068\u3057\u3066\u62bd\u51fa\u3059\u308b"},"content":{"rendered":"\n<p>\u30ab\u30a6\u30f3\u30bf\u5909\u6570\u3092redim\u306e\u6570\u5024\u306b\u305d\u306e\u307e\u307e\u4f7f\u3048\u308b<\/p>\n\n\n\n<pre class=\"wp-block-luxe-blocks-syntaxhighlighter line-numbers language-vba\"><code class=\"language-vba\">Sub testin()\n    \n    Dim arr: arr = Range(\"A1\").CurrentRegion\n    \n    Dim \u307b\u3057\u3044\u5217\u756a\u53f7 As Long: \u307b\u3057\u3044\u5217\u756a\u53f7 = 3\n    \n    Dim out() As Variant, i As Long\n    For i = 1 To UBound(arr)\n        ReDim Preserve out(1 To i)\n        out(i) = arr(i, \u307b\u3057\u3044\u5217\u756a\u53f7)\n    Next i\n    \nEnd Sub<\/code><\/pre>\n\n\n\n<figure class=\"wp-block-image size-full\"><img loading=\"lazy\" decoding=\"async\" width=\"805\" height=\"448\" src=\"https:\/\/rafa-system.com\/vba\/wp-content\/uploads\/2023\/08\/image-2.png\" alt=\"\" class=\"wp-image-279\" srcset=\"https:\/\/rafa-system.com\/vba\/wp-content\/uploads\/2023\/08\/image-2.png 805w, https:\/\/rafa-system.com\/vba\/wp-content\/uploads\/2023\/08\/image-2-300x167.png 300w, https:\/\/rafa-system.com\/vba\/wp-content\/uploads\/2023\/08\/image-2-768x427.png 768w\" sizes=\"auto, (max-width: 805px) 100vw, 805px\" \/><\/figure>\n","protected":false},"excerpt":{"rendered":"<p>\u30ab\u30a6\u30f3\u30bf\u5909\u6570\u3092redim\u306e\u6570\u5024\u306b\u305d\u306e\u307e\u307e\u4f7f\u3048\u308b<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[9],"class_list":["post-278","post","type-post","status-publish","format-standard","hentry","category-11","tag-9"],"_links":{"self":[{"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/posts\/278","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/comments?post=278"}],"version-history":[{"count":1,"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/posts\/278\/revisions"}],"predecessor-version":[{"id":280,"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/posts\/278\/revisions\/280"}],"wp:attachment":[{"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/media?parent=278"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/categories?post=278"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/rafa-system.com\/vba\/wp-json\/wp\/v2\/tags?post=278"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}