access2003 vba質問です。

質問

文字編集の質問ですが、

売上、客数などをテキストに編集したいのですが

正解
売上：150,000円 売上累計：750,000円
客数： 100人 客数累計： 100人
のように、金額、人数を右揃えにする方法を教えてください。

"売上： " & Format(rs!売上, "###,###") & " 売上累計： " & Format(rs!売上累計,"###,###")
"売上： " & Format(rs!客数, "###,###") & " 客数累計： " & Format(rs!客数累計,"###,###")
にしても、

現状
売上：150,000円 売上累計：750,000円
客数：100人 客数累計：100人
こんなようになってしまします。

どなたか、できる方法をわかる方、教えて下さい。
質問内容の正解のほうも、客数が左に寄っていますが、
実際は、円と人を右揃えで合わせたいのです。
宜しくお願いします。

回答No.1

osamuy · ベストアンサー

空白出力を調整する関数を記述して、自力でテキスト整形するとか。
VBAじゃなくVB.Netですが、こんな感じ：

http://www.ideone.com/zDyIQ

でもここらへん凝りだすと、無駄に時間を費やすことになりかねないので、ある程度のところで妥協しといたほうが、幸せになれそうな。

お礼

osamuyさん

ありがとうございます。
簡単に出来るかと思っていましたが、大変なのですね
作っていただいたプログラムを参考にさせて頂き、
時間のある範囲で、VBAにしてみます。

回答No.2

kmetu

"売上： " & Format(1500000, "@,@@@,@@@") & " 売上累計： " & Format(7500000, "@,@@@,@@@")
"売上： " & Format(100, "@,@@@@,@@@") & " 客数累計： " & Format(100, "@,@@@,@@@")

"売上： " & Format(1500000, "0,000,000") & " 売上累計： " & Format(7500000, "0,000,000")
"売上： " & Format(100, "0,000,000") & " 客数累計： " & Format(100, "0,000,000")

とか…

お礼

kmetuさん

ありがとうございます。
カンマが出るのが難点ですが、金額を千円単位に
するとかで活用出きるように考えます。