![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.4ベストアンサー
- 回答日時:
私は、読み違えをしていましたね。
>2***年**月を入力するとG3:AL3に曜日(祝日も)が直接全角漢字で割振られます。
その行は、シリアル値の行が、G1 や G2 にあって、それを、「=TEXT(G1,"aaa")」 などとしてあるということですか? 例えば、 「= G1」 として、書式側で、「aaa」としてもよいのですが。私のマクロは、シリアル値に沿って、色を変更していきますから、祭日などは、コードを変えない限りはとても不可能ですね。
具体的に(式などやセルの番地)、その日付と曜日のデータの内容を教えてくださいませんか?
No.3
- 回答日時:
>マクロでの方法を教えてください。
ということですので、書いておきます。
何かの参考になれば、幸いです。
なお、数字の羅列は、休日データのシリアル値です。必ずしも正確ではありません。
Sub PatterColor()
Dim Rng As Range
Dim c As Range
Dim Holidays As Variant
Const Mizu As Integer = 8 '水色
Const Aka As Integer = 3 '赤
Const Ki As Integer = 6 '黄
'2005/1/2~2006/12/23
Holidays = Array(38353, 38362, 38394, 38432, 38471, 38475, _
38476, 38477, 38551, 38614, 38618, 38635, _
38659, 38679, 38709, 38719, 38726, 38759, _
38797, 38836, 38840, 38841, 38842, 38915, _
38978, 38983, 38999, 39024, 39044, 39074)
'塗りつぶす範囲
Set Rng = Range("G3:AL3")
Rng.Interior.ColorIndex = xlnon
For Each c In Rng
If IsDate(c) Then
Select Case True
Case 1 = Weekday(c)
c.Interior.ColorIndex = Aka
Case 7 = Weekday(c)
c.Interior.ColorIndex = Mizu
Case Not IsError(Application.Match(c.Value2, Holidays, 0))
c.Interior.ColorIndex = Ki
End Select
End If
Next c
End Sub
あり難きご指導有難うございました。
すみません。うまくいかなかったので
シリアル値で指定がまずいのでしょうか?
休日のデータが既に他のシートで作成してあり、
2***年**月を入力するとG3:AL3に曜日(祝日も)が直接全角漢字で割振られます。21日から、次月20日の曜日になります。
もし教えて頂けたら、参考にしたいのでよろしくお願い致します。
No.2
- 回答日時:
条件付き書式ではいけないのですか?
塗りつぶしたい列を選択して、条件付き書式を設定します。
=G$3="土"
あとは、書式のコピーで設定できます。
http://homepage1.nifty.com/kenzo30/ex_kisosyo/ex …条件付き書式の実例・その2
参考URL:http://www2.odn.ne.jp/excel/waza/cformat.html#SEC1
No.1
- 回答日時:
マクロに拘らなければ、条件付き書式で出来ます。
http://www.relief.jp/itnote/archives/000954.php
http://www.relief.jp/itnote/archives/000971.php
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) エクセル 表の移動 2 2023/04/05 20:29
- Excel(エクセル) 出勤簿の土、日、休日に色付けできない 2 2022/08/04 20:10
- Visual Basic(VBA) VBAについて教えてください。 Excelで セルのB6~BG24でダブルクリックすると ダブルクリ 1 2022/06/02 17:07
- Excel(エクセル) セルに特定の色が出た時だけ、式を発動させたい 4 2022/06/17 10:32
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:02
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:00
- その他(Microsoft Office) マクロについて教えて下さい 3 2022/05/28 15:36
- その他(Microsoft Office) マクロについて教えてください、、 5 2023/06/06 22:07
- CGI VBAで条件から範囲を指定して色を塗る方法を知りたいです 1 2022/06/30 16:05
- Excel(エクセル) エクセルのマクロを2つご指南ください 3 2023/01/02 12:16
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ある表にフィルターをかけて出...
-
Lookup関数
-
セルの数を求めたい
-
Excelを無料で使うには? パソ...
-
IFとIFS関数
-
エクセルの数式バーのフォント...
-
EXCELの散布図で日付が1900年に...
-
エクセル日付 文字列の関数がエ...
-
再質問です。マクロの修正箇所...
-
データチェックを行うエクセル...
-
エクセルで「ページレイアウト...
-
【ExcelVBA】名前を付けて保存→...
-
Excelピボットテーブルの1行目
-
エクセルの問題です。絶対値の...
-
Excelの表示についての質問
-
Excel関数について教えてくださ...
-
エクセルのツールバーから数値...
-
Excelで表を作ったところに文字...
-
DATE関数で現在の年齢を出した...
-
Excelデータをコピペして、ペー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
半角カタカナをヘボン式ローマ...
-
(マクロ)vlookupの元データを同...
-
エクセルで上位バイトのセルと...
-
exselの質問です
-
Excel 大小比較演算子による「...
-
Excel VBについての質問です。
-
エクセルの問題です。絶対値の...
-
非表示列の再表示に失敗
-
職場の人から聞かれており、こ...
-
Excel関数-文字列で自動作成さ...
-
Excelデータをコピペして、ペー...
-
ユーザー定義関数をアドイン登...
-
【マクロ】for next構文について
-
エクセルの日付を編集する
-
【マクロ】VLOOKUPにて参照元に...
-
exselで最小数で並び替える関数
-
libre 表計算ソフトの計算がう...
-
エクセルで表
-
エクセルの表で1年間の曜日を...
-
西暦和暦
おすすめ情報