Excel VBA質問箱 IV

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

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


13013 / 13644 ツリー ←次へ | 前へ→

【7439】UserFormのTextBoxでコンマを使いたいのですが… 03/9/5(金) 9:17 質問
【7440】Re:UserFormのTextBoxでコンマを使いたいの... Jaka 03/9/5(金) 9:33 回答
【7441】Re:UserFormのTextBoxでコンマを使いたいの... Jaka 03/9/5(金) 9:46 回答
【7444】Re:UserFormのTextBoxでコンマを使いたいの... 03/9/5(金) 10:06 お礼
【7442】Re:UserFormのTextBoxでコンマを使いたい... つん 03/9/5(金) 9:50 回答
【7445】Re:UserFormのTextBoxでコンマを使いたい... 03/9/5(金) 10:13 お礼
【7456】Re:UserFormのTextBoxでコンマを使いたい... Jaka 03/9/5(金) 11:58 発言

【7439】UserFormのTextBoxでコンマを使いたいので...
質問    - 03/9/5(金) 9:17 -

引用なし
パスワード
   いつもお世話になっております。ひとつ教えて頂けないでしょうか?
VBAでデータ入力のためのUserFormを作ったのですが、その中で数値入力用のTextBoxに数字を入力するときに、桁表示のためのコンマがついた表示形式になるようにしたいのですが、そのようなことは可能でしょうか?
よろしくお願い致します。

【7440】Re:UserFormのTextBoxでコンマを使いたい...
回答  Jaka  - 03/9/5(金) 9:33 -

引用なし
パスワード
   おはようございます。

MsgBox Format("1234567", "#,##0")

【7441】Re:UserFormのTextBoxでコンマを使いたい...
回答  Jaka  - 03/9/5(金) 9:46 -

引用なし
パスワード
   こっちの方でした?

Private Sub TextBox1_Change()
  Application.EnableEvents = False
  myt = TextBox1.Value
  myt = Application.Substitute(myt, ",", "")
  TextBox1.Value = Format(myt, "#,##0")
  Application.EnableEvents = True
End Sub

【7442】Re:UserFormのTextBoxでコンマを使いたい...
回答  つん E-MAIL  - 03/9/5(金) 9:50 -

引用なし
パスワード
   おはようございます。

Jakaさん、よこから失礼しますー
今日も朝から眠いですね(同意を求める(笑))

>MsgBox Format("1234567", "#,##0")

具体的にはこんな感じ?

Private Sub TextBox1_Change()

  If (TextBox1.Value = "") Then
    ’何もしない
  ElseIf IsNumeric(TextBox1.Value) = True Then
    TextBox1.Value = Format(TextBox1.Value, "#,##0")
  Else
    TextBox1.Value = Left(TextBox1.Value, Len(TextBox1.Value) - 1)
  End If

End Sub

【7444】Re:UserFormのTextBoxでコンマを使いたい...
お礼    - 03/9/5(金) 10:06 -

引用なし
パスワード
   Jakaさん、早速のご解説ありがとうございました。
後者のほうでやってみたのですが、まったく希望通りのものでした。
本当にありがとうございます。
これからもよろしくお願い致します。

【7445】Re:UserFormのTextBoxでコンマを使いたい...
お礼    - 03/9/5(金) 10:13 -

引用なし
パスワード
   つんさんおはようございます。
動作確認してみましたが、全く問題ないです。
ありがとうございました。
これからもよろしくお願い致します。

【7456】Re:UserFormのTextBoxでコンマを使いたい...
発言  Jaka  - 03/9/5(金) 11:58 -

引用なし
パスワード
   ▼つん さん:
おはようございます。

>今日も朝から眠いですね(同意を求める(笑))
ですね!
最近涼しいんで、朝が辛くなってきました。= 眠い。

それと、私の
myt = Application.Substitute(myt, ",", "")
必要無かったんですね!
つんさんの見て、気づいた。
しかも、つんさんの方が女性らしく?丁寧な作りになっているし...。

自立神経さんも御元気になったみたいで、おめでとうございます。
「おめでとうでとう」???
これでいいんでしょうかね?

そろそろ20日に近づいてきましたが、石鹸箱の方進んでないですねぇ!
じゃね!じゃね!   ← この方も...。

13013 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free