{"author_url":"https://blog.hatena.ne.jp/HTN20190109/","blog_url":"https://htn20190109.hatenablog.com/","title":"VBA(\u30ef\u30fc\u30af\u30d6\u30c3\u30af\u66f8\u304d\u8fbc\u307f)","provider_name":"Hatena Blog","description":"Sub \u30dc\u30bf\u30f3_Click() '\u753b\u9762\u3092\u66f4\u65b0\u3057\u306a\u3044Application.ScreenUpdating = False'\u78ba\u8a8d\u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u8868\u793a\u3057\u306a\u3044Application.DisplayAlerts = False '\u73fe\u5728\u306e\u30d5\u30a9\u30eb\u30c0\u3092\u53d6\u5f97Dim path As Stringpath = ActiveWorkbook.path '\u30a4\u30df\u30c7\u30a3\u30a8\u30a4\u30c8\u30a6\u30a3\u30f3\u30c9\u30a6\u306b\u8868\u793aDebug.Print (path) '\u73fe\u5728\u306e\u30d5\u30a9\u30eb\u30c0\u3078\u79fb\u52d5ChDir path '\u30ef\u30fc\u30af\u30d6\u30c3\u30af\u4f5c\u6210Dim wb As WorkbookSet wb = Workbooks.Add '\u30b7\u30fc\u30c8\u540d\u53d6\u5f97Dim sheetName As String\u2026","provider_url":"https://hatena.blog","version":"1.0","categories":["VBA"],"height":"190","width":"100%","type":"rich","author_name":"HTN20190109","published":"2020-12-06 17:42:02","url":"https://htn20190109.hatenablog.com/entry/2020/12/06/174202","blog_title":"HTN20190109\u306e\u65e5\u8a18","image_url":null,"html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhtn20190109.hatenablog.com%2Fentry%2F2020%2F12%2F06%2F174202\" title=\"VBA(\u30ef\u30fc\u30af\u30d6\u30c3\u30af\u66f8\u304d\u8fbc\u307f) - HTN20190109\u306e\u65e5\u8a18\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>"}