□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| 特定のシートの右隣から一番右端までのシートを削除するには？ | |
|---|---|
[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を押しながら動作を確認させて頂きました。 とても参考に勉強になります。 この度は、ありがとうございました、 | |