{"id":6116,"date":"2024-03-12T21:09:26","date_gmt":"2024-03-12T12:09:26","guid":{"rendered":"https:\/\/okamurax.com\/?p=6116"},"modified":"2024-03-12T21:09:26","modified_gmt":"2024-03-12T12:09:26","slug":"vba-%e6%ad%a3%e8%a6%8f%e8%a1%a8%e7%8f%be","status":"publish","type":"post","link":"https:\/\/appbay.org\/?p=6116","title":{"rendered":"VBA \u6b63\u898f\u8868\u73fe"},"content":{"rendered":"<pre class=\"lang:vb decode:true \">Sub test()\r\n\r\nSet w = ActiveSheet\r\n\r\nDim reg As Object\r\nSet reg = CreateObject(\"VBScript.RegExp\")\r\nreg.pattern = \"\\D-[0-9]{3,4}\"\r\nreg.IgnoreCase = True\r\nreg.Global = False\r\n\r\nFor r = 2 To 6113\r\n  Set m = reg.Execute(w.Cells(r, 4).Value)\r\n  If m.Count &gt; 0 Then\r\n    tmp = Split(m.Item(0).Value, \"-\")(1) ' \u6307\u5b9a\u306e\u6587\u5b57\u5217\u3088\u308a\u53f3\u5074\u3092\u53d6\u5f97\r\n    w.Cells(r, 10).Value = tmp\r\n  End If\r\nNext\r\n\r\nEnd Sub\r\n<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>Sub test() Set w = ActiveSheet Dim reg As Object Set reg = CreateObject(&#8220;VBScript.RegExp&#8221;) reg.pattern = &#8220;\\D-[ &hellip; <\/p>\n<p class=\"link-more\"><a href=\"https:\/\/appbay.org\/?p=6116\" class=\"more-link\"><span class=\"screen-reader-text\">&#8220;VBA \u6b63\u898f\u8868\u73fe&#8221; \u306e<\/span>\u7d9a\u304d\u3092\u8aad\u3080<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[5],"class_list":["post-6116","post","type-post","status-publish","format-standard","hentry","category-1","tag-vba"],"_links":{"self":[{"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts\/6116","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=6116"}],"version-history":[{"count":1,"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts\/6116\/revisions"}],"predecessor-version":[{"id":6117,"href":"https:\/\/appbay.org\/index.php?rest_route=\/wp\/v2\/posts\/6116\/revisions\/6117"}],"wp:attachment":[{"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=6116"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=6116"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/appbay.org\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=6116"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}