文字列’(12,000)’をエクセルのセルに(12,000)と表示するには？

解決

kimu 2007-08-10 01:19:54 No: 27365

Delphiのデータの文字列、(12,000) 即ち str := '(12,000)' の str をそのままエクセルのセルに (12,000) と表示するにはどうすればいいのでしょうか？
エクセルのセルには -12,000 と表示されます。
DelphiからExcelに書式指定する方法を教えてください。

GTR 2007-08-10 01:48:02 No: 27366

ワークシートのセルをNumberFormatLocal:= '(#,##0)';で書式設定すれば
表示されると思いますよ。

GTR 2007-08-10 01:49:25 No: 27367

文字列で表示の場合は、NumberFormatLocal：='@';です。

kimu 2007-08-10 02:36:50 No: 27368

エクセルのユーザー定義で、'@'とすると、左揃えになります。また'(##,#0)'とすると、希望の右揃えになりますが、-(12,000)となり、−記号が付きます。右揃えで−記号が付かないようにしたいのです。
さらに、エクセル側でセルに書式定義するのではなく、Delphiから任意のセルに書式指定したいのです。
よろしくおねがいいたします。

GTR 2007-08-10 03:02:06 No: 27369

Delphiから任意のセルに書式指定するんですよ。
Worksheet1.Range['A1','A1'].NumberFormatLocal := '(#,##0)';
この場合セルには(12,000)ではなく12,000をセットすれば正しく
表示出来ると思います。
右詰にする場合は、
Worksheet1.Range['A1','A1'].HorizontalAlignment := xlHAlignRight;
です。

kimu 2007-08-10 18:15:48 No: 27370

GTR様
ありがとうございました。
上手く出来ました。
今後ともよろしくお願いいたします。