{"id":1855,"date":"2022-10-08T23:13:34","date_gmt":"2022-10-08T14:13:34","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=1855"},"modified":"2022-10-08T23:20:19","modified_gmt":"2022-10-08T14:20:19","slug":"activesheet-index","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/activesheet-index","title":{"rendered":"ExcelVBA\uff5e\u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u306e\u53f3\u5074\u306e\u30b7\u30fc\u30c8\u3092\u6d88\u3059\u3002\u300cActiveSheet.Index\u300d\u306e\u6d3b\u7528"},"content":{"rendered":"<p>ExcelVBA\uff5e\u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u306e\u53f3\u5074\u306e\u30b7\u30fc\u30c8\u3092\u6d88\u3059\u3002\u300cActiveSheet.Index\u300d\u306e\u6d3b\u7528<br \/>\n<SPAN>\u3000\u3000<\/SPAN><br \/>\n<span style=\"color: #ff0000;\">\u203b\u307e\u3060\u66f8\u304d\u304b\u3051\u3067\u3059\u3002\u3059\u307f\u307e\u305b\u3093\u3002<\/span><br \/>\n<span style=\"color: #ff0000;\">\u203b\u9593\u9055\u3063\u3066\u305f\u3089\u3059\u307f\u307e\u305b\u3093\u3002<\/span><br \/>\n<span style=\"color: #ff0000;\">\u203b\u30e1\u30e2\u66f8\u304d\u306a\u306e\u3067\u3001\u81ea\u5206\u3067\u3082\u610f\u5473\u4e0d\u660e\u306a\u7b87\u6240\u3082\u591a\u3044\u3067\u3059\u3002\u3054\u3081\u3093\u306a\u3055\u3044\u3002<\/span><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u53c2\u8003URL<br \/>\n<a href=\"https:\/\/detail.chiebukuro.yahoo.co.jp\/qa\/question_detail\/q14269178099\" target=\"_blank\" rel=\"noopener noreferrer\">https:\/\/detail.chiebukuro.yahoo.co.jp\/qa\/question_detail\/q14269178099<\/a><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p>\u300cActiveSheet.Index\u300d\u3092\u4f7f\u3046\u3068\u3001<br \/>\n\u300cFor Each \u306a\u3069\u3092\u4f7f\u3063\u3066\u3001AcriveSheet\u304c\u5de6\u304b\u3089\u3069\u306e\u4f4d\u7f6e\u306b\u3042\u308b\u304b\u3092\u8abf\u3079\u308b\u300d\u30fb\u30fb\u30fb<br \/>\n\u3068\u3044\u3063\u305f\u3053\u3068\u3092\u3057\u306a\u304f\u3066\u3082\u6e08\u307f\u307e\u3059\u3002<\/p>\n<p>\u306a\u306e\u3067\u3001\u30d7\u30ed\u30b0\u30e9\u30e0\u304c\u77ed\u304f\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>\u3082\u3061\u308d\u3093\u3001\u5192\u982d\u306eURL\u306e\u3088\u3046\u306b\u3001For Each\u3068\u7d44\u307f\u5408\u308f\u305b\u3066\u3082\u3044\u3044\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\nSub test()\r\n\r\n\r\n    Dim cnt As Long\r\n    \r\n    Application.DisplayAlerts = False\r\n    \r\n    For cnt = Sheets.Count To ActiveSheet.Index + 1 Step -1\r\n    Sheets(cnt).Delete\r\n    Next cnt\r\n    \r\n    Application.DisplayAlerts = True\r\n    \r\nEnd Sub\r\n\r\n\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\n'\r\n'\r\n<\/pre>\n<pre class=\"lang:default decode:true \">\r\n'\r\n'\r\n'\r\n'\r\n<\/pre>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n<p><SPAN>\u3000\u3000<\/SPAN><\/p>\n","protected":false},"excerpt":{"rendered":"ExcelVBA\uff5e\u30a2\u30af\u30c6\u30a3\u30d6\u30b7\u30fc\u30c8\u306e\u53f3\u5074\u306e\u30b7\u30fc\u30c8\u3092\u6d88\u3059\u3002\u300cActiveSheet.Index\u300d\u306e\u6d3b\u7528 \u3000\u3000 \u203b\u307e\u3060\u66f8\u304d\u304b\u3051\u3067\u3059\u3002\u3059\u307f\u307e\u305b\u3093\u3002 \u203b\u9593\u9055\u3063\u3066\u305f\u3089\u3059\u307f\u307e\u305b\u3093\u3002 \u203b\u30e1\u30e2\u66f8\u304d\u306a\u306e\u3067\u3001\u81ea\u5206\u3067\u3082\u610f\u5473\u4e0d\u660e\u306a\u7b87\u6240\u3082\u591a\u3044\u3067\u3059 ...","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[234],"_links":{"self":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1855"}],"collection":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/comments?post=1855"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1855\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=1855"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=1855"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}