[[20120502142040]]　『セルの数値でシート名背景色変更』（Myu）　ページの最後に飛ぶ

『セルの数値でシート名背景色変更』（Myu）

 B5に数値が入っており、その数値によりシート名の拝啓を
 変更したいのですが、可能でしょうか？
 条件付き書式でやってみたのですが、セルの背景色は変更できるの
 ですが、シート名の背景色は変更できません。
 例えば、2000以上なら無色、2000未満1000以上なら黄色、
 1000未満なら赤　みたいな感じでやれると助かるのですが。
 ご教授をお願いします。
 Windows 7　Excel2010

 Private Sub Worksheet_Change(ByVal Target As Range)

     With ActiveSheet
         Select Case Range("B5").Value
             Case 1 To 999
                 .Tab.ColorIndex = 3
             Case 1000 To 1999
                 .Tab.ColorIndex = 6
             Case Else
                 .Tab.ColorIndex = xlNone
         End Select
     End With

 End Sub

 というのはどうでしょうか？

 (se_9)

se_9さん、ありがとうございます。

 とことで、大変基本的なことなのですが、
 このマクロをどこに貼り付ければよいでのでしょうか？
 標準モジュールではないみたいで…
 Private Sub Worksheet…で分かるのかもしれませんが
 標準モジュールしか使用したことがないので
 教えていただけますか。
 素人質問で申し訳ありません。

 シートタブの色を変えたいシートのシートタブを右クリックしてコードの表示を選択したときに表示されるところ(シートモジュール)に入れてみて。
 (春日野馨)

 もし、ブックにあるシート全部に反映させたいときはThisWorkbookのところに

 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    With Sh
         Select Case .Range("B5").Value
             Case 1 To 999
                 .Tab.ColorIndex = 3
             Case 1000 To 1999
                 .Tab.ColorIndex = 6
             Case Else
                 .Tab.ColorIndex = xlNone
         End Select
     End With
 End Sub
 ってしてみて。
 (春日野馨)

se_9さん、春日さん、ありがとうございます。

 ThisWorkbookに入力したところ、思った通りに動きました。
 素人質問に親切に対応して頂き大変感謝しております。

コメント返信：

[ 一覧(最新更新順) ]

[[20120502142040]] 『セルの数値でシート名背景色変更』（Myu） ページの最後に飛ぶ

[[20120502142040]]　『セルの数値でシート名背景色変更』（Myu）　ページの最後に飛ぶ