No.1ベストアンサー
- 回答日時:
全シートのセルA1に日付が入っている場合でのサンプル。
Sub test()
Dim sh As Worksheet
Dim hi As Integer
For Each sh In Worksheets
With sh
Select Case Weekday(.Range("A1").Value, vbMonday)
Case 6
.Tab.ColorIndex = 41
Case 7
.Tab.ColorIndex = 3
Case Else
.Tab.ColorIndex = xlColorIndexNone
End Select
End With
Next
End Sub
日付以外が入っている場合は、修正が必要かもしれません。
ご参考程度として下さい。
ありがとうございました。
今のところ日付しか入っていないので、
修正もなく、上記のマクロで希望どうりの色分けをすることができました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelについて 1 2023/03/06 10:26
- Excel(エクセル) 添付写真上のExcelシートのように時間と曜日ごとに担当者が振り分けられているシートがあります。 例 1 2023/03/08 13:02
- その他(Microsoft Office) エクセルの休日について教えてください。 1 2023/01/06 15:45
- Excel(エクセル) Excel シート複数 金額日計表と日付 簡単にシートコピーしたら前日の残高と日付を変更させたい 1 2022/07/15 22:10
- Excel(エクセル) シート参照を含む数式を連続コピー 3 2022/12/10 11:42
- Excel(エクセル) エクセルの祝日に色が反映しない 4 2022/05/18 09:58
- Excel(エクセル) VBA ふたつの同じ様式シートのセルをコピーしたい 2 2023/03/08 15:28
- Excel(エクセル) エクセルでカレンダーを作りたい 5 2023/05/16 07:32
- Excel(エクセル) エクセル バーコード作成で他のシートを参照するには? 2 2023/05/03 16:57
- Excel(エクセル) 再質問です。エクセルでシートが1から31まであり、日付けが入力されているセルがあります。シート1から 4 2022/08/02 23:08
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
【 Excel】シートの見出しに自動で色を付けるには?
Excel(エクセル)
-
VBAで条件によってシート見出しの色を変更したい
Excel(エクセル)
-
あるセルに文字が入力されるとシート見出しの色を自動で変更したい
その他(Microsoft Office)
-
-
4
シート見出しの色を自動的に変更させたい
Excel(エクセル)
-
5
シート見出しの色を自動で変えるには
Excel(エクセル)
-
6
セルの値によって、シート見出しの色を変更したい
Visual Basic(VBA)
-
7
EXCEL関数(土日祝日自動色分け)
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
エクセルで1月0日と表示される!!
-
日付が未入力の際はゼロか、空...
-
Excelで複数シートの選択セルを...
-
エクセルで条件に一致したセル...
-
Rangeメソッドは失敗しました。...
-
(Excel)あるセルに文字を入力...
-
シート参照で変数を使いたい(EX...
-
VBAで、セル(Range)のオブジ...
-
Excelシートの保護時にデータの...
-
Excelのファイル容量が減らない...
-
エクセルで別シートからの最大...
-
excelでハイパーリンクになって...
-
エクセルのマクロで全シートを...
-
エクセルで、加筆修正したセル...
-
Excelで表計算結果のみ表示する...
-
Excelでスクロールすると文字が...
-
複数シートの同じセル内容を1シ...
-
VBAでシート全体の塗りつぶしを...
-
VBAで変数に関数式の結果をセッ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelの「0」だけ非表示、小数...
-
日付が未入力の際はゼロか、空...
-
エクセルで1月0日と表示される!!
-
エクセルで条件に一致したセル...
-
(Excel)あるセルに文字を入力...
-
Excelで複数シートの選択セルを...
-
Rangeメソッドは失敗しました。...
-
シート参照で変数を使いたい(EX...
-
別シートのセルを絶対参照にする
-
エクセルで複写のように自動入...
-
Excelシートの保護時にデータの...
-
excelでハイパーリンクになって...
-
エクセルで別シートからの最大...
-
複数シートの同じセル内容を1シ...
-
エクセルで20万行あるシート...
-
ExcelでTODAY関数を更新させな...
-
EXCEL関数でシート名が変わる可...
-
エクセルで、加筆修正したセル...
-
Excelのファイル容量が減らない...
-
エクセル ハイパーリンクで画像...
おすすめ情報