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
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
6
VBAで入力数値について
Visual Basic(VBA)
-
7
Excel VBA ユーザーフォーム内のラベルにテキストボックスの計算結果を出す方法
Visual Basic(VBA)
-
8
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
9
エクセルVBA ユーザーフォームのtextboxの書式設定って?
Excel(エクセル)
-
10
UserForm1.Showでエラーになります。
工学
-
11
ユーザーフォームのテキストボックスに前回入力した値を表示する Excel
Visual Basic(VBA)
-
12
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
13
複数のテキストボックスに同じ処理をしたい
Visual Basic(VBA)
-
14
ユーザーフォーム内のテキストボックス内の書式設定
Excel(エクセル)
-
15
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
16
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
17
エクセルマクロ小数点桁数
Visual Basic(VBA)
-
18
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
19
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
20
【VBA】計算結果に小数点第2位までを表示させる方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
この状態で入力しても、指定さ...
-
アンドロイドのGメールですが、...
-
日本奨学金の継続届についてで...
-
ひらがな入力のとき、チェック...
-
Excelのtextboxへの入力で小数...
-
マカフィーの登録
-
schoolを縮められませんか?
-
PCで登録途中の画面から認証コ...
-
SMSで送られてきた暗証番号の入...
-
お香に使うこの台はなんと検索...
-
printscreenを押すと印刷されて...
-
短縮した表示のしかたを教えて...
-
一つしか回答ない質問どうして...
-
文字の入力ができません。
-
異常にベストアンサーが多い方...
-
付き合って、『4年3ヶ月記念日...
-
「まだベストアンサーは選べま...
-
ベストアンサー率あげるにはイ...
-
ベストアンサーを選びたくない
-
質問者のほうが立場が上という...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
日本奨学金の継続届についてで...
-
コマンドプロンプトって「cmd」と...
-
Inputboxの表示位置(VBA)
-
Excelのtextboxへの入力で小数...
-
この状態で入力しても、指定さ...
-
数式の中の値にカンマをつけた...
-
Windows 2000プロダクトキース...
-
ひらがな入力のとき、チェック...
-
マカフィーの登録
-
画像変更
-
VBAの構文で>を入力したいので...
-
エクセルの関数で、100%以下の...
-
Excelで=IF()と入力して、カッ...
-
エクセルの期間数(年月数)の...
-
Googleのオートコンプリート機...
-
自分のPCのスペックを 知りたい!
-
アンドロイドのGメールですが、...
-
win10 メールソフトを立ち上げ...
-
IMEスタンダード2002で・・・
-
Excelでユーザ名を入力すればそ...
おすすめ情報
Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "#,###" & _
IIf(InStr(TextBox1.Text, ".0") <> 0, ".0#", IIf(InStr(TextBox1.Text, ".") = 0, "", ".##")))
End Sub
使用する値が小数点第2位までなので、上記のようにすることで
とりあえずは解決しましたが、
使用する値の小数点以下の位が増えたときに対応できません。
根本的な解決方法があれば教えていただきたいです。