Excel VBA質問箱 IV

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

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


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

7016 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

▼

【41720】テキストボックスで桁区切り d 06/8/21(月) 14:23

【41721】Re:テキストボックスで桁区切り kobasan 06/8/21(月) 14:43

【41726】Re:テキストボックスで桁区切り Pi 06/8/21(月) 16:02

【41735】Re:テキストボックスで桁区切り Kein 06/8/21(月) 17:05

【41742】Re:テキストボックスで桁区切り Pi 06/8/21(月) 22:02

【41745】Re:テキストボックスで桁区切り Kein 06/8/21(月) 22:49

【41758】Re:テキストボックスで桁区切り Pi 06/8/22(火) 6:29


	【41720】テキストボックスで桁区切り

d - 06/8/21(月) 14:23 -


	引用なし

	パスワード

テキストボックスに数値を入れると自動的に三桁ごとカンマが
はいるようにしたいのですが・・

どのようにしたらよろしいでしょうか？よろしくお願いします。


	【41721】Re:テキストボックスで桁区切り

kobasan - 06/8/21(月) 14:43 -


	引用なし

	パスワード

今日は。
>テキストボックスに数値を入れると自動的に三桁ごとカンマが
>はいるようにしたいのですが・・
>
>どのようにしたらよろしいでしょうか？よろしくお願いします。

userformのテキストボックスなら

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

でどうですか。


	【41726】Re:テキストボックスで桁区切り

Pi - 06/8/21(月) 16:02 -


	引用なし

	パスワード

▼d さん：
ユーザーフォームコマンドボタンで作成しました。

Private Sub CommandButton1_Click()
　　Dim n As Long
　　n = TextBox1.Value
　TextBox1.Value = Format(n, "##,###,##0")
　Range("A65536").End(xlUp).Offset(1) = TextBox1.Value
End Sub


	【41735】Re:テキストボックスで桁区切り

Kein - 06/8/21(月) 17:05 -


	引用なし

	パスワード

いきなり桁区切り形式にするのでなく、まずTextBox1.Valueの値を
チェックしてからの方が安全かと思います。
= "" なら中止、IsNumericの戻り値がFalseなら中止、などと。


	【41742】Re:テキストボックスで桁区切り

Pi - 06/8/21(月) 22:02 -


	引用なし

	パスワード

▼Kein さん：

>いきなり桁区切り形式にするのでなく、まずTextBox1.Valueの値を
>チェックしてからの方が安全かと思います。
安全？ですか

> = "" なら中止、IsNumericの戻り値がFalseなら中止、などと。
具体的には･･･どのようにすると良いのですか。
例えば If TextBox1.value="" Then Exit Sub のようなことでしょうか。
アドバイスお願いします。


	【41745】Re:テキストボックスで桁区切り

Kein - 06/8/21(月) 22:49 -


	引用なし

	パスワード

例えばこんな感じで、どうでしょーか ?

Private Sub CommandButton1_Click()
　　Dim n As Variant

　　With TextBox1
　　　 n = .Value
　　　 If IsEmpty(n) Then Exit Sub
　　　 If Not IsNumeric(n) Then Exit Sub
　　　 .Value = Format(CLng(n), "##,###,##0")
　　End With
End Sub


	【41758】Re:テキストボックスで桁区切り

Pi - 06/8/22(火) 6:29 -


	引用なし

	パスワード

▼Kein さん：

ありがとうございました。
参考になりました。

今後ともよろしくご指導お願いします。


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

7016 / 13646 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free