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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
-
4
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
5
ユーザーフォーム内のテキストボックス内の書式設定
Excel(エクセル)
-
6
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
7
エクセルVBAのフォームで日時を入力しやすくしたい
Excel(エクセル)
-
8
VBA ユーザーフォームのChangeイベントを停止したい
Access(アクセス)
-
9
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
10
UserForm1.Showでエラーになります。
工学
-
11
Excel VBA ユーザーフォーム内のラベルにテキストボックスの小計を出す方法
Visual Basic(VBA)
-
12
TextBoxから数字が文字として入力される?
Visual Basic(VBA)
-
13
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
14
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
15
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
16
テキストボックスの値を変数に代入したい。
Visual Basic(VBA)
-
17
エクセルVBA テキストボックスへのセットフォーカスについて
Visual Basic(VBA)
-
18
フォームテキストボックスの表示設定
Excel(エクセル)
-
19
ユーザーフォームで動的(Me.Controls.Add)に作成したコントロールの削除
Visual Basic(VBA)
-
20
エクセル ユーザーフォームにオートシェープ(図形)を貼り付けるこは可能なのでしょうか?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
腐女子の人は男性が苦手?
-
「freebird」のカップリング曲
-
NHK 『家族に乾杯』 の主題歌
-
カプとはなんですか??
-
エクセルVBA ユーザーフォーム...
-
ボーイズラブの良さとは?
-
BL系漫画が置いてあるマンガ喫茶
-
kinki kidsの新曲「薄荷キャン...
-
Mr.Childrenの曲で
-
V6の「晴れすぎた空」の歌詞を...
-
腐女子はどうしてBLが好き?
-
腐女子の見分け方クイズ
-
マギについて
-
乙女ゲーム「赤ずきんと迷いの...
-
銀魂アンソロジーのお勧め本を...
-
心情重視のオススメ百合漫画
-
CP(腐)の順番について
-
S・Aの夢小説
-
空想フォレストと想像フォレス...
-
自分の気持ちがわかりませんが...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA ユーザーフォーム...
-
CP(腐)の順番について
-
腐女子の見分け方クイズ
-
幽遊白書の疑問(躯について)
-
腐女子が嫌すぎて辛いです
-
カプとはなんですか??
-
「freebird」のカップリング曲
-
クリスタルヒトシ君の相場って?
-
腐女子の人は男性が苦手?
-
関ジャニ∞のヘブンリーサイコ ...
-
ちょっとHなイラスト
-
BLとかGLってどこがいいんです...
-
BL好き&オタクが結構私の周り...
-
シランカップリング剤について
-
空想フォレストと想像フォレス...
-
BLACK CATのカップリング
-
「timer」の不思議
-
VE管用のボックスコネクタのこ...
-
腐女子のせいで好きな漫画が見...
-
前川清さんの隠れた名曲を探し...
おすすめ情報