[[20200521100440]] 『数式を利用した条件付き書式のVBA』(カカポ) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『数式を利用した条件付き書式のVBA』(カカポ)

ホームタブにある条件付き書式(数式を使用して書式設定するセルを決定)をVBAで実施したいのですが、コードの書き方がわかりません。

数式(=A2>10)を満たす場合、A1のセルを赤(RGB(255, 0, 0))で塗りつぶすという条件付き書式を設定するにはどういったコードを書けばよいでしょうか?

よろしくお願いします。

< 使用 Excel:Excel2010、使用 OS:Windows10 >


 Sub getColeredRed()
     With Range("A1").FormatConditions
         .Add Type:=xlExpression, Formula1:="=A2>10"
         .Item(.Count).SetFirstPriority
         .Item(1).Interior.Color = RGB(255, 0, 0)
         .Item(1).StopIfTrue = False
     End With
 End Sub

(半平太) 2020/05/21(木) 11:12


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.