Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

18673 / 76807

←次へ　｜　前へ→


	【63574】Re:シートの選択、削除

Ｙｕｋｉ - 09/11/18(水) 15:37 -


	引用なし

	パスワード

▼初心者さん：
>　シートの１～１０までは削除せず、それらを除いた残りのシートを選択して
>　削除するにはどういう風にかけばいいのでしょうか。

こんにちは。
シート名　１～１０以外は全部削除します。
注意して下さい。

Sub SheetDelete()
　　Dim sht()　 As String
　　Dim i　　　 As Long
　　Dim j　　　 As Long
　　
　　For i = 1 To Worksheets.Count
　　　　If Not (StrConv(Worksheets(i).Name, vbNarrow) >= 1 _
　　　　And StrConv(Worksheets(i).Name, vbNarrow) <= 10) Then
　　　　　　ReDim Preserve sht(j)
　　　　　　sht(j) = Worksheets(i).Name
　　　　　　j = j + 1
　　　　End If
　　Next
　　Application.DisplayAlerts = False
　　If Sgn(sht) > 0 Then
　　　　Worksheets(sht).Delete
　　End If
　　Application.DisplayAlerts = True
End Sub

0 hits

▼

【63571】シートの選択、削除 初心者 09/11/18(水) 14:48