{"id":27,"date":"2008-12-09T11:54:30","date_gmt":"2008-12-09T02:54:30","guid":{"rendered":"http:\/\/www.kaz.bz\/wp\/2008-12-09_230\/"},"modified":"2010-04-28T18:24:05","modified_gmt":"2010-04-28T09:24:05","slug":"vba%e3%81%a7%e9%85%8d%e5%88%97%e3%81%ab%e8%a6%81%e7%b4%a0%e3%82%92%e8%bf%bd%e5%8a%a0%e3%81%99%e3%82%8b","status":"publish","type":"post","link":"https:\/\/wp.kaz.bz\/tech\/2008\/12\/09\/27.html","title":{"rendered":"VBA\u3067\u914d\u5217\u306b\u8981\u7d20\u3092\u8ffd\u52a0\u3059\u308b"},"content":{"rendered":"<p>\u3044\u3061\u3044\u3061Redim\u3059\u308b\u306e\u304c\u9762\u5012\u306a\u306e\u3067Sub\u306b\u307e\u3068\u3081\u308b\u3002<br \/>\n\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u914d\u5217\u5bfe\u5fdc\u306e\u3064\u3082\u308a\uff08\u672a\u691c\u8a3c\uff09\u3002<\/p>\n<pre class=\"brush:vb\">\r\n' \u914d\u5217\uff08\u4e00\u6b21\u5143\u914d\u5217\uff09\u306b\u8981\u7d20\u3092\u8ffd\u52a0\u3057\u3066\u30c7\u30fc\u30bf\u683c\u7d0d\r\n'   varArray: \u3000\u53c2\u7167\u6e21\u3057\u306e\u914d\u5217\u5909\u6570\r\n'   varData:    \u683c\u7d0d\u3059\u308b\u30c7\u30fc\u30bf\r\nSub push_array(ByRef varArray As Variant, varData As Variant)\r\n    If IsArray(varArray) Then\r\n        If UBound(varArray) = -1 Then   ' \u7a7a\u914d\u5217\uff08\u8981\u7d20\u65700\uff09\r\n            ReDim varArray(0)\r\n        Else\r\n            ReDim Preserve varArray(UBound(varArray) + 1)\r\n        End If\r\n    Else\r\n        ReDim varArray(0)\r\n    End If\r\n    \r\n    If IsObject(varData) Then\r\n        Set varArray(UBound(varArray)) = varData\r\n    Else\r\n        varArray(UBound(varArray)) = varData\r\n    End If\r\nEnd Sub\r\n\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u3044\u3061\u3044\u3061Redim\u3059\u308b\u306e\u304c\u9762\u5012\u306a\u306e\u3067Sub\u306b\u307e\u3068\u3081\u308b\u3002 \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u914d\u5217\u5bfe\u5fdc\u306e\u3064\u3082\u308a\uff08\u672a\u691c\u8a3c\uff09\u3002 ' \u914d\u5217\uff08\u4e00\u6b21\u5143\u914d\u5217\uff09\u306b\u8981\u7d20\u3092\u8ffd\u52a0\u3057\u3066\u30c7\u30fc\u30bf\u683c\u7d0d ' varArray: \u3000\u53c2\u7167\u6e21\u3057\u306e\u914d\u5217\u5909\u6570 ' varData: \u683c\u7d0d [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[5],"tags":[],"class_list":["post-27","post","type-post","status-publish","format-standard","hentry","category-vba_asp_etc"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"jetpack-related-posts":[{"id":5,"url":"https:\/\/wp.kaz.bz\/tech\/2009\/11\/05\/5.html","url_meta":{"origin":27,"position":0},"title":"ActiveDirectory\u30a2\u30ab\u30a6\u30f3\u30c8\u30ed\u30c3\u30af\u89e3\u9664\u30b9\u30af\u30ea\u30d7\u30c8\u3002","author":"kaz. Suenaga","date":"2009\/11\/05","format":false,"excerpt":"' ActiveDirectory\u30c9\u30e1\u30a4\u30f3\u540d Const DOMAIN_NAME = \"exampl\u2026","rel":"","context":"Windows","block_context":{"text":"Windows","link":"https:\/\/wp.kaz.bz\/tech\/category\/windows"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1055,"url":"https:\/\/wp.kaz.bz\/tech\/2011\/11\/11\/1055.html","url_meta":{"origin":27,"position":1},"title":"ActiveDirectory \u306e\u30e6\u30fc\u30b6\u30ed\u30c3\u30af\u30a2\u30a6\u30c8\u89e3\u9664\u30b9\u30af\u30ea\u30d7\u30c8\uff08VBS\uff09","author":"kaz. Suenaga","date":"2011\/11\/11","format":false,"excerpt":"ActiveDirectory\u3067\u30a2\u30ab\u30a6\u30f3\u30c8\u30ed\u30c3\u30af\u304c\u304b\u304b\u3063\u305f\u30e6\u30fc\u30b6\u306e\u30ed\u30c3\u30af\u89e3\u9664\u3092\u3059\u308b\u30b9\u30af\u30ea\u30d7\u30c8\u3067\u3059\u3002 \u2026","rel":"","context":"ActiveDirectory","block_context":{"text":"ActiveDirectory","link":"https:\/\/wp.kaz.bz\/tech\/category\/windows\/server\/activedirectory"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":1468,"url":"https:\/\/wp.kaz.bz\/tech\/2013\/01\/11\/1468.html","url_meta":{"origin":27,"position":2},"title":"Access VBA\uff1a 64bit \u3067\u3082 32bit \u3067\u3082DAO\u3092\u52d5\u304b\u3059\u65b9\u6cd5\uff08\u691c\u8a3c\u4e2d\uff09\u3002","author":"kaz. Suenaga","date":"2013\/01\/11","format":false,"excerpt":"Access2010 \u4ee5\u964d\u3001DAO\u306e\u6a19\u6e96\u30e9\u30a4\u30d6\u30e9\u30ea\u304c \"Microsoft Office 14.0 \u2026","rel":"","context":"VBA\uff0fASP\u306a\u3069","block_context":{"text":"VBA\uff0fASP\u306a\u3069","link":"https:\/\/wp.kaz.bz\/tech\/category\/langs\/vba_asp_etc"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":6,"url":"https:\/\/wp.kaz.bz\/tech\/2009\/10\/09\/6.html","url_meta":{"origin":27,"position":3},"title":"\u30de\u30eb\u30c1Ping","author":"kaz. Suenaga","date":"2009\/10\/09","format":false,"excerpt":"\u203b\u81ea\u5206\u3067\u7ba1\u7406\u3057\u3066\u3044\u308b\u9818\u57df\u4ee5\u5916\u306b\u5b9f\u884c\u3057\u3066\u306f\u3044\u3051\u307e\u305b\u3093\u3002 \u30cd\u30c3\u30c8\u30ef\u30fc\u30af\u7ba1\u7406\u7528\u306b\u3002 \u5b9f\u969b\u306b\u306f sh \u30b9\u30af\u30ea\u2026","rel":"","context":"\u30b7\u30a7\u30eb\u30b9\u30af\u30ea\u30d7\u30c8\uff08\u4e3b\u306bbash\uff09","block_context":{"text":"\u30b7\u30a7\u30eb\u30b9\u30af\u30ea\u30d7\u30c8\uff08\u4e3b\u306bbash\uff09","link":"https:\/\/wp.kaz.bz\/tech\/category\/langs\/shellscript"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":48,"url":"https:\/\/wp.kaz.bz\/tech\/2008\/03\/14\/48.html","url_meta":{"origin":27,"position":4},"title":"daemontools\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u30b9\u30af\u30ea\u30d7\u30c8","author":"kaz. Suenaga","date":"2008\/03\/14","format":false,"excerpt":"#! \/bin\/sh PACK=daemontools-0.76 create_package_di\u2026","rel":"","context":"DJB","block_context":{"text":"DJB","link":"https:\/\/wp.kaz.bz\/tech\/category\/servers\/djb"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]},{"id":47,"url":"https:\/\/wp.kaz.bz\/tech\/2008\/03\/14\/47.html","url_meta":{"origin":27,"position":5},"title":"daemontools+ucspi-tcp with netqmail \u306e\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u30b9\u30af\u30ea\u30d7\u30c8\u3002","author":"kaz. Suenaga","date":"2008\/03\/14","format":false,"excerpt":"daemontools\u3068ucspi-tcp\u3092\u3001netqmail\u306e\u30d1\u30c3\u30c1\u3092\u5229\u7528\u3057\u3066\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3059\u308b\u30b9\u30af\u2026","rel":"","context":"DJB","block_context":{"text":"DJB","link":"https:\/\/wp.kaz.bz\/tech\/category\/servers\/djb"},"img":{"alt_text":"","src":"","width":0,"height":0},"classes":[]}],"_links":{"self":[{"href":"https:\/\/wp.kaz.bz\/tech\/wp-json\/wp\/v2\/posts\/27","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/wp.kaz.bz\/tech\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/wp.kaz.bz\/tech\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/wp.kaz.bz\/tech\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/wp.kaz.bz\/tech\/wp-json\/wp\/v2\/comments?post=27"}],"version-history":[{"count":0,"href":"https:\/\/wp.kaz.bz\/tech\/wp-json\/wp\/v2\/posts\/27\/revisions"}],"wp:attachment":[{"href":"https:\/\/wp.kaz.bz\/tech\/wp-json\/wp\/v2\/media?parent=27"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/wp.kaz.bz\/tech\/wp-json\/wp\/v2\/categories?post=27"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/wp.kaz.bz\/tech\/wp-json\/wp\/v2\/tags?post=27"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}