一部のシートタブのみ色付けしない | |
---|---|
[195173] 一部のシートタブのみ色付けしない- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ 辻貞雄 -(2022/08/31(14:51)) □U R L/ いつもお世話になります。 1~12(月) + 祝日 の計の13シートあります 下記のコードで該当月、今月なら 8 のシートが色づきます ご指導を仰ぎたいのは下記のコードで 祝日 のみ 対象から外すにはどうすればよろしいですか Private Sub Workbook_Open() Dim mySheet As Worksheet For Each mySheet In Worksheets mySheet.Tab.ColorIndex = xlNone If mySheet.Name = Format(Now(), "m") Or mySheet.Name = Format(Now(), "m") Then mySheet.Tab.ColorIndex = 3 mySheet.Activate End If Next End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ |
[195174] Re[1]: 一部のシートタブのみ色付けしない- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2022/08/31(15:20)) □U R L/ 取り敢えず、これでやるとどうなりますか? Private Sub Workbook_Open() Dim mySheet As Worksheet For Each mySheet In Worksheets If Val(mySheet.Name) = Month(Date) Then mySheet.Tab.ColorIndex = 3 mySheet.Activate ElseIf Val(mySheet.Name) > 0 Then mySheet.Tab.ColorIndex = xlNone End If Next End Sub |
[195175] Re[2]: 一部のシートタブのみ色付けしない- ■ / 記事引用/メール受信=OFF■ □投稿者/ 辻貞雄 -(2022/08/31(15:43)) □U R L/ 早速のご指導をありがとうございます。 上手くでき感謝です。 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ |
このトピックに書きこむ |
---|