Excel VBA質問箱 IV

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

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


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

18597 / 76732

←次へ　｜　前へ→


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

初心者 - 09/11/18(水) 16:22 -


	引用なし

	パスワード

▼Ｙｕｋｉさん：
ご指導ありがとうございます。

しかし、プログラムが言うことを聞いてくれません。
標準モジュールに書いたのですが。。。

>▼初心者さん：
>>　シートの１～１０までは削除せず、それらを除いた残りのシートを選択して
>>　削除するにはどういう風にかけばいいのでしょうか。
>
>こんにちは。
>シート名　１～１０以外は全部削除します。
>注意して下さい。
>
>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

2 hits

▼

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