[[20230924113304]]　『2色の罫線を自動で太く引きたい』（かな）　ページの最後に飛ぶ

『2色の罫線を自動で太く引きたい』（かな）

お世話になります。

Excelで作成した表があります。
C5～AG5まで日にちが表示されています。C5=DATE(AN2,J3,1)

C6～AG6まで曜日が表示されています。C6=TEXT(C5,"aaa")を入れています。

条件付き書式で日曜日なら5～60まで模様がつくようしています。
あとは条件付き書式で　5行目と6行目だけ月曜日なら緑　火曜日ならオレンジ
になるようにしています。

条件付き書式でうまくいかなかったのは
金曜日なら右側だけ青の太字
日曜日なら両側を赤の太字にしたいのです。

年月を変更すると自動で変わるような方法がありましたら教えて下さい。

＜使用 Excel：Microsoft365、使用 OS：Windows10 ＞

タイトルと内容が違っていますけど。
（IT） 2023/09/24(日) 12:04:49

月日を変更すると日付と曜日が変わるので　それに合わせて
罫線を太く変更したいです。

言葉が適切でなくて申し訳ありません。
条件付き書式では色は変更できても太線にはなりませんでした。
（かな） 2023/09/24(日) 13:46:19

＞月日を変更すると日付と曜日が変わるので　それに合わせて
＞罫線を太く変更したいです。
実例を示してください。
（IT） 2023/09/24(日) 13:52:33

 ＞条件付き書式では色は変更できても太線にはなりませんでした。

 アイデアだけですけど。

 先ず、普通の書式で全セル太線にしてしまう。
 その後、条件付き書式で普通の太さに戻す(ただし、太線にしたいセルは戻さない。)

（半平太） 2023/09/24(日) 13:56:55

半平太さん
アイデアありがとうございます。

この表には罫線の色が３色使われています。
全て太線にしてみましたが
曜日の条件付き書式を設定する時点で細線になってしまうのですが
私のやり方が違っているのかしら・・・？

つまりは　一般機能では太線にならないってことなのかもしれません。
納得

みなさん　ありがとうございました。
（かな） 2023/09/24(日) 16:38:12

ITさん

お返事がおそくなり申し訳ありません。

条件付き書式で
=C$6="日"　この条件で　網目模様が出るようにしてあります。
ここで罫線を赤にすることもできるのですが、太線にはなりません。

=C$6="木"　この条件で　セルの色が緑になるようにしています。
=C$6="火"　この条件で　セルの色がオレンジになるようにしています。

　　a b c d e ～AG
5　　日にち→

6　曜日→

60まで枠があります。

うまく表現できなくて申し訳ないです。
こんな表です。
（かな） 2023/09/24(日) 16:44:27

 ＞曜日の条件付き書式を設定する時点で細線になってしまうのですが
 ＞私のやり方が違っているのかしら・・・？

 いや、逆なんです。今度は、条件付き書式で、そのセルは対象外にするんです。(そうすれば、太いまま残る）

（半平太） 2023/09/24(日) 17:06:06

 アイデアだけだとあれなので、実際やってみましたら、マズかったです。

 条件付き書式で、罫線の色だけ変えることは無理でした。(線種とワンセットにしないと設定できない）
 つまり、普通書式の太線と、条件付き書式の指定色を組み合わせることはできないです。

 そうなると条件付き書式で太線を指定できない以上、この話は無理ってことになります。済みません。

（半平太） 2023/09/24(日) 19:38:12

＞うまく表現できなくて申し訳ないです。
条件書式の内容を聞いておりません。
聞くだけ損した。
（IT） 2023/09/24(日) 20:38:41

I Tさん
私がよく理解してなかったみたいで申し訳ありません。

　　　a列　　　b列→
1
2
3
4
5 1から日にち（数式で表示）
6 曜日（数式で表示）
7人名

予定表になっています。
日曜日はお休みなのでセルに色がつくように条件付き書式を設定しています。
この時にセルの両側を赤く太線にしているのですが条件付き書式で出来ないかなぁと思って質問しました。
金曜日は週末なのでセルの右側を太線にしたいです。（条件付き書式で出来ないかなぁと思って質問しました）
お知りになりたかったのはこのような事でしょうか？
以上です。

色々ありがとうございました。
（かな） 2023/09/25(月) 05:18:02

 条件付き書式ではできないようなので
 マクロで太線にするのは、いかがでしょうか。

 Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range
    Dim t As Range, c As Range
    Dim b As Borders, br As Border, bl As Border
    Dim n As Long

    Set r = Range("an2,J3")
    If Intersect(Target, r) Is Nothing Then Exit Sub
    If WorksheetFunction.Count(r) < 2 Then Exit Sub

    Set t = Range("c5:ag60")

    Set b = t.Borders
    b.Weight = xlThin
    b.Color = vbBlack

    For Each c In t.Columns
        n = Weekday(c.Cells(1).Value)
        Set br = c.Borders(xlEdgeRight)
        Set bl = c.Borders(xlEdgeLeft)
        If n = vbSunday Then
            br.Weight = xlThick
            br.Color = vbRed
            bl.Weight = xlThick
            bl.Color = vbRed
        ElseIf n = vbFriday Then
            br.Weight = xlThick
            br.Color = vbBlue
        End If
    Next

 End Sub

（マナ） 2023/09/25(月) 09:32

罫線で日曜日は休み、金曜日は週末と判断するのはなぜ。
でなくとも通常常識じゃないですか。
馬鹿みたい。
（お馬鹿さんです） 2023/09/25(月) 12:16:00

 他人に使ってもらう前提の道具を設計なりデザインなりしたことのない人には
 確かに理解できないお話なのかもしれませんが、視覚効果って結構大事なんですぜ ^^;
（白茶） 2023/09/25(月) 12:44:53

コメント返信：

[ 一覧(最新更新順) ]

[[20230924113304]] 『2色の罫線を自動で太く引きたい』（かな） ページの最後に飛ぶ

[[20230924113304]]　『2色の罫線を自動で太く引きたい』（かな）　ページの最後に飛ぶ