{"id":3660,"date":"2023-09-11T19:49:13","date_gmt":"2023-09-11T11:49:13","guid":{"rendered":"https:\/\/www.bytetape.com\/?p=3660"},"modified":"2023-09-11T19:53:29","modified_gmt":"2023-09-11T11:53:29","slug":"%e6%8e%8c%e6%8f%a1vba%e4%b8%ad%e4%b8%8e%e6%97%b6%e9%97%b4%e7%9b%b8%e5%85%b3%e7%9a%84%e5%87%bd%e6%95%b0%ef%bc%9a%e6%8f%90%e9%ab%98%e7%bc%96%e7%a8%8b%e6%95%88%e7%8e%87%e7%9a%84%e7%a7%98%e8%af%80","status":"publish","type":"post","link":"https:\/\/www.bytetape.com\/?p=3660","title":{"rendered":"\u638c\u63e1VBA\u4e2d\u4e0e\u65f6\u95f4\u76f8\u5173\u7684\u51fd\u6570\uff1a\u63d0\u9ad8\u7f16\u7a0b\u6548\u7387\u7684\u79d8\u8bc0"},"content":{"rendered":"\n<p>\u5728VBA\u7f16\u7a0b\u4e2d\uff0c\u65f6\u95f4\u662f\u4e00\u4e2a\u5173\u952e\u56e0\u7d20\uff0c\u800c\u65f6\u95f4\u51fd\u6570\u5219\u662f\u63d0\u9ad8\u6548\u7387\u7684\u79d8\u5bc6\u6b66\u5668\u3002\u672c\u6587\u5c06\u4ecb\u7ecd\u4e00\u4e9b\u5e38\u7528\u7684VBA\u65f6\u95f4\u51fd\u6570\uff0c\u4ee5\u53ca\u5982\u4f55\u5728\u7f16\u7a0b\u4e2d\u7075\u6d3b\u8fd0\u7528\u5b83\u4eec\uff0c\u63d0\u9ad8\u4f60\u7684\u7f16\u7a0b\u6548\u7387\u3002<\/p>\n\n\n\n<h3 class=\"wp-block-heading\"><strong>1. \u5ef6\u65f6\u64cd\u4f5c &#8211; \u7cbe\u786e\u63a7\u5236\u6267\u884c\u65f6\u673a<\/strong><\/h3>\n\n\n\n<p>\u5728\u67d0\u4e9b\u60c5\u51b5\u4e0b\uff0c\u4f60\u53ef\u80fd\u9700\u8981\u5728\u4ee3\u7801\u4e2d\u6dfb\u52a0\u4e00\u4e9b\u5ef6\u65f6\u64cd\u4f5c\uff0c\u4ee5\u786e\u4fdd\u4ee3\u7801\u5728\u9002\u5f53\u7684\u65f6\u5019\u6267\u884c\u3002VBA\u63d0\u4f9b\u4e86\u51e0\u79cd\u65b9\u5f0f\u6765\u5b9e\u73b0\u5ef6\u65f6\u64cd\u4f5c\u3002<\/p>\n\n\n\n<pre class=\"EnlighterJSRAW\" data-enlighter-language=\"visualbasic\" data-enlighter-theme=\"\" data-enlighter-highlight=\"\" data-enlighter-linenumbers=\"\" data-enlighter-lineoffset=\"\" data-enlighter-title=\"\" data-enlighter-group=\"\">' \u4f7f\u7528TimeSerial\u51fd\u6570\u7b49\u5f853\u79d2\u949f\nApplication.Wait Now + TimeSerial(0, 0, 3)\n\n' \u6216\u8005\u4f7f\u7528TimeValue\u51fd\u6570\u7b49\u5f853\u79d2\u949f\nApplication.Wait (Now + TimeValue(\"0:00:03\"))<\/pre>\n\n\n\n<h3 class=\"wp-block-heading\"><strong>2. \u8ba1\u65f6\u5668 &#8211; \u76d1\u6d4b\u7a0b\u5e8f\u8fd0\u884c\u65f6\u95f4<\/strong><\/h3>\n\n\n\n<p>\u8ba1\u65f6\u5668\u51fd\u6570\u662f\u53e6\u4e00\u4e2a\u5f3a\u5927\u7684\u5de5\u5177\uff0c\u5b83\u53ef\u4ee5\u5e2e\u52a9\u4f60\u76d1\u6d4b\u7a0b\u5e8f\u7684\u8fd0\u884c\u65f6\u95f4\uff0c\u4ee5\u4fbf\u4f18\u5316\u6027\u80fd\u3002<\/p>\n\n\n\n<pre class=\"EnlighterJSRAW\" data-enlighter-language=\"visualbasic\" data-enlighter-theme=\"\" data-enlighter-highlight=\"\" data-enlighter-linenumbers=\"\" data-enlighter-lineoffset=\"\" data-enlighter-title=\"\" data-enlighter-group=\"\">' \u8bb0\u5f55\u7a0b\u5e8f\u8fd0\u884c\u65f6\u95f4\nstart = Timer\nMsgBox \"\u7a0b\u5e8f\u8fd0\u884c\u65f6\u95f4\uff1a\" &amp; Format(Timer - start, \"0.00\") &amp; \"\u79d2\" <\/pre>\n\n\n\n<h3 class=\"wp-block-heading\"><strong>3. \u8ba1\u5212\u4efb\u52a1 &#8211; \u5b9a\u65f6\u8fd0\u884c\u7a0b\u5e8f<\/strong><\/h3>\n\n\n\n<p>VBA\u5141\u8bb8\u4f60\u8bbe\u7f6e\u5b9a\u65f6\u4efb\u52a1\uff0c\u8ba9\u7a0b\u5e8f\u5728\u7279\u5b9a\u65f6\u95f4\u81ea\u52a8\u6267\u884c\u3002<\/p>\n\n\n\n<pre class=\"EnlighterJSRAW\" data-enlighter-language=\"visualbasic\" data-enlighter-theme=\"\" data-enlighter-highlight=\"\" data-enlighter-linenumbers=\"\" data-enlighter-lineoffset=\"\" data-enlighter-title=\"\" data-enlighter-group=\"\">' 3\u79d2\u540e\u8fd0\u884cmy_Procedure\u8fc7\u7a0b\nApplication.OnTime Now + TimeValue(\"00:00:03\"), \"my_Procedure\"\n\n' \u5728\u4e0b\u53485\u70b9\u5f00\u59cb\u8fd0\u884cmy_Procedure\nApplication.OnTime TimeValue(\"17:00:00\"), \"my_Procedure\"\n\n' \u64a4\u9500\u4e4b\u524d\u5bf9OnTime\u7684\u8bbe\u7f6e\nApplication.OnTime EarliestTime:=TimeValue(\"17:00:00\"), Procedure:=\"my_Procedure\", Schedule:=False<\/pre>\n\n\n\n<h3 class=\"wp-block-heading\"><strong>4. \u5faa\u73af+\u8ba1\u65f6\u5668 &#8211; \u7075\u6d3b\u6355\u6349\u64cd\u4f5c<\/strong><\/h3>\n\n\n\n<p>\u7ed3\u5408\u5faa\u73af\u548c\u8ba1\u65f6\u5668\uff0c\u4f60\u53ef\u4ee5\u5728\u4e00\u5b9a\u65f6\u95f4\u5185\u7b49\u5f85\u67d0\u4e2a\u6761\u4ef6\u7684\u51fa\u73b0\uff0c\u4ee5\u6267\u884c\u4e0b\u4e00\u6b65\u64cd\u4f5c\u3002<\/p>\n\n\n\n<pre class=\"EnlighterJSRAW\" data-enlighter-language=\"visualbasic\" data-enlighter-theme=\"\" data-enlighter-highlight=\"\" data-enlighter-linenumbers=\"\" data-enlighter-lineoffset=\"\" data-enlighter-title=\"\" data-enlighter-group=\"\">' \u6355\u6349\u7f51\u9875\u5f39\u7a97\uff0c\u6700\u957f\u5faa\u73af3\u79d2\ninitTimer = Timer\nDo Until FindWindow(\"#32770\", \"\u6765\u81ea\u7f51\u9875\u7684\u6d88\u606f\") = 0 Or Timer - initTimer > 3\n    DoEvents\nLoop<\/pre>\n\n\n\n<h3 class=\"wp-block-heading\"><strong>5. \u83b7\u53d6\u4efb\u610f\u6708\u7684\u6700\u540e\u4e00\u5929 &#8211; \u65f6\u95f4\u8ba1\u7b97\u6280\u5de7<\/strong><\/h3>\n\n\n\n<p>\u4f60\u53ef\u4ee5\u4f7f\u7528VBA\u8fdb\u884c\u65e5\u671f\u8ba1\u7b97\uff0c\u4f8b\u5982\u83b7\u53d6\u4efb\u610f\u6708\u7684\u6700\u540e\u4e00\u5929\u3002<\/p>\n\n\n\n<pre class=\"EnlighterJSRAW\" data-enlighter-language=\"visualbasic\" data-enlighter-theme=\"\" data-enlighter-highlight=\"\" data-enlighter-linenumbers=\"\" data-enlighter-lineoffset=\"\" data-enlighter-title=\"\" data-enlighter-group=\"\">Sub GetLastDayOfAnyMonth()\n    Dim d1 As Date\n    d1 = #12\/25\/2018#\n    Dim d2 As Date\n    d2 = VBA.DateSerial(Year(d1), Month(d1) + 1, 1) - 1\n    Debug.Print d2\nEnd Sub<\/pre>\n\n\n\n<h3 class=\"wp-block-heading\"><strong>6. \u65f6\u95f4\u6233 &#8211; \u8ba1\u7b97\u65f6\u95f4\u5dee<\/strong><\/h3>\n\n\n\n<p>\u65f6\u95f4\u6233\u53ef\u4ee5\u5e2e\u52a9\u4f60\u8ba1\u7b97\u4e24\u4e2a\u65f6\u95f4\u4e4b\u95f4\u7684\u79d2\u6570\u5dee\u5f02\uff0c\u5e38\u7528\u4e8e\u8bb0\u5f55\u4e8b\u4ef6\u53d1\u751f\u7684\u65f6\u95f4\u3002<\/p>\n\n\n\n<pre class=\"EnlighterJSRAW\" data-enlighter-language=\"visualbasic\" data-enlighter-theme=\"\" data-enlighter-highlight=\"\" data-enlighter-linenumbers=\"\" data-enlighter-lineoffset=\"\" data-enlighter-title=\"\" data-enlighter-group=\"\">VBScript \/ ASP DateDiff(\"s\", \"01\/01\/1970 00:00:00\", Now())<\/pre>\n\n\n\n<h3 class=\"wp-block-heading\"><strong>7. \u683c\u5f0f\u5316\u663e\u793a\u65e5\u671f &#8211; \u4f7f\u65f6\u95f4\u66f4\u6613\u8bfb<\/strong><\/h3>\n\n\n\n<p>\u4f7f\u7528\u683c\u5f0f\u5316\u51fd\u6570\uff0c\u4f60\u53ef\u4ee5\u5c06\u65e5\u671f\u548c\u65f6\u95f4\u4ee5\u66f4\u6613\u8bfb\u7684\u65b9\u5f0f\u663e\u793a\u3002<\/p>\n\n\n\n<pre class=\"EnlighterJSRAW\" data-enlighter-language=\"visualbasic\" data-enlighter-theme=\"\" data-enlighter-highlight=\"\" data-enlighter-linenumbers=\"\" data-enlighter-lineoffset=\"\" data-enlighter-title=\"\" data-enlighter-group=\"\">Debug.Print Date             ' \u8fd4\u56de\u7ed3\u679c\uff1a2020\/5\/10\nDebug.Print Time             ' \u8fd4\u56de\u7ed3\u679c\uff1a17:09:15\nDebug.Print Now              ' \u8fd4\u56de\u7ed3\u679c\uff1a2020\/5\/10 17:09:15\nDebug.Print Format(Now, \"yyyy-mm-dd\")            ' \u8fd4\u56de\u7ed3\u679c\uff1a2020-05-10\nDebug.Print Format(Now, \"yyyy\u5e74mm\u6708dd\u65e5\")       ' \u8fd4\u56de\u7ed3\u679c\uff1a2020\u5e7405\u670810\u65e5\nDebug.Print Format(Now, \"yyyy\u5e74mm\u6708dd\u65e5 h:mm:ss\") ' \u8fd4\u56de\u7ed3\u679c\uff1a2020\u5e7405\u670810\u65e5 17:34:24<\/pre>\n\n\n\n<h3 class=\"wp-block-heading\"><strong>8. \u8ba1\u7b97\u65e5\u671f\u5dee &#8211; \u4e86\u89e3\u65f6\u95f4\u95f4\u9694<\/strong><\/h3>\n\n\n\n<p>VBA\u63d0\u4f9b\u4e86\u4e0d\u540c\u7684\u65b9\u6cd5\u6765\u8ba1\u7b97\u4e24\u4e2a\u65e5\u671f\u4e4b\u95f4\u7684\u65f6\u95f4\u5dee\u3002<\/p>\n\n\n\n<pre class=\"EnlighterJSRAW\" data-enlighter-language=\"visualbasic\" data-enlighter-theme=\"\" data-enlighter-highlight=\"\" data-enlighter-linenumbers=\"\" data-enlighter-lineoffset=\"\" data-enlighter-title=\"\" data-enlighter-group=\"\">Sub CalculateDateDifference()\n    Dim d1, d2 As Date\n    d1 = #11\/21\/2011#\n    d2 = #12\/1\/2011#\n    Debug.Print \"\u76f8\u9694\" &amp; (d2 - d1) &amp; \"\u5929\"\n    Debug.Print \"\u76f8\u9694\" &amp; DateDiff(\"d\", d1, d2) &amp; \"\u5929\"\n    Debug.Print \"\u76f8\u9694\" &amp; DateDiff(\"m\", d1, d2) &amp; \"\u6708\"\n    Debug.Print \"\u76f8\u9694\" &amp; DateDiff(\"yyyy\", d1, d2) &amp; \"\u5e74\"\n    Debug.Print \"\u76f8\u9694\" &amp; DateDiff(\"q\", d1, d2) &amp; \"\u5b63\"\n    Debug.Print \"\u76f8\u9694\" &amp; DateDiff(\"w\", d1, d2) &amp; \"\u5468\"\n    Debug.Print \"\u76f8\u9694\" &amp; DateDiff(\"h\", d1, d2) &amp; \"\u5c0f\u65f6\"\n    Debug.Print \"\u76f8\u9694\" &amp; DateDiff(\"n\", d1, d2) &amp; \"\u5206\u949f\"\n    Debug.Print \"\u76f8\u9694\" &amp; DateDiff(\"s\", d1, d2) &amp; \"\u79d2\"\nEnd Sub<\/pre>\n\n\n\n<p>\u8fd9\u4e9b\u65f6\u95f4\u51fd\u6570\u548c\u6280\u5de7\u5c06\u4f7f\u4f60\u7684VBA\u7f16\u7a0b\u66f4\u52a0\u7075\u6d3b\u548c\u9ad8\u6548\u3002\u65e0\u8bba\u4f60\u662f\u9700\u8981\u6dfb\u52a0\u5ef6\u65f6\u64cd\u4f5c\u3001\u76d1\u6d4b\u7a0b\u5e8f\u8fd0\u884c\u65f6\u95f4\uff0c\u8fd8\u662f\u8fdb\u884c\u65e5\u671f\u8ba1\u7b97\uff0cVBA\u65f6\u95f4\u51fd\u6570\u90fd\u80fd\u5e2e\u52a9\u4f60\u8f7b\u677e\u5b8c\u6210\u4efb\u52a1\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u5728VBA\u7f16\u7a0b\u4e2d\uff0c\u65f6\u95f4\u662f\u4e00\u4e2a\u5173\u952e\u56e0\u7d20\uff0c\u800c\u65f6&#8230; <\/p>\n","protected":false},"author":1,"featured_media":3664,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[40],"tags":[91,95,94,93,92],"class_list":["post-3660","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-vba","tag-91","tag-95","tag-94","tag-93","tag-92"],"_links":{"self":[{"href":"https:\/\/www.bytetape.com\/index.php?rest_route=\/wp\/v2\/posts\/3660","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.bytetape.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.bytetape.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.bytetape.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.bytetape.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=3660"}],"version-history":[{"count":2,"href":"https:\/\/www.bytetape.com\/index.php?rest_route=\/wp\/v2\/posts\/3660\/revisions"}],"predecessor-version":[{"id":3662,"href":"https:\/\/www.bytetape.com\/index.php?rest_route=\/wp\/v2\/posts\/3660\/revisions\/3662"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.bytetape.com\/index.php?rest_route=\/wp\/v2\/media\/3664"}],"wp:attachment":[{"href":"https:\/\/www.bytetape.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=3660"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.bytetape.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=3660"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.bytetape.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=3660"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}