Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3082 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【64533】シートタブの色で　シートを選択できませんか？ nkd 10/2/20(土) 11:39 質問[未読]
【64534】Re:シートタブの色で　シートを選択できま... 超初心者 10/2/20(土) 13:21 発言[未読]
【64535】Re:シートタブの色で　シートを選択できま... nkd 10/2/20(土) 13:45 お礼[未読]
【64533】シートタブの色で　シートを選択できませ...
質問  nkd  - 10/2/20(土) 11:39 -
引用なし
パスワード
   初めまして

シート名は　１〜４０程度の数字ですが、
データの形式が　３種類くらい　あって　種類ごとに選択したいのですが

種類ごとにシートタブに色分けをしています。

シートタブの同じ色を選択出来れば簡単なんですが
出来ませんでした。

選択した　同じ範囲のデータを消したいのですが

おなじ色のシートタブを　選択する方法は無いでしょうか？

以下のコードでは　全部選択されてしまいます。

Sub シートの選択()
　　　　　　
　　Dim myShtcor　　 As Worksheet
　　　　　　
　　　　　　
　　　　　　For Each myShtcor In Worksheets　　
　　　　　　　　If myShtcor.Tab.ColorIndex = 10 Then
　　　　
　　　　　　　　Worksheets.Select　
　　　　　　　　Exit Sub
　　　　　　　　End If
　　　　　　　　
　　　　　　Next

End Sub


よろしくお願いいたします。
【64534】Re:シートタブの色で　シートを選択でき...
発言  超初心者  - 10/2/20(土) 13:21 -
引用なし
パスワード
   ▼nkd さん：

> Worksheets.Select
　myShtcor.Select

こんな感じでいかがでしょう。
【64535】Re:シートタブの色で　シートを選択でき...
お礼  nkd  - 10/2/20(土) 13:45 -
引用なし
パスワード
   ▼超初心者 さんへ

あっさりと出来てしまいました。

ありがとうございました。

これで　無駄なエラーコードを入れなくて済みました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3082 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free