{"type":"rich","height":"190","blog_title":"mattintosh note","categories":["Windows","Excel","VBA"],"title":"\u30a8\u30af\u30bb\u30eb\u3067\u30d5\u30a1\u30a4\u30eb\u306e\u4f5c\u6210\u65e5\u6642\u3068\u66f4\u65b0\u65e5\u6642\u3092\u8abf\u3079\u3066\u6bd4\u8f03\u3059\u308b","url":"https://mattintosh-note.jp/entry/20141231/1420018665","provider_name":"Hatena Blog","provider_url":"https://hatena.blog","author_url":"https://blog.hatena.ne.jp/mattintosh4/","description":"\u5bfe\u8c61\u306e\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u3092\u518d\u5e30\u7684\u306b\u8abf\u3079\u3001\u5404\u30c7\u30a3\u30ec\u30af\u30c8\u30ea\u306b\u542b\u307e\u308c\u308b\u30d5\u30a1\u30a4\u30eb\u306e\u4f5c\u6210\u65e5\u6642\u3068\u6700\u7d42\u66f4\u65b0\u65e5\u6642\u3092\u6bd4\u8f03\u3059\u308b\u30de\u30af\u30ed\u3002\u5dee\u7570\u304c\u3042\u308b\u30d5\u30a1\u30a4\u30eb\u306b\u95a2\u3057\u3066\u306f\u80cc\u666f\u8272\u3092\u5909\u66f4\u3059\u308b\u3002 Option Explicit Sub foo() Dim strFindroot strFindroot = \"C:\\WINDOWS\\System32\" ''' Init ''' Cells.Clear Cells.Delete Dim intCounter intCounter = 1 recursive strFindroot, intCounter ''' Format ''' Columns(1).HorizontalAlignm\u2026","width":"100%","blog_url":"https://mattintosh-note.jp/","version":"1.0","published":"2014-12-31 18:37:45","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmattintosh-note.jp%2Fentry%2F20141231%2F1420018665\" title=\"\u30a8\u30af\u30bb\u30eb\u3067\u30d5\u30a1\u30a4\u30eb\u306e\u4f5c\u6210\u65e5\u6642\u3068\u66f4\u65b0\u65e5\u6642\u3092\u8abf\u3079\u3066\u6bd4\u8f03\u3059\u308b - mattintosh note\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","image_url":"https://cdn-ak2.f.st-hatena.com/images/fotolife/m/mattintosh4/20010323/20010323144150.png","author_name":"mattintosh4"}