VBAでの桁区切り表示について

データベースからSQL文よりデータをSELECTして、Excelのセルに表示しています。
その際、数値を下記のように桁区切り表示したいのですが、どのようにしたらできるのでしょうか。

(1)100　　　→　100
(2)1000 　　→　1,000
(3)0.25　 　→　0.25
(4)1.75　 　→　1.75
(5)1111.25　→　1,111.25

もし、桁区切りと小数点以下を表示できない場合は、小数点以下を切り上げ表示したいと
思っています。

(3)0.25　　 →　1
(4)1.75　　 →　2
(5)1111.25　→　1,112

＜今のプログラム＞

★DBよりデータをSELECT
Do Until .EOF
　　　Cells(i, 2).Value = .Fields(0).Value
　　　i = i + 1
　　　.MoveNext
Loop

No.2 ベストアンサー 回答者： redfox63 回答日時： 2008/11/26 00:09

小数点以下の切り上げは書式設定だでは出来ません

データそのものを変更するかDBから代入するセルは非表示にして
そのセルを参照すセルに =ROUND(DBの代入セル+0.5,0)などの数式を設定したほうがいいでしょう

Cells（i,3).FomulaR1C1 = "=ROUND(RC[-1]+0.5,0)"
などといった具合です

No.1 回答者： nda23 回答日時： 2008/11/25 23:01

Cells(i, 2).NumberFormatLocal = "#,##0.00;-#,##0.00"