ExcelVBA～アクティブシートの右側のシートを消す。「ActiveSheet.Index」の活用

投稿日 : 2022-10-08 最終更新日時 : 2022-10-08 投稿者 : vfaupe7 カテゴリー : 075012＿Excel2000VBATips

ExcelVBA～アクティブシートの右側のシートを消す。「ActiveSheet.Index」の活用
　　
※まだ書きかけです。すみません。
※間違ってたらすみません。
※メモ書きなので、自分でも意味不明な箇所も多いです。ごめんなさい。

参考URL
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q14269178099

「ActiveSheet.Index」を使うと、
「For Each などを使って、AcriveSheetが左からどの位置にあるかを調べる」・・・
といったことをしなくても済みます。

なので、プログラムが短くなります。

もちろん、冒頭のURLのように、For Eachと組み合わせてもいいと思います。

'
'
Sub test()


    Dim cnt As Long
    
    Application.DisplayAlerts = False
    
    For cnt = Sheets.Count To ActiveSheet.Index + 1 Step -1
    Sheets(cnt).Delete
    Next cnt
    
    Application.DisplayAlerts = True
    
End Sub


'
'

Sub test()

Dim cnt As Long

Application.DisplayAlerts = False

For cnt = Sheets.Count To ActiveSheet.Index + 1 Step -1

Sheets(cnt).Delete

Next cnt

Application.DisplayAlerts = True

End Sub

'
'
'
'

'
'
'
'

MENU

関連記事

最近の投稿

カテゴリー

MENU

ExcelVBA～アクティブシートの右側のシートを消す。「ActiveSheet.Index」の活用

関連記事

最近の投稿

カテゴリー

タグ