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 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free