カンマ区切り

ＶＢＡのテキストボックスで表示や入力時に、カンマ区切りにするにはどうすればいいのでしょうか？

No.4 ベストアンサー 回答者： PAPA0427 回答日時： 2003/04/18 09:55

ははは、タッチの差で的確なお答えが返ってきましたね。

＃３のmaruru01さんありがとうございます。
ようは、分かればいいんで…(^^;

>そもそもformat文が何なのか使い方が分かりませんので
FORMAT文とは、表示の際に書式を決めるものです。maruru01さんのソースの中にありますが、"#,##0"とかが書式になります。"\#,###"とすれば数字の先頭に"\"マークがついた形で表示されます。書式について詳しく知りたい場合はヘルプを見てください。エクセルのセルの書式設定とほぼ同じ物です。

この回答へのお礼

＞"#,##0"とかが書式になります。"\#,###"とすれば数字の先頭に"\"マークがついた形で表示されます。

いろいろできるみたいですね。参考にします。

ヘルプはダラダラと書いてあって、知りたいことが何処にあるか分かりにくいです。ヘルプのヘルプがいりますね。
長々と有難うございました。

お礼日時：2003/04/18 11:02

No.3 回答者： maruru01 回答日時： 2003/04/18 09:21

こんにちは。

maruru01です。

テキストボックスに入力しながら、順次カンマ入りで表示させる方法です。
テキストボックス名を「Text1」とします。


Private Sub Text1_Change()

　　Text1.Text = Format(Text1.Text, "#,##0")
　　Text1.SelStart = Len(Text1.Text) + 1

End Sub

この回答へのお礼

素晴らしいっす、感動っす。
また、なにかあったらお願いします。
サンクスでした。

お礼日時：2003/04/18 10:56

No.2 回答者： PAPA0427 回答日時： 2003/04/17 19:33

そうですね。

表示の方は前回の回答でＯＫだと思います。

入力なんですが、単純にテキストボックスの書式設定を行えば、データ入力確定時にカンマ編集されて表示されるのですが。これじゃダメなんでしょ？

「123」と入力していて、次に「4」を入れた時に「1,234」と表示されたいんですよね。

だったとすれば、ＶＢＡのイベントでＫｅｙＰｒｅｓｓを使って、押されたキーをチェックしつつ、FORMATコマンド編集した結果を表示しながら、入力を行うプログラム書くしかないですね。

この回答への補足

回答有難うございます。

>「123」と入力していて、次に「4」を入れた時に「1,234」と表示されたいんですよね。

その通りです。

>だったとすれば、ＶＢＡのイベントでＫｅｙＰｒｅｓｓを使って、押されたキーをチェックしつつ、FORMATコマンド編集した結果を表示しながら、入力を行うプログラム書くしかないですね。

具体的にどうすればいいのでしょうか？そもそもformat文が何なのか使い方が分かりませんので、あわせて教えてください。

補足日時：2003/04/17 20:32

No.1 回答者： PAPA0427 回答日時： 2003/04/17 18:08

お答えします。

一応Accessと思ってお答えしています。Accessでよろしいですね？
Formatを使ってカンマ区切りで表示することが出来ます。
FORMAT( 変数, "#,###.##")
上記の場合、変数の値がカンマ区切りで、少数点が第２位まで表示されます。少数点がいらないのであれば、FORMAT( 変数, "#,###")ですね。

カンマ編集しながらの入力の設定は出来ませんので、ＶＢＡとか使ってイベントで、上記編集作業を行いながら入力することになります。

グレービーシティ（旧文化オリエント）さんなんかが、そういうツールを販売されていますので、スマートにプログラム作成を行いたいときはご利用になる方が楽でしょう。

参考URL：http://www.grapecity.com/

この回答への補足

説明不足でした、エクセルのＶＢＡでフォーム上のテキストボックス内(照合してセルの値を表示させる場合と、入力する場合の両方で）のカンマ区切りを自動で取りたいのですができるのでしょうか？

補足日時：2003/04/17 18:26