Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12906 / 13646 ﾂﾘｰ

【7933】ユーザーフォームのテキストボックス ゆう 03/9/24(水) 14:59

ゆう - 03/9/24(水) 14:59 -

ユーザーフォームのテキストボックスに入力する時に、３桁ごとに「，(カンマ)」をテキストボックス内に表示させたいのですが、ユーザーフォームのプロパティで何とかなるのでしょうか？
それとも、そういうコードを作らなければならないのでしょうか？
どなたかご存知の方はいらっしゃいませんか？

INA - 03/9/24(水) 15:31 -

これでよろしいかと・・・

Private Sub TextBox1_Change()
　　TextBox1.Value = Format(TextBox1.Value, "#,###")
End Sub

ゆう - 03/9/24(水) 18:49 -

どうもありがとうございます！
今まで、IfやCaseを使って何とかならないかがんばっていました＾＾；

簡単すぎて、場違いな質問だったみたいですね。。。
もっと、VBA関係の本を買って、皆さんに追い付けるように、たくさん勉強したいと思います。

いしかわ - 03/9/24(水) 22:15 -

こういうやり方もあります。

Private Sub TextBox1_Change()

　　TextBox1.Value = FormatNumber(TextBox1.Value, 0)

End Sub

ゆう - 03/9/28(日) 21:36 -

返事遅れてすいません。
様々な方法があるのですね！
どうもありがとうございます。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

12906 / 13646 ﾂﾘｰ

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free