{"author_url":"https://blog.hatena.ne.jp/Infoment/","provider_url":"https://hatena.blog","height":"190","title":"\u9032\u6357\u3092\u78ba\u8a8d\u3059\u308b \u2462 \u6b8b\u308a\u6642\u9593\u3092\u63a8\u6e2c\u3059\u308b\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb","categories":["Excel","VBA","\u4f5c\u3063\u3066\u307f\u305f","\u5931\u6557\u8ac7"],"author_name":"Infoment","version":"1.0","url":"https://infoment.hatenablog.com/entry/2019/02/01/182657","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Finfoment.hatenablog.com%2Fentry%2F2019%2F02%2F01%2F182657\" title=\"\u9032\u6357\u3092\u78ba\u8a8d\u3059\u308b \u2462 \u6b8b\u308a\u6642\u9593\u3092\u63a8\u6e2c\u3059\u308b\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb - 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>","description":"\u6628\u65e5\u306f\u3001\u4f55\u67d0\u304b\u306e\u51e6\u7406\u306b\u3064\u3044\u3066\u9032\u6357\u3092\u78ba\u8a8d\u3057\u3001\u3055\u3089\u306b\u6b8b\u308a\u6642\u9593\u3092\u63a8\u6e2c\u3059\u308b\u3053\u3068\u306b\u6311\u6226\u3057\u305f\u3002 infoment.hatenablog.com \u6298\u89d2\u4f5c\u3063\u305f\u306e\u3067\u3001\u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u3057\u3066\u307f\u305f\u3002 \u30af\u30e9\u30b9\u30e2\u30b8\u30e5\u30fc\u30eb\uff08ProgressClass\uff09 Option Explicit ' \u958b\u59cb\u6642\u523b Dim StartTime As Single ' \u7d4c\u904e\u51e6\u7406\u6570 Dim progress_index As Long ' \u6700\u5927\u51e6\u7406\u6570 Public iMax As Long ' \u6e2c\u5b9a\u958b\u59cb\u3002 Private Sub Class_Initialize() StartTime = Timer End Sub ' \u30b9\u30c6\u30fc\u30bf\u30b9\u30d0\u30fc\u3092\u30ea\u30bb\u2026","type":"rich","provider_name":"Hatena Blog","blog_title":"Infoment\u306e\u30d6\u30ed\u30b0 \uff5eExcel VBA\u596e\u95d8\u8a18\uff5e","published":"2019-02-01 18:26:57","blog_url":"https://infoment.hatenablog.com/","width":"100%","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/I/Infoment/20190201/20190201181906.png"}