![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
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:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
9
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
10
VBA ユーザーフォームのChangeイベントを停止したい
Access(アクセス)
-
11
VBAでユーザーフォームを再表示させたい。
Excel(エクセル)
-
12
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
13
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
14
VBAでマルチページのページ指定方法
Visual Basic(VBA)
-
15
Excel VBA ユーザーフォーム内のラベルにテキストボックスの小計を出す方法
Visual Basic(VBA)
-
16
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
17
UserForm1.Showでエラーになります。
工学
-
18
ユーザーフォームのラベルに日付を表示させる方法があればお願いします。出来ればコード書いていただけると
Visual Basic(VBA)
-
19
ExcelVBAのユーザーフォームの中に線を引きたい
Visual Basic(VBA)
-
20
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
秋元真夏に似てるって言われる...
-
萩尾望都で卒論
-
腐女子の人は男性が苦手?
-
腐女子の見分け方クイズ
-
CP(腐)の順番について
-
「涼宮ハルヒの憂鬱」の長門有...
-
腐女子が嫌すぎて辛いです
-
美人攻めのBL作品を探しています!
-
W不倫 長く続けたいという男性心理
-
LINEの返信間隔を完璧に相手と...
-
前にアプローチしてくれたのを...
-
体調不良で1週間LINEを未読とか...
-
往復2時間かかる彼女のお迎えに...
-
アプリやってる人に質問なんで...
-
返信に困る「うん」とか言われ...
-
気になる異性との日程調整連絡...
-
既読スルーから1ヶ月後に返信す...
-
行為をした際に相手の男性に 奥...
-
結婚を考える彼女の学歴が低い
-
ヤリモクの人って一回したら終...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA ユーザーフォーム...
-
CP(腐)の順番について
-
幽遊白書の疑問(躯について)
-
ネタバレ注意!!カップリング注...
-
腐女子が嫌すぎて辛いです
-
REBORNについて・・
-
カプとはなんですか??
-
おそ松さんのpixivで見つけた漫...
-
「freebird」のカップリング曲
-
夢小説を読むのをやめたいです...
-
オーラの泉にて「魔界の入り口...
-
秋元真夏に似てるって言われる...
-
杉田智和さんのヤンデレキャラo...
-
BL好き&オタクが結構私の周り...
-
那須雪絵さんの白泉社以外の本
-
人類補完計画って何ですか?分...
-
腐女子の見分け方クイズ
-
腐女子について。
-
VE管用のボックスコネクタのこ...
-
Mr.BIGのカバー曲
おすすめ情報