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(エクセル)
-
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
-
4
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
5
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
6
ユーザーフォーム内のテキストボックス内の書式設定
Excel(エクセル)
-
7
エクセルVBAのフォームで日時を入力しやすくしたい
Excel(エクセル)
-
8
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
9
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
10
VBA ユーザーフォームのChangeイベントを停止したい
Access(アクセス)
-
11
VBAでユーザーフォームを再表示させたい。
Excel(エクセル)
-
12
UserForm1.Showでエラーになります。
工学
-
13
Excel VBA ユーザーフォーム内のラベルにテキストボックスの小計を出す方法
Visual Basic(VBA)
-
14
ユーザーフォームのラベルに日付を表示させる方法があればお願いします。出来ればコード書いていただけると
Visual Basic(VBA)
-
15
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
16
TextBoxから数字が文字として入力される?
Visual Basic(VBA)
-
17
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
18
テキストボックスの値を変数に代入したい。
Visual Basic(VBA)
-
19
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
20
ExcelVBAのユーザーフォームの中に線を引きたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBA ユーザーフォーム...
-
腐女子について
-
おうらん高校ホスト部
-
札幌市内の5スロのあるパチンコ店
-
私は腐女子じゃないのですが(む...
-
BL、夢小説好きな人!
-
腐女子向けの漫画を教えてくだ...
-
DC SHOES 渋谷の正規店
-
トヨタレンタリースのCM
-
CP(腐)の順番について
-
秋元真夏に似てるって言われる...
-
スガシカオのオンリーユー
-
Mr.BIGのカバー曲
-
カプとはなんですか??
-
腐女子の方にお聞きしたいこと...
-
ボーイズラブで漫画・小説でお...
-
腐女子のせいで好きな漫画が見...
-
ヘタレって何ですか?
-
なぜ美形男子キャラオタクで腐...
-
関ジャニ∞のヘブンリーサイコ ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA ユーザーフォーム...
-
幽遊白書の疑問(躯について)
-
CP(腐)の順番について
-
腐女子の見分け方クイズ
-
腐女子が嫌すぎて辛いです
-
VE管用のボックスコネクタのこ...
-
カプとはなんですか??
-
インデックスはなぜ人気があま...
-
「freebird」のカップリング曲
-
腐女子の人は男性が苦手?
-
黒子のバスケはなぜ腐女子の方...
-
関ジャニ∞のヘブンリーサイコ ...
-
「涼宮ハルヒの憂鬱」の長門有...
-
この訳と言いますか意味は?
-
ヤンデレ(病みの方)の女の子が...
-
WJ系の商業アンソロって・・・
-
BL漫画・小説を探しています
-
BL系漫画が置いてあるマンガ喫茶
-
RADWIMPS おっぱい
-
【BL】こんな商業ありますか
おすすめ情報