|
▼kaeru144 さん:
こんばんは。
>今、VBAに条件付書式のVBAにチャレンジ中です
>以下のようにシート内の場合、作成することができました
>
> Range("B2").Activate
> With Selection
> Selection.FormatConditions.Delete
> Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
> Formula1:="=B1"
> Selection.FormatConditions(1).Interior.ColorIndex = 38
> End With
>
>次に試みたいこととして、シート間の条件付書式を考えています。可能であれば、ファイルサイズがかなり小さくて済むのですが。具体的には、上の6行目、=B1が=sheet2!B2としたいのです。どうでしょうか。ご教授下さい。
↑こういうのは、そのままだと出来ないので、一度、
Sheet2!B2に「名前の定義」を使用して名前を付けると可能になります。
'===========================================================
Sub test()
Application.Names.Add Name:="sheet2b2", RefersTo:="=sheet2!$b$2"
With Range("B2").FormatConditions
.Delete
.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=sheet2B2"
.Item(1).Interior.ColorIndex = 38
End With
End Sub
確認してみて下さい。
|
|