Excel VBA質問箱 IV

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

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


50577 / 76732 ←次へ | 前へ→

【31040】Re:sheetの番号変更
回答  Hirok  - 05/11/9(水) 19:51 -

引用なし
パスワード
   ▼フレッツ さん:
今晩は・・・
>この場合は、sheet1,sheet2を残してシート名を他の名にしました100シート以上くらいです。
>それで作ったシートをすべて削除したくなったので。
>forステートメント でインデックスを一個づつ
>削除しようとおもったのですが、sheet1,sheet2
>だけを残す方法もわからず、for each だと全部消してしまい
>四苦八苦しているところでした。

sheet1とsheet2を残すには・・・
私はこんな風にしています・・・間違っていたら⇒ゴミ箱へ

Sub シートABCとBCD() '残すシートを例えば「ABCとBCD」とします。

  Dim ST_Name As String
  Dim sht As Object
  
  For Each sht In Sheets
    If sht.Name <> "ABC" And sht.Name <> "BCD" Then Call del_sheet(sht.Name)
   Next
  End Sub

Sub del_sheet(ST_Name As String)
  On Error Resume Next
  Application.DisplayAlerts = False
  Sheets(ST_Name).Delete
  On Error GoTo 0
  Application.DisplayAlerts = True

>インデックスを並べたい理由は順番どおり並べていた方が
>コードの実行が確実になるのではと思ったのと、
>見た目が悪いなと思ったからです。

消したシートを復活させると連番に並びますよ。
消したり復活(新しいシートを増やす)を繰り返す
という、繰り返して操作をすると
例えば21から31のシートが
次は32からシートが40・・・と並びどんどん数字が
大きく累積されて行きます。
0 hits

【30726】sheetの番号変更 フレッツ 05/11/4(金) 4:07 質問
【30728】Re:sheetの番号変更 だるま 05/11/4(金) 7:21 回答
【30729】Re:sheetの番号変更 ichinose 05/11/4(金) 8:05 発言
【30734】Re:sheetの番号変更 Jaka 05/11/4(金) 9:31 発言
【30739】Re:sheetの番号変更 ichinose 05/11/4(金) 10:50 発言
【30743】Re:sheetの番号変更 Jaka 05/11/4(金) 11:39 発言
【30747】Re:sheetの番号変更 ichinose 05/11/4(金) 12:20 発言
【30753】Re:sheetの番号変更 Jaka 05/11/4(金) 14:03 発言
【30762】Re:sheetの番号変更 フレッツ 05/11/4(金) 14:51 質問
【30772】Re:sheetの番号変更 Jaka 05/11/4(金) 15:37 回答
【31040】Re:sheetの番号変更 Hirok 05/11/9(水) 19:51 回答
【30789】Re:sheetの番号変更 ichinose 05/11/4(金) 18:20 発言
【31026】Re:sheetの番号変更 Jaka 05/11/9(水) 14:45 発言

50577 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free