[[20230925155249]]　『マクロエクセル　条件付き書式が反映されない(色ａx（かーさき）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) |

| 全文検索 | 過去ログ ]

『マクロエクセル　条件付き書式が反映されない(色の着色ができない）』（かーさき）

お世話になります。ご教示頂けますと幸いです。
マクロの記録で作った条件付き書式が反映されず困っております・・・
Sheet1 のB4列に○が記入されたらD4～AA4まで薄いグレーに塗りつぶす

のマクロの記録で条件付き書式で設定したのですが

本番のマクロのシートでこの作業を実行すると、D4～AAが塗りつぶされず、B4だけが塗りつぶされるように　設定されます。

どのようにマクロの編集を組めばよいでしょうか・・・
超初心者です・・・よろしくお願いいたします。

下記がＶＢＡになります。

'
' 型発注作業7 Macro
' Ｂ列に〇が入ると塗りつぶされる作業
'

    Application.CutCopyMode = False
    Cells.FormatConditions.Delete
    Range("D4:P118").Select
    Range("B4").Activate
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$B$4=""○"""
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorDark2
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Windows("型一覧2022.07~.xlsx").Activate
    Windows("型発注マクロ(完成版）.xlsm").Activate
    ActiveWindow.SmallScroll Down:=-6
End Sub

＜使用 Excel：Excel2016、使用 OS：unknown ＞

なぜマクロ？
条件付き書式が設定できればそれでいいのですよね？

 数式　：　=$B$4="○"
 適用先：　=$D$4:$AA$4

（通りすがり） 2023/09/25(月) 16:40:30

 ＞    Range("D4:P118").Select
 ＞    Range("B4").Activate
 そこおかしくないですか？

 単に  Range("D4:AA4").Select　’では？

（半平太） 2023/09/25(月) 16:52:46

RPA化に伴い　マクロを使用することにしました。
（かーさき） 2023/09/26(火) 08:51:41

通りすがりさん>>コメントありがとうございます。
マクロエクセルをRPA化するため組み込んでいます。
数式と適用先を書いていただきましたがこれをどこに入れるのか恥ずかしいのですがわかりません・・・すみません。

半平太さん>>コメントありがとうございます。

 ＞    Range("D4:P118").Select
 ＞    Range("B4").Activate

を消してRange("D4:AA4").Select　だけにしたらよいのでしょうか？

手打ちでしたわけでなく　記録だけなので私は何がおかしいのかが全く分かりません((+_+))難しい・・・
（かーさき） 2023/09/26(火) 08:58:22

 ＞Range("D4:AA4").Select　だけにしたらよいのでしょうか？

 はい、そうです。取り敢えずやってみてください。

（半平太） 2023/09/26(火) 09:03:05

半平太さん>>ありがとうございます！やってみましたらＢ4の列だけに適応になっています。
Ｂ4の縦方向の列に○が入ると　その横の列に色が付くようにしたかったのですが　できますでしょうか？
何度も申し訳ございません。。
（かーさき） 2023/09/26(火) 09:37:46

だから条件書式にすればいいじゃん。
（わからずや） 2023/09/26(火) 09:59:42

 >記録だけなので私は何がおかしいのかが全く分かりません
記録の時に条件の数式を
=$B$4="○"
行･列共に絶対参照にしているからでは？
（どん） 2023/09/26(火) 10:15:12

わからずやさん>>条件付き書式で○　の場合グレー　にできるのはわかりますが　その列を塗りつぶすのがわかりません。（適応範囲を書いてもらってましたがどこにそれいれるのですか・・・？
（かーさき） 2023/09/26(火) 10:17:46

わからずやさん>>すみません、列の指定に関しては理解しました。ありがとうございました。
（かーさき） 2023/09/26(火) 10:25:04

 ＞半平太さん>>ありがとうございます！やってみましたらＢ4の列だけに適応になっています。
 ＞Ｂ4の縦方向の列に○が入ると　その横の列に色が付くようにしたかったのですが　できますでしょう

 私はそうなっていますけど？

 修正したマクロを実行しましたか？
 ※実行しなければ、条件付き書式は以前のままですよ。

（半平太） 2023/09/26(火) 10:50:56

実行しましたが同じでした。
もう一度マクロの記録をしてやってみます。
ありがとうございました。
（かーさき） 2023/09/26(火) 11:18:00

 ＞実行しましたが同じでした。

 そうですか・・
 そもそも、シート名が何なのか不明確な状態なのが間違いの元です。

 ＞    Application.CutCopyMode = False
 ＞    Cells.FormatConditions.Delete

 初っ端に目的のブックをアクティブにする位はやった方が無難ですけどね。

   Workbooks("型一覧2022.07~.xlsx").Activate　'←
 ＞Application.CutCopyMode = False
 ＞Cells.FormatConditions.Delete

（半平太） 2023/09/26(火) 11:44:20

　どこかが間違っているに違いない。以下は件の Sheet1 がアクティブである前提。

 Sub Sample()
     Range("D4:AA10").Select 'AA10 は適当。4 行目だけということはないと思うので。
     Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$B4=""○"""
     Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
     With Selection.FormatConditions(1).Interior
         .PatternColorIndex = xlAutomatic
         .ThemeColor = xlThemeColorDark2
         .TintAndShade = 0
     End With
     Selection.FormatConditions(1).StopIfTrue = False
 End Sub

（higejee） 2023/09/26(火) 11:53:31

＞Ｂ4の列だけに適応になっています。
Ｂ4セルのみではないですか。
行列セルの使い分けに注意しましょう。
Range("B4").Activate になっているのでこのセルのみが対象です。
削除しましょう。

（わからずや） 2023/09/26(火) 12:01:49

＞もう一度マクロの記録をしてやってみます。
この「マクロの記録」がネックとなっていると思われるので、一旦やめて、
上のhigejeeさんのコードを試してみましょう。

ポイントは
１．Range("D4:AA4").Select　　ではなく　Range("D4:AA10").Select
２．Formula1:="=$B$4=""○"""　ではなく　Formula1:="=$B4=""○"""
これなら10行目までは適用されます。

（通りすがり） 2023/09/26(火) 12:17:52

higejeeさん>>ありがとうございます！こちらをｺﾋﾟﾍﾟしたらできました！！！すごい・・・涙

（かーさき） 2023/09/26(火) 13:55:34

半平太さん>>本当にありがとうございました(:_;)二日ぐらい悩んで仕事も止まっていました・・(笑)
ありがとうございました(´;ω;｀)
（かーさき） 2023/09/26(火) 13:56:34

わからずやさん>>いろいろご指導いただきありがとうございました(´;ω;｀)ほんとに助かりました・・・
このhp見つけてよかった・・・感謝・・・
（かーさき） 2023/09/26(火) 13:57:28

通りすがりさん>>ありがとうございました(:_;)皆様のおかげで完成しました！！感謝です・・
（かーさき） 2023/09/26(火) 13:58:18

コメント返信：

[ 一覧(最新更新順) ]

[[20230925155249]] 『マクロエクセル 条件付き書式が反映されない(色ａx（かーさき） ページの最後に飛ぶ

[[20230925155249]]　『マクロエクセル　条件付き書式が反映されない(色ａx（かーさき）　ページの最後に飛ぶ