![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
Excelマクロでuserfoam内のtextboxに数字を入力する際、
整数なら3桁ごとカンマで区切る表示 (1,234)
少数なら小数点以下を表示 (1.23)
になるように
TextBox1.Value = Format(TextBox1.Value, "#,###" &
IIf(InStr(TextBox1.Text, ".") = 0, "", ".##"))
としていたのですが、
1.02 のように小数点の後に0が続く場合、0が表示されず 1.2 となってしまいました。
そこで
TextBox1.Value = Format(TextBox1.Value, "#,###" &
IIf(InStr(TextBox1.Text, ".") = 0, "", ".00"))
と最後の##を00に変更したのですが、
textboxに小数点を入力した時点で 1.00 と表示されてしまい小数点以下の部分に数字を入力できません。
小数を入力する際、小数点以下に0と続く場合でも正しく入力できるようなマクロを教えていただけますでしょうか。
よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
No1です。
UserFormだとFormat関数の挙動が若干違うようですね。
大変失礼いたしました。
単純にはうまくいかないようなので、プリミティブな方法で処理してみました。
数値以外が入力された場合、小数点以上と以下の部分に分けて数値に矯正します。
少数以下の表示は、入力したままの桁数になります。
例えば
1234.56.78 → 1,234.56
abc.3456 → 0.3456
1234.5a → 1234
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim s, v
s = TextBox1.Text
If Len(s) > 1 Then
v = Split(s, ".")
s = IIf(IsNumeric(v(0)), Format(v(0), "#,###"), "0")
If v(0) = "" Or v(0) = "0" Then s = "0"
If UBound(v) > 0 Then
If v(1) <> "" And IsNumeric(v(1)) Then s = s & "." & v(1)
End If
End If
TextBox1.Text = s
End Sub
No.3
- 回答日時:
おはようございます。
一例になりますが、数字を入力後のエンターキーで、表示形式を変更する
方法になります。
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode <> 13 Then Exit Sub
Dim myValue As Variant
If Not IsNumeric(TextBox1.Value) Then Exit Sub
myValue = Val(TextBox1.Value)
If myValue = Int(myValue) Then
TextBox1.Value = Format(myValue, "#,##0;[赤]-#,##0")
Else
TextBox1.Value = Format(myValue, "0.00")
End If
End Sub
ご回答ありがとうございます。
上手く使えました。
小数点第2位までしか使用しない今の段階では問題なく使えるのですが
小数点第3位以下の入力ができないので
別の方をベストアンサーに選ばせていただきました。
No.1
- 回答日時:
こんにちは
".##"や".00"ではなく、".#0"としてもうまくいきませんか?
>textboxに小数点を入力した時点で~~表示されてしまい
>小数点以下の部分に数字を入力できません。
どのタイミングのイベントで書き直しているのか、質問文には記載がありませんが、1文字ずつの入力に対して行っているのでしょうか?
changeやexitのタイミングになさってみてはいかがでしょうか?
ご質問には関係ありませんけれど、数字入力を想定しているテキストボックスと推測しますが、文字(abcなど)入力を制御するような仕組みにはなっているのでしょうか?
回答ありがとうございます。
Private Sub TextBox1_Change() としてます。
”.#0" としても、小数点を入力すると .00と表示されてしまいます。
文字入力の制御などはないと思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(パソコン・スマホ・電化製品) pthonのframeに演算結果(数値)を表示したい 1 2023/06/05 22:08
- Visual Basic(VBA) visual basic初心者です。 visual studioで電卓を作成しています。 実行時にテ 1 2023/02/08 00:18
- JavaScript Javascriptが機能せず原因が分からないので教えて頂きたいです 3 2023/06/04 14:50
- Visual Basic(VBA) Excel VBA ユーザーフォーム内のラベルにテキストボックスの小計を出す方法 5 2022/08/17 14:27
- JavaScript HTMLでJavaScriptを使ってパスワードの強化判定のプログラムを作成しています。 一通り作っ 2 2022/10/19 01:41
- Visual Basic(VBA) VBA 重複チェック後に値をワークシートに転記する方法を教えてください。 1 2023/03/19 12:43
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/17 11:59
- Visual Basic(VBA) 以下のVBAで該当文字列の前後に付与したい。 例 前に付与 abc ユーザーID 12345 後に付 3 2022/04/19 21:50
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- C言語・C++・C# プログラミングの問題です。至急教えてください。 /***から***/の部分をプログラミングにしてほし 1 2022/10/13 11:48
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
ユーザーフォーム上にある「テキストボックス」に小数が入力できない
Excel(エクセル)
-
Excel vba ユーザーフォームテキストボックス内の小数点表示
Visual Basic(VBA)
-
-
4
EXCEL VBAの入力規則で小数点桁数を指定することはできますか?
Excel(エクセル)
-
5
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
6
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
7
VBAで入力数値について
Visual Basic(VBA)
-
8
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
9
UserForm1.Showでエラーになります。
工学
-
10
Excel VBA ユーザーフォーム内のラベルにテキストボックスの計算結果を出す方法
Visual Basic(VBA)
-
11
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
12
エクセルVBA ユーザーフォームのtextboxの書式設定って?
Excel(エクセル)
-
13
【VBA】計算結果に小数点第2位までを表示させる方法
Visual Basic(VBA)
-
14
VBA:小数点以下の数字を取得できる関数は?
Visual Basic(VBA)
-
15
複数のテキストボックスに同じ処理をしたい
Visual Basic(VBA)
-
16
ユーザーフォーム内のテキストボックス内の書式設定
Excel(エクセル)
-
17
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
18
エクセルVBA「スピンボタンで小数を扱う」
Excel(エクセル)
-
19
エクセルマクロ小数点桁数
Visual Basic(VBA)
-
20
エクセルVBAでUserFormを起動した時
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Inputboxの表示位置(VBA)
-
Excelでユーザ名を入力すればそ...
-
schoolを縮められませんか?
-
テレビでYouTubeの検索をすると...
-
テレビでYouTubeの検索をすると...
-
セキュアブートがWindows側で有...
-
良い回答が複数あってベストア...
-
短縮した表示のしかたを教えて...
-
エクセルの数値がある一定の数...
-
付き合って、『4年3ヶ月記念日...
-
https://oshiete.goo.ne.jp/qa/...
-
行ごとにセルの幅を変えたい
-
質問に回答が付かない場合
-
アマゾンの閲覧履歴について
-
SMSで送られてきた暗証番号の入...
-
英語で、結婚記念日&誕生日 ...
-
教えてgooでは、どんな人が嫌わ...
-
教えてgooってベストアンサーを...
-
ベストアンサーもらったらうれ...
-
食品のパッケージの裏にある表...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Steamで
-
Inputboxの表示位置(VBA)
-
Excelのtextboxへの入力で小数...
-
数式の中の値にカンマをつけた...
-
Windows 2000プロダクトキース...
-
ひらがな入力のとき、チェック...
-
この状態で入力しても、指定さ...
-
マカフィーの登録
-
エクスプローラでIPアドレス入力
-
VBAの構文で>を入力したいので...
-
正しく入力しているのに・・・
-
日本奨学金の継続届についてで...
-
シティバンクのネットバンキン...
-
CDタイトルの入力方法
-
アマゾンで中古本の購入時にク...
-
IMEスタンダード2002で・・・
-
エクセルで・・・
-
エクセルでのデーターの並び替え
-
エクセルで数値を振り分けて引く
-
yahooのキーワード入力補助につ...
おすすめ情報
Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "#,###" & _
IIf(InStr(TextBox1.Text, ".0") <> 0, ".0#", IIf(InStr(TextBox1.Text, ".") = 0, "", ".##")))
End Sub
使用する値が小数点第2位までなので、上記のようにすることで
とりあえずは解決しましたが、
使用する値の小数点以下の位が増えたときに対応できません。
根本的な解決方法があれば教えていただきたいです。