{"id":284,"date":"2023-06-16T08:05:26","date_gmt":"2023-06-16T00:05:26","guid":{"rendered":"https:\/\/www.gzlcy.cn\/?p=284"},"modified":"2023-06-16T08:05:26","modified_gmt":"2023-06-16T00:05:26","slug":"excel-vba%e4%b9%8b%e5%87%bd%e6%95%b0%e7%af%87-3-3%e8%bd%bb%e6%9d%be%e8%bd%ac%e6%8d%a2%e8%8b%b1%e6%96%87%e5%a4%a7%e5%b0%8f%e5%86%99%ef%bc%8c%e8%8b%b1%e6%96%87%e8%be%93%e5%85%a5%e6%97%a0%e7%83%a6","status":"publish","type":"post","link":"https:\/\/www.gzlcy.cn\/?p=284","title":{"rendered":"Excel VBA\u4e4b\u51fd\u6570\u7bc7-3.3\u8f7b\u677e\u8f6c\u6362\u82f1\u6587\u5927\u5c0f\u5199\uff0c\u82f1\u6587\u8f93\u5165\u65e0\u70e6\u607c"},"content":{"rendered":"<p>\u524d\u666f\u63d0\u8981<\/p>\n<p>\u6628\u5929\u5206\u4eab\u4e86\u4e00\u4e9b\u6570\u5b57\u7684\u4e2d\u6587\u5927\u5c0f\u5199\u7684\u8f6c\u6362\u4e4b\u540e\uff0c\u4e5f\u662f\u6536\u5230\u4e86\u4e0d\u5c11\u7684\u53cd\u9988\uff0c\u5927\u5bb6\u90fd\u89c9\u5f97\u8fd9\u4e2a\u65b9\u6cd5\u975e\u5e38\u7684\u5b9e\u7528\uff0c\u6211\u81ea\u5df1\u4e5f\u662f\u975e\u5e38\u7684\u5f00\u5fc3\uff0c\u6bd5\u7adf\u6211\u5206\u4eab\u7684\u4e1c\u897f\u8fd8\u662f\u80fd\u591f\u5e2e\u52a9\u5230\u5927\u5bb6\u7684\uff0c\u540c\u65f6\u4e5f\u6709\u4e0d\u5c11\u7684\u4eba\u79c1\u4fe1\u95ee\u6211\uff0c\u65e2\u7136\u6570\u5b57\u53ef\u4ee5\u6279\u91cf\u5207\u6362\u6210\u4e2d\u6587\u5927\u5c0f\u5199\uff0c\u90a3\u4e48\u6709\u6ca1\u6709\u5c06\u82f1\u6587\u8f6c\u6362\u5927\u5c0f\u5199\u7684\u65b9\u6cd5\u5462\uff1f<\/p>\n<p>\u5728\u6211\u4eec\u7684\u65e5\u5e38\u5de5\u4f5c\u4e2d\uff0c\u7ecf\u5e38\u9700\u8981\u78b0\u5230\u9700\u8981\u8f93\u5165\u82f1\u6587\u7684\u60c5\u51b5\uff0c\u4e0d\u8fc7\u6309\u7167\u6211\u4eec\u4e2d\u56fd\u4eba\u7684\u4e60\u60ef\uff0c\u8f93\u5165\u6c49\u5b57\u8fd8\u53ef\u4ee5\uff0c\u8f93\u5165\u5168\u82f1\u6587\u5c31\u6709\u70b9\u9ebb\u70e6\u4e86\uff0c\u800c\u4e14\u6709\u4e9b\u8fd8\u6709\u5404\u79cd\u4e0d\u540c\u7684\u8981\u6c42\uff0c\u8981\u4e48\u9996\u5b57\u6bcd\u5927\u5199\uff0c\u8981\u4e48\u9996\u5b57\u6bcd\u5c0f\u5199\uff0c\u6216\u8005\u5168\u90e8\u5927\u5c0f\uff0c\u5168\u90e8\u5c0f\u5199\uff0c\u78b0\u5230\u8fd9\u4e9b\u60c5\u51b5,VBA\u662f\u5426\u6709\u65b9\u6cd5\u5e2e\u52a9\u6211\u4eec\u5feb\u901f\u8fdb\u884c\u8f6c\u6362\u5462\uff1f<\/p>\n<p>\u5176\u5b9e\u8fd8\u771f\u7684\u6709\uff0c\u65e5\u5e38\u5de5\u4f5c\u4e2d\u9700\u8981\u9762\u5bf9\u4e0d\u5c11\u7684\u5916\u8d44\u4f01\u4e1a\uff0c\u6709\u76f8\u5173\u7ecf\u5386\u7684\u7ae5\u978b\u4e00\u5b9a\u975e\u5e38\u7684\u6e05\u695a\uff0c\u90a3\u4e2a\u82f1\u6587\u540d\u5b57\u6216\u8005\u662f\u516c\u53f8\u540d\u5b57\uff0c\u90fd\u662f\u5e38\u5e38\u7684\u4e00\u6e9c\uff0c\u6211\u5bf9\u7740\u8d44\u6599\u6572\u5230\u7535\u8111\u4e0a\u5c31\u5df2\u7ecf\u5f88\u8d39\u529b\u4e86\uff0c\u53ef\u662f\u8001\u677f\u8fd8\u8981\u6c42\u4e00\u5b9a\u8981\u5168\u90e8\u8f6c\u6362\u6210\u5927\u5199\uff01\u4e3a\u4ec0\u4e48\uff1f\u56e0\u4e3a\u8fd9\u6837\u4e13\u4e1a\u554a\uff0c\u6ca1\u529e\u6cd5\u8001\u677f\u7684\u8981\u6c42\u6211\u4eec\u5c31\u8981\u6ee1\u8db3\uff0c\u4e0d\u7136\u600e\u4e48\u5403\u996d\u554a\uff0c\u53ef\u662f\u4e00\u4e2a\u5b57\u6bcd\u4e00\u4e2a\u5b57\u6bcd\u7684\u6539\u6210\u5927\u5199\uff0c\u8981\u6d6a\u8d39\u4e0d\u5c11\u7684\u65f6\u95f4\uff0c\u800c\u4e14\u6211\u6838\u5bf9\u4e5f\u597d\u56f0\u96be\u554a\uff0c\u65e2\u7136VBA\u8fd9\u4e48\u5389\u5bb3\uff0c\u80fd\u5b9e\u73b0\u8fd9\u4e2a\u529f\u80fd\u561b\uff1f<\/p>\n<p>\u51fd\u6570\u8bf4\u660e<\/p>\n<p>\u8981\u5b9e\u73b0\u82f1\u6587\u5927\u5c0f\u5199\u7684\u8f6c\u5316\uff0c\u4e5f\u4e0d\u96be\uff0c\u4e0a\u6b21\u6211\u4eec\u5206\u4eab\u6570\u5b57\u8f6c\u6362\u6210\u4e3a\u4e2d\u6587\u5927\u5c0f\u5199\u7684\u65f6\u5019\uff0c\u662f\u901a\u8fc7\u4e00\u4e2a\u7b80\u5355\u7684\u51fd\u6570\u89e3\u51b3\u7684\uff0c\u73b0\u5728\u82f1\u6587\u5927\u5c0f\u5199\u7684\u8f6c\u5316\u6211\u4eec\u4e5f\u53ef\u4ee5\u901a\u8fc7\u51fd\u6570\u6765\u89e3\u51b3\uff0c\u8bf7\u770b<\/p>\n<p>\u00b7\u00b7\u00b7vb<\/p>\n<p>Ucase (\u5b57\u7b26\u4e32\u5168\u90e8\u8f6c\u6362\u5927\u5199)<\/p>\n<p>Lcase\uff08\u5b57\u7b26\u4e32\u5168\u90e8\u8f6c\u6362\u5c0f\u5199<\/p>\n<p><pre><code>\u76f8\u5173\u7684\u4f7f\u7528\u8bf4\u660e\u90fd\u5df2\u7ecf\u8be6\u7ec6\u7684\u5907\u6ce8\u5728\u540e\u9762\u4e86\uff0c\u6211\u4eec\u8fd8\u662f\u901a\u8fc7\u4e00\u4e2a\u5b9e\u9645\u4f7f\u7528\u6848\u4f8b\u6765\u5c55\u793a\u4e0b\u6548\u679c\u5427\u3002\n&gt; \u4e0a\u4ee3\u7801\n```vb\nSub test()\nDim rng As Range\nFor Each rng In Selection\n    rng.Offset(0, 1) = LCase(rng.Value)\n    rng.Offset(0, 2) = UCase(rng.Value)\nNext rng\nEnd Sub\n<\/code><\/pre>\n<\/p>\n<p>\u6548\u679c\u5982\u56fe\uff1a<\/p>\n<p>\u6211\u5df2\u7ecf\u51c6\u5907\u597d\u4e86\u4e00\u4e9b\u5404\u79cd\u6bd4\u8f83\u590d\u6742\u7684\u82f1\u6587\u573a\u666f\uff0c\u6709\u4e2d\u82f1\u7ed3\u5408\u7684\uff0c\u6709\u82f1\u6587\u6570\u5b57\u7ed3\u5408\u7684\uff0c\u6709\u5927\u5c0f\u5199\u4e00\u8d77\u51fa\u73b0\u7684\uff0c\u53cd\u6b63\u5728\u8fd9\u4e2amoment\uff0c\u6211\u80fd\u60f3\u5230\u7684\u7ec4\u5408\u6211\u90fd\u5199\u4e0a\u53bb\u4e86<\/p>\n<p><img src='https:\/\/www.jianshu.com\/p\/image\/png' alt='\u82f1\u8bed\u6570\u5b57\u5199\u56fe\u7247\u5927\u5168_\u82f1\u8bed\u6570\u5b57\u5927\u5c0f\u5199\u8f6c\u6362\u5668_\u82f1\u8bed\u53e5\u578b\u8f6c\u6362\u5728\u7ebf\u8f6c\u6362' \/><\/p>\n<p>image.png<\/p>\n<p>\u8fd8\u662f\u548c\u4e0a\u4e00\u6b21\u4e00\u6837\u7684\u65b9\u5f0f\uff0c\u5c06\u82f1\u6587\u5927\u5199\uff0c\u82f1\u6587\u5c0f\u5199\u4e00\u8d77\u8f6c\u5316\u8f93\u51fa\uff0c\u8fd9\u6837\u5c31\u53ef\u4ee5\u5bf9\u6bd4\u6548\u679c\u548c\u4ee3\u7801\u7684\u7f16\u5199\u65b9\u5f0f\uff0c\u65b9\u4fbf\u5927\u5bb6\u5b66\u4e60\u53c2\u8003\u3002<\/p>\n<p><img src='https:\/\/www.jianshu.com\/p\/image\/png' alt='\u82f1\u8bed\u6570\u5b57\u5199\u56fe\u7247\u5927\u5168_\u82f1\u8bed\u6570\u5b57\u5927\u5c0f\u5199\u8f6c\u6362\u5668_\u82f1\u8bed\u53e5\u578b\u8f6c\u6362\u5728\u7ebf\u8f6c\u6362' \/><\/p>\n<p>image.png<\/p>\n<p>\u4ee3\u7801\u6267\u884c\u5b8c\u6bd5\uff0c\u975e\u5e38\u5b8c\u7f8e\uff0c\u6210\u529f\u7684\u82f1\u6587\u8f6c\u5316\u6210\u4e3a\u6765\u6211\u4eec\u9700\u8981\u7684\u6548\u679c\uff0c\u800c\u5176\u4ed6\u7684\u8bf8\u5982\u6570\u5b57\uff0c\u4e2d\u6587\u7b49\u5e76\u6ca1\u6709\u6536\u5230\u4efb\u4f55\u7684\u5f71\u54cd\uff0c\u662f\u4e0d\u662fso good \u554a\u3002<\/p>\n<p>\u4ee3\u7801\u89e3\u6790<\/p>\n<p>\u611f\u89c9\u4ee3\u7801\u4e5f\u6ca1\u6709\u4ec0\u4e48\u9700\u8981\u89e3\u6790\u7684\u4e86\uff0c\u548c\u4e0a\u4e00\u6b21\u5206\u4eab\u7684\u51e0\u4e4e\u5dee\u4e0d\u591a\uff0c\u6362\u4e86\u4e00\u4e2a\u77e5\u8bc6\u70b9\u800c\u5df2\uff0c\u5927\u5bb6\u53ea\u9700\u8981\u8bb0\u4f4f\u8fd9\u4e24\u79cd\u7528\u6cd5\u5c31\u53ef\u4ee5\u4e86\u3002 \u4e0d\u5982\u6211\u4eec\u5ef6\u4f38\u4e0b\uff0c\u5047\u8bbe\u6211\u4eec\u8981\u5c06\u67d0\u6587\u4ef6\u5939\u5185\u7684\u6587\u4ef6\u5168\u90e8\u540d\u5b57\u6362\u6210\u82f1\u6587\u5927\u5199\uff0c\u7efc\u5408\u6211\u4eec\u4e4b\u524d\u5b66\u8fc7\u7684\u6587\u4ef6\u5939\u7684\u904d\u5386\uff0c\u9009\u62e9\u7a97\u4f53\u7b49\u77e5\u8bc6\uff0c\u6211\u4eec\u5728\u590d\u4e60\u4e0b<\/p>\n<p><pre><code class=\"vb\">Sub test()\nDim FileName$, OldNames$, NewName$\nWith Application.FileDialog(msoFileDialogFolderPicker)\n.Title = \"\u8bf7\u9009\u62e9\u8981\u8f6c\u6362\u4e2d\u6587\u5927\u5c0f\u5199\u7684\u6587\u4ef6\u7684\u6587\u4ef6\u5939\"\n    If .Show = -1 Then\n        FileName = Dir(.SelectedItems(1) &amp; \"\")\n        Do While FileName  \"\"\n            OldName = Split(FileName, \"\")(UBound(Split(FileName, \"\")))\n            NewName = UCase(OldName)\n            Name (.SelectedItems(1) &amp; \"\" &amp; FileName) As (.SelectedItems(1) &amp; \"\" &amp; NewName)\n            FileName = Dir()\n        Loop\n    End If\nEnd With\nEnd Sub\n<\/code><\/pre>\n<\/p>\n<p>\u6548\u679c\u5982\u4e0b\u56fe\uff0c\u6210\u529f\u7684\u67d0\u6587\u4ef6\u5939\u4e0b\u6240\u6709\u82f1\u6587\u5207\u6362\u6210\u4e3a\u4e86\u5927\u5199\u72b6\u6001\u4e86\u3002<\/p>\n<p><img src='https:\/\/www.jianshu.com\/p\/image\/png' alt='\u82f1\u8bed\u6570\u5b57\u5199\u56fe\u7247\u5927\u5168_\u82f1\u8bed\u6570\u5b57\u5927\u5c0f\u5199\u8f6c\u6362\u5668_\u82f1\u8bed\u53e5\u578b\u8f6c\u6362\u5728\u7ebf\u8f6c\u6362' \/><\/p>\n<p>image.png<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u524d\u666f\u63d0\u8981 \u6628\u5929\u5206\u4eab\u4e86\u4e00\u4e9b\u6570\u5b57\u7684\u4e2d\u6587\u5927\u5c0f\u5199\u7684\u8f6c\u6362\u4e4b\u540e\uff0c\u4e5f\u662f\u6536\u5230\u4e86\u4e0d\u5c11\u7684\u53cd\u9988\uff0c\u5927\u5bb6\u90fd\u89c9\u5f97\u8fd9\u4e2a\u65b9\u6cd5\u975e\u5e38\u7684\u5b9e\u7528\uff0c\u6211\u81ea\u5df1\u4e5f\u662f\u975e\u5e38\u7684\u5f00\u5fc3\uff0c\u6bd5\u7adf\u6211\u5206\u4eab\u7684\u4e1c\u897f\u8fd8\u662f\u80fd\u591f\u5e2e\u52a9\u5230\u5927\u5bb6\u7684\uff0c\u540c\u65f6\u4e5f\u6709\u4e0d&#8230;<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[1],"tags":[557,556,558,250,555],"_links":{"self":[{"href":"https:\/\/www.gzlcy.cn\/index.php?rest_route=\/wp\/v2\/posts\/284"}],"collection":[{"href":"https:\/\/www.gzlcy.cn\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.gzlcy.cn\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.gzlcy.cn\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.gzlcy.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=284"}],"version-history":[{"count":0,"href":"https:\/\/www.gzlcy.cn\/index.php?rest_route=\/wp\/v2\/posts\/284\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.gzlcy.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=284"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.gzlcy.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=284"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.gzlcy.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=284"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}