Excel VBA質問箱 IV

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

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


3061 / 13644 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   初めまして

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

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

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

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

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

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

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 -

引用なし
パスワード
   ▼超初心者 さんへ

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

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

これで 無駄なエラーコードを入れなくて済みました。

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