半角チルダ

ExcelVBA、その他。
覚え書きや、補足資料などのスクラップブック。
end-u(1037781)

■条件付書式。数式はR1C1形式で。

2009-11-30 22:00:00 | 雑記
ん。
勘違いが間違いだったか...X(

『条件付書式設定のマクロ化コード』
http://moug.net/faq/viewtopic.php?t=47140
ActiveCell位置によっては条件付書式の数式のアドレスが思った通りにならないという話ですが、
仮にリンクスレッドに書かれた条件がB2セル基点だったとしても、

Sub try()
  With Sheets(1).Range("B2:C18").FormatConditions
    .Delete
    .Add Type:=xlExpression, _
       Formula1:="=ASC(RC2&RC3)<>""00"""
    .Item(1).Interior.ColorIndex = 6
  End With
End Sub

R1C1形式の数式を使うと、指定した範囲の1セル目を基点にした数式で設定できます。
なのでSelectは必要なかったンでした。

#でも2007では落とし穴の話があったようななかったような...
#気が向いたら検証しよっと
Comment
  • X
  • Facebookでシェアする
  • はてなブックマークに追加する
  • LINEでシェアする