classさん、おはようございます。

動きました。（馬鹿ですよね ！！ ）

多謝  感謝感激です。
今後ともよろしくお願いします。

＞marieさん、こんにちは。
＞
＞ADD関数の第3引数（\"=RC=R[65535]]C\"）にひとつ\"]\"が余分に付いてますので、
＞外してからもう一度試してみてください。
＞
＞＞classさん、おはようございます。
＞＞
＞＞返事が遅れて申し訳ありませんでした。
＞＞
＞＞下記スクリプトで試してみたのですが，ADD関数でエラーとなってしまいました。
＞＞
＞＞Integer xlExpression = 2
＞＞//*
＞＞i_ole_excel.Application.ActiveSheet.Columns( \"A:D\" ).Select
＞＞i_ole_excel.Selection.FormatConditions.Add( xlExpression, \"\", \"=RC=R[65535]]C\" )
＞＞i_ole_excel.Selection.FormatConditions(1).Font.ColorIndex = 15
＞＞
＞＞どうすればよいのでしょうか。なにとぞご教授お願いします。
＞＞
＞＞＞marieさん、おはようございます。
＞＞＞
＞＞＞下記のマクロの先頭に\"oleobject.application.\"をつけてあげると
＞＞＞マクロと同じように動きます。
＞＞＞
＞＞＞oleobject.application.Columns(\"A:D\").Select
＞＞＞
＞＞＞ただし、powerbuilderからはプロパティ式が利用できないので、
＞＞＞関数を呼ぶように変更してみてください。
＞＞＞
＞＞＞//呼び方はVBAのヘルプか、オブジェクトブラウザを見てください。
＞＞＞int xlExpression = 2
＞＞＞oleobject.application.Selection.FormatConditions.Add(xlExpression,\"\",\"=RC=R[65535]C\")
＞＞＞
＞＞＞
＞＞＞
＞＞＞＞EXCEL のマクロ
＞＞＞＞    Columns(\"A:D\").Select
＞＞＞＞    Selection.FormatConditions.Delete
＞＞＞＞    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
＞＞＞＞        \"=RC=R[65535]C\"
＞＞＞＞    Selection.FormatConditions(1).Font.ColorIndex = 15
＞＞＞＞
＞＞＞
＞＞＞
＞＞
＞＞
＞
＞