特定のシートの右隣から一番右端までのシートを削除するには? | |
---|---|
[194825] 特定のシートの右隣から一番右端までのシートを削除するには?- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ 清水 -(2022/04/16(21:12)) □U R L/ こんばんは いつも、ありがとうございます。 特定のシートの右隣から一番右端までのシートを削除する方法を教えて下さい。 特定のシート名:実績 が有ります。 実績のシートの右隣から一番右端のシートが全て削除され、 その際に、 【このシートは完全に削除されます。続けますか?】 削除 キャンセル の確認メッセージ?が表示されないで、削除する方法を ご教示のほどよろしくお願い致します。 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ |
[194826] Re[1]: 特定のシートの右隣から一番右端までのシートを削除するには?- ■記事引用/メール受信=OFF■ □投稿者/ ピンク -(2022/04/17(06:41)) □U R L/ 参考に Dim i As Long Application.DisplayAlerts = False For i = Sheets.Count To 1 Step -1 If Sheets(i).Name = "実績" Then Exit For Sheets(i).Delete Next Application.DisplayAlerts = True この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 |
[194827] Re[2]: 特定のシートの右隣から一番右端までのシートを削除するには?- ■記事引用/メール受信=OFF■ □投稿者/ ピンク -(2022/04/17(06:55)) □U R L/ 右隣から削除 Dim sh As Worksheet Application.DisplayAlerts = False Do Set sh = Sheets("実績").Next If sh Is Nothing Then Exit Do sh.Delete Loop Application.DisplayAlerts = True この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 |
[194828] Re[3]: 特定のシートの右隣から一番右端までのシートを削除するには?- ■ / 記事引用/メール受信=OFF■ □投稿者/ 清水 -(2022/04/17(08:35)) □U R L/ ピンクさま おはようございます。 2つも教えて頂きありがとうございます。 F8を押しながら動作を確認させて頂きました。 とても参考に勉強になります。 この度は、ありがとうございました、 |
このトピックに書きこむ |
---|