No.1ベストアンサー
- 回答日時:
こんにちは、
TextBox には書式はありませんから、以下のようにFormat 関数を使います。
テキストボックスの文字は右揃えは、そのプロパティの TextAlign =3 '-fmTextAlignRigh に設定します。
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim str1 As String
If KeyCode = 13 Then
str1 = TextBox1.Text
If IsNumeric(str1) Then
TextBox1.Text = Format$(CLng(str1), "#,##0")
End If
End If
End Sub
また、その数字を使って計算する場合は、Clng /CDbl で数値に変換します。
Private Sub CommandButton1_Click()
'計算する場合
Dim str1 As Variant
str1 = TextBox1.Text
If IsNumeric(str1) Then
str1 = CLng(str1) * 10 '計算する場合は、Clng で変換
TextBox2.Text = Format$(CLng(str1), "#,##0")
End If
End Sub
早速のご返答ありがとうございます。
やはり、書式設定みたいなのは無いのですね。
コード方を作成していただき、誠にありがとう
ございます。
カンマを表示させるのに、こんなにコードが
必要なのですね。
おかげさまで、このコードを参考に、カンマ
導入をしていけそうです。
で、少し、このコードについて質問なのですが
>If KeyCode = 13 Then
の「13」とは何を意味しているのでしょうか。
keycodeの事もあまり理解できていないので
もし、お手数でなければお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで条件付き書式を使わずにセルの文字の色を変える方法を教えて下さい 8 2023/07/28 01:15
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Excel(エクセル) Excel VBA セルの書式設定 2 2022/03/30 10:48
- Excel(エクセル) エクセルの「セル書式設定」 4 2022/08/29 16:42
- Excel(エクセル) Excelの関数について教えてください。 5 2023/07/28 11:27
- Excel(エクセル) エクセルについて教えてください。 1 2022/12/26 09:01
- Excel(エクセル) 【再度】Excelの関数について教えてください。 4 2023/07/28 13:06
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/02 10:20
- Excel(エクセル) エクセルにおいてセル内の文字を出来るだけ大きく表示する方法を教えてください。 4 2022/07/30 08:08
- Excel(エクセル) Excelのtextboxへの入力で小数点以下に0が続く場合でも正しく表示したい 3 2022/04/11 13:53
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
-
4
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
5
ユーザーフォーム内のテキストボックス内の書式設定
Excel(エクセル)
-
6
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
7
エクセルVBAのフォームで日時を入力しやすくしたい
Excel(エクセル)
-
8
VBA ユーザーフォームのChangeイベントを停止したい
Access(アクセス)
-
9
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
10
Excel VBA ユーザーフォーム内のラベルにテキストボックスの小計を出す方法
Visual Basic(VBA)
-
11
TextBoxから数字が文字として入力される?
Visual Basic(VBA)
-
12
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
13
UserForm1.Showでエラーになります。
工学
-
14
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
15
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
16
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
17
テキストボックスの値を変数に代入したい。
Visual Basic(VBA)
-
18
VBAでテキストボックス内の編集をする方法
Visual Basic(VBA)
-
19
フォントの大きさ
Visual Basic(VBA)
-
20
エクセルVBA テキストボックスへのセットフォーカスについて
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
腐女子の見分け方クイズ
-
BLとかGLってどこがいいんです...
-
ちょっとHなイラスト
-
エクセルVBA ユーザーフォーム...
-
黒バス脅迫逮捕は良かったものの…
-
腐女子の人は男性が苦手?
-
黒子のバスケはなぜ腐女子の方...
-
MSSPってBL・腐向けNGって公言...
-
3月30日発売のジャンプのN...
-
シランカップリング剤について
-
kinki kidsの新曲「薄荷キャン...
-
マギについて
-
Mr.BIGのカバー曲
-
漫画のキャラが好きで二次元に...
-
復縁できますか?
-
前にアプローチしてくれたのを...
-
社会人ってどうやって恋愛して...
-
ケンカした時の 男性側の 「少...
-
ヤリモクの人って一回したら終...
-
往復2時間かかる彼女のお迎えに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA ユーザーフォーム...
-
CP(腐)の順番について
-
腐女子が嫌すぎて辛いです
-
幽遊白書の疑問(躯について)
-
カプとはなんですか??
-
腐女子の見分け方クイズ
-
秋元真夏に似てるって言われる...
-
こんなbl漫画&小説さがしてます
-
黒子のバスケはなぜ腐女子の方...
-
BL好き&オタクが結構私の周り...
-
シランカップリング剤について
-
「freebird」のカップリング曲
-
腐女子の人は男性が苦手?
-
関ジャニ∞のヘブンリーサイコ ...
-
夢小説を読むのをやめたいです...
-
テニスの王子様の菊丸英二は受...
-
ヤンデレ(病みの方)の女の子が...
-
REBORNについて・・
-
おそ松さんのpixivで見つけた漫...
-
BL注意。受けが可愛くて濡れ場...
おすすめ情報