|
▼Yuki さん:
ご指導ありがとうございます。
しかし、プログラムが言うことを聞いてくれません。
標準モジュールに書いたのですが。。。
>▼初心者 さん:
>> シートの1〜10までは削除せず、それらを除いた残りのシートを選択して
>> 削除するにはどういう風にかけばいいのでしょうか。
>
>こんにちは。
>シート名 1〜10以外は全部削除します。
>注意して下さい。
>
>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
|
|