{"published":"2019-01-11 23:15:33","categories":["Excel","VBA"],"height":"190","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/I/Infoment/20190111/20190111224333.png","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Finfoment.hatenablog.com%2Fentry%2F2019%2F01%2F11%2F231533\" title=\"\u30d7\u30ea\u30f3\u30bf\u306e\u4e00\u89a7\u3092\u53d6\u5f97\u3057\u3066\u30ea\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306b\u8868\u793a - Infoment\u306e\u30d6\u30ed\u30b0 \uff5eExcel VBA\u596e\u95d8\u8a18\uff5e\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_url":"https://infoment.hatenablog.com/","type":"rich","width":"100%","version":"1.0","provider_url":"https://hatena.blog","title":"\u30d7\u30ea\u30f3\u30bf\u306e\u4e00\u89a7\u3092\u53d6\u5f97\u3057\u3066\u30ea\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306b\u8868\u793a","url":"https://infoment.hatenablog.com/entry/2019/01/11/231533","blog_title":"Infoment\u306e\u30d6\u30ed\u30b0 \uff5eExcel VBA\u596e\u95d8\u8a18\uff5e","description":"\u4eca\u65e5\u306e\u8077\u5834\u3067\u306e\u52c9\u5f37\u4f1a\u30c6\u30fc\u30de\u3002\u5099\u5fd8\u9332\u3068\u3057\u3066\u3053\u3053\u306b\u6b8b\u3057\u3066\u304a\u304f\u3002 \u30c6\u30fc\u30de\uff1a\u30d7\u30ea\u30f3\u30bf\u306e\u4e00\u89a7\u3092\u53d6\u5f97\u3057\u3066\u3001\u30ea\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306b\u8868\u793a\u3059\u308b\u3002 \u53c2\u7167\u8a2d\u5b9a \u30d7\u30ea\u30f3\u30bf\u306e\u4e00\u89a7\u3092\u53d6\u5f97\u3059\u308b\u305f\u3081\u306b\u3001\u53c2\u7167\u8a2d\u5b9a\u3092\u884c\u3046\u3002 \u300cMicrosoft Shell Controls And Automation\u300d \u3044\u3064\u3082\u306e\u3088\u3046\u306b\u4eca\u56de\u3082\u3001\u52c9\u5f37\u4f1a\u3067\u306f\uff12\u30c1\u30fc\u30e0\u306b\u5206\u304b\u308c\u3066\u30de\u30af\u30ed\u3092\u4f5c\u6210\u3002 AddItem\u3067\u9805\u76ee\u4f5c\u6210 \uff21\u30c1\u30fc\u30e0\u306f\u3001\u8907\u6570\u3042\u308b\u30d7\u30ea\u30f3\u30bf\u540d\u3092\u4e00\u3064\u305a\u3064\u53d6\u5f97\u3057\u3066\u3001\u30ea\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306b\u8ffd\u52a0\u3059\u308b\u65b9\u6cd5\u3092\u63a1\u7528\u3057\u305f\u3002 Private Sub UserForm_Initialize() Dim ShellApp As Shell32.Shell Set ShellAp\u2026","author_name":"Infoment","author_url":"https://blog.hatena.ne.jp/Infoment/","provider_name":"Hatena Blog"}