|
▼ichinose さん:
おはようございます。
丁寧な解説ありがとうございます。
下記内容で実現できました。
>>新規ブックの標準モジュールに
>
>'===========================================================
>Sub main()
> Application.Names.Add "hformula", , , , , , , , , "=get.cell(48,rc)"
> With Worksheets("sheet1").Range("a1:z100")
> .FormatConditions.Delete
> .FormatConditions.Add Type:=xlExpression, Formula1:="=hformula"
> .FormatConditions(1).Interior.ColorIndex = 3
> End With
>End Sub
>シートSheet1をアクティブにして、mainを実行してみてください。
>
>上記のコードはSheet1のセルA1:Z100のセル範囲に対して、
>数式が入っていれば、赤く塗りつぶす条件付き書式を設定しています。
withの中は条件付書式なのは分かるのですが
Application.Names.Add "hformula", , , , , , , , , "=get.cell(48,rc)"
が、なんのことやらさっぱりわかりません
hformulaっていう関数を定義してその内容が"=get.cell(48,rc)"ってこと?
helpをみても引けないのですが。。。
|
|