| |
▼dansyaku03 さん：
>シートの見出しの色を指定してシートをアクティブにする事は出来るのでしょうか？
「マクロの記録」を使って、シートの見出しの色を設定すると
Sheets("Sheet1").Select
ActiveWorkbook.Sheets("Sheet1").Tab.ColorIndex = 3
というコードが出来上がります。(Excel2003)
ここから、シートオブジェクトのTabプロパティのColorIndexプロパティを見れば
対象シートを限定できるのではないかなと見当がつきます。
見出しの色をキーにしてすべてのシートからさがすという処理になります。
つまり、For Eachを使って
Dim sht As Object
Dim targetColor As XlColorIndex
targetColor = 3 ' 探したい色(サンプルとして赤)
' すべてのシートのから探す
For Each sht In ActiveWorkbook.Sheets
' 該当の色か
If sht.Tab.ColorIndex = targetColor Then
' アクティブに
sht.Activate
' １つ見つかったので探すのをやめる
Exit For
End If
Next
のようなコードになります。
|
|
Blue
- 07/5/22(火) 11:43 -
