[[20240801112742]]　『条件付き書式で太文字にしたい』（エクセルおじさん）　ページの最後に飛ぶ

『条件付き書式で太文字にしたい』（エクセルおじさん）

A列からR列で15,000行データがあります。空欄のセルはありません。
現在、条件付き書式でH列,K列,N列,Q列に条件を付けて色が付くようにしております。この何れかのセルに色が付いたら、F列の文字を太文字になるように取り組んでおりますが、思う通りになりません。色々、検索してF列に下記の式を設定しました。数年振りのチャレンジと投稿です。
よろしくご教示をお願いいたします。

=OR(H1=$F1>$H1,H1=$F1<$H1,K1=$F1>$K1,K1=$F1<$K1,N1=$F1>$N1,N1=$F1<$N1,Q1=$F1>$Q1,Q1=$F1<$Q1)

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

 もしかして式中の
 H1=、K1=、N1=、Q1=
 を削除するとうまくいかないだろうか？
（ねむねむ） 2024/08/01(木) 11:50:07

ねむねむ　さんへ

早々のご教示有難うございます。
思う通りになりました。これから先に進めます。　(エクセルおじさん)
（エクセルおじさん） 2024/08/01(木) 12:09:26

済みませんもう1つ質問させて頂きます。お陰様で太文字には出来たのですが、この太文字はCtrl+Bとは違うのですね。太文字の行だけフィルターしたくて、以下のコードを参考に取り組んでおりますが、ご教示して頂いた文字がCtrl+Bでないことから目印となる☆を表示できません。条件付き書式の文字をCtrl+Bにする方法はあるのでしょうか。よろしくお願いします。
　Sub IsfontBold()
Dim c As Range
For Each c In Range("F1:F10000")
If c.Value <> "" Then
If c.Font.Bold = True Then
c.Offset(, 13).Value = "☆"
End If
End If
Next
End Sub

（エクセルおじさん） 2024/08/01(木) 13:10:38

 >If c.Font.Bold = True Then
 を
 If c.DisplayFormat.Font.Bold = True Then
 ではどうだろうか？

 DisplayFormatをかませると条件付き書式で表示されている書式も対象としてくれる。
（ねむねむ） 2024/08/01(木) 13:21:14

ねむねむさんへ

ご教示有難うございます。
思うとおりになりました。数年振りの投稿で、教示により解決出来たことに
喜びを感じております。
　(エクセルおじさん)

（エクセルおじさん） 2024/08/01(木) 13:32:54

コメント返信：

[ 一覧(最新更新順) ]

[[20240801112742]] 『条件付き書式で太文字にしたい』（エクセルおじさん） ページの最後に飛ぶ

[[20240801112742]]　『条件付き書式で太文字にしたい』（エクセルおじさん）　ページの最後に飛ぶ