このトピックに書きこむ |
---|
Re[2]: VBA 該当する月のシートをアクティブシートにしたい | |
---|---|
[194809] Re[2]: VBA 該当する月のシートをアクティブシートにしたい- ■ / 記事引用/メール受信=OFF■ □投稿者/ chabin -(2022/04/06(15:33)) □U R L/ お陰様でうまくできました。 ありがとうございました ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ |
[194808] Re[1]: VBA 該当する月のシートをアクティブシートにしたい- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2022/04/06(14:41)) □U R L/ >mySheet.Tab.ColorIndex = 3 その下にこれを挿入してみたらどうですか?(こちらではテストしてないですけども) mySheet.Activate |
[194807] VBA 該当する月のシートをアクティブシートにしたい- ■親トピック/記事引用/メール受信=ON■ □投稿者/ chabin -(2022/04/06(14:18)) □U R L/ よろしくお願いいたします。 ブックの中に1年分の月の 1 〜 12 のシートがあります。 現在は、 例えば今月は4月ですから 4 のシートの名前が赤になるように下記のコードのようにしています。 当然ながら月が替わると反映してゆきます。 ご指導を仰ぎたいのは、 対処となる月のシートが アクティブシートにできれば考えます。 今月は4月ですので 4月のシートがアクティブになりシート名前が赤にしたいです。 参考 Option Explicit Private Sub Workbook_Open() Dim mySheet As Worksheet For Each mySheet In Worksheets If IsMonthSheet(mySheet.Name) = True Then mySheet.Tab.ColorIndex = xlNone If mySheet.Name = Format(Now(), "m") Then mySheet.Tab.ColorIndex = 3 End If End If Next End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ |