{"height":"190","author_name":"Infoment","title":"1\u30de\u30b9\uff11\u6587\u5b57\u306e\u5165\u529b\u652f\u63f4","provider_url":"https://hatena.blog","categories":["Excel","VBA","\u30e6\u30fc\u30b6\u30fc\u5b9a\u7fa9\u95a2\u6570"],"blog_title":"Infoment\u306e\u30d6\u30ed\u30b0 \uff5eExcel VBA\u596e\u95d8\u8a18\uff5e","version":"1.0","type":"rich","blog_url":"https://infoment.hatenablog.com/","provider_name":"Hatena Blog","author_url":"https://blog.hatena.ne.jp/Infoment/","published":"2018-08-30 23:21:27","width":"100%","url":"https://infoment.hatenablog.com/entry/2018/08/30/232127","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Finfoment.hatenablog.com%2Fentry%2F2018%2F08%2F30%2F232127\" title=\"1\u30de\u30b9\uff11\u6587\u5b57\u306e\u5165\u529b\u652f\u63f4 - 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>","image_url":"https://cdn-ak.f.st-hatena.com/images/fotolife/I/Infoment/20180830/20180830222905.png","description":"\u5148\u65e5\u3053\u3061\u3089\u2193\u3067\u3001Excel \u65b9\u773c\u7d19\u306e\u5165\u529b\u652f\u63f4\u6a5f\u80fd\u304c\u7d39\u4ecb\u3055\u308c\u3066\u3044\u307e\u3057\u305f\u3002www.excelspeedup.com\u79c1\u3082\u4eca\u307e\u3067\u306b\u4f55\u5ea6\u304b\u3001\u300c\uff11\u30de\u30b9\uff11\u6587\u5b57\u300d\u306e\u5e33\u7968\u306b\u51fa\u304f\u308f\u3057\u3066\u5165\u529b\u652f\u63f4\u6a5f\u80fd\u3092\u76db\u308a\u8fbc\u3093\u3060\u3053\u3068\u304c\u3042\u308a\u307e\u3057\u305f\u306e\u3067\u3001\u4fbf\u4e57\u3057\u3066\u53c2\u8003\u307e\u3067\u306b\u7d39\u4ecb\u3057\u307e\u3059\u3002 \u4f8b\uff09\uff15\u6841\u306e\u6570\u5b57\u3092\u5165\u529b \uff11\u30de\u30b9\u305a\u3064\u306e\u5165\u529b\u306f\u9762\u5012\u306a\u306e\u3067\u3001\u30de\u30af\u30ed\u3092\u4f7f\u3063\u3066\u4e00\u6c17\u306b\u5165\u529b\u3057\u307e\u3059\u3002\u5165\u529b\u306b\u306f\u3001Inputbox\u3092\u4f7f\u7528\u3057\u307e\u3059\u3002 Function GetInputNumber() As Long Dim InputNumber As Long InputNumber = Application.InputBox(\"\uff15\u6841\u306e\u6570\u5b57\u3092\u5165\u529b\u3057\u3066\u304f\u3060\u3055\u3044\", _ Tit\u2026"}