No.3ベストアンサー
- 回答日時:
こんばんは。
>TextBox1の「ControlSource」にA1と入力すると
としたら、セルと連動するのですから、セルを合わせるか、テキストボックスを合わせるかしても、結果的に同じ値になるのですから、TextBox1 とA1 を、そのままつなげることはできません。
テキストボックスのダミーを設けます。(ここでは、TextBox2 とします)
そして、そちらに、ControlSource = A1 と置き、プロパティの Visible =False にします。
'ユーザーフォームモジュール
Private Sub TextBox2_Change()
Dim buf As Variant
buf = ActiveSheet.Range("A1").Text
If IsNumeric(buf) Then
TextBox1.Text = Format(buf, "#,##0.00")
End If
End Sub
Private Sub UserForm_Initialize()
TextBox1.Text = ActiveSheet.Range("A1").Text
End Sub
なお、テキストボックスの表示の基本は、Text ですから、表示は、あくまでも、文字列です。ですから、そこに書式自体は、イタリックや太字などの文字列書式しか存在していません。
No.2
- 回答日時:
エクセルのA1セルの書式を小数点以下2桁にしても、テキストボックスには反映されなかった。
多分セルの「値」を持ってくるので、表示形式の設定まではセルからテキストボックスには移らないのでしょう。
テキストボックスのプロパティを見たが、表示形式を設定する項目は
見つからなかった(?100%は自信はない)
テキストボックスは入力用を主に考え、表示用は十分考えられてないのかな。
それで
Private Sub UserForm_Initialize()
UserForm1.TextBox1.Text = Format(UserForm1.TextBox1.Text, "0000.00")
End Sub
を入れると実現はできた。
こういう方法しかないか、100%は自信はないが。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
ユーザーフォーム上にある「テキストボックス」に小数が入力できない
Excel(エクセル)
-
エクセルVBA ユーザーフォームのtextboxの書式設定って?
Excel(エクセル)
-
-
4
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
5
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
6
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
7
ユーザーフォームのTextに数値を入れるとセルにエ
Excel(エクセル)
-
8
Excel vba ユーザーフォームテキストボックス内の小数点表示
Visual Basic(VBA)
-
9
ExcelのVBAでフォームが表示されない
Excel(エクセル)
-
10
Excelのtextboxへの入力で小数点以下に0が続く場合でも正しく表示したい
Excel(エクセル)
-
11
VBAのフォームでTextBoxがいっぱいある時
Access(アクセス)
-
12
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
13
エクセルVBAユーザーフォームのテキストボックスについて
Excel(エクセル)
-
14
エクセルVBA オプションボタンのチェックを外したい
Excel(エクセル)
-
15
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
16
UserForm1.Showでエラーになります。
工学
-
17
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
18
ユーザーフォームのテキストボックスに前回入力した値を表示する Excel
Visual Basic(VBA)
-
19
EXCEL・VBAフォームの日付(表示形式を変更したい)
Excel(エクセル)
-
20
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルでの計算式で求められ...
-
エクセルのセル内の余白の設定...
-
エクセルの計算結果を()括弧で...
-
Excelで 分:秒 と表示させる...
-
エクセルで日付が逆に登録され...
-
エクセルで数式を入れても値が...
-
エクセルの計算式の後に、単位...
-
エクセルの分数表示
-
エクセルで西暦に変更できない
-
エクセルで 何時間何分と表示...
-
【Excel】 特定セルだけに「ゼ...
-
エクセルで折り返しと縮小の同...
-
エクセル 桁を増やす方法
-
Excelの単位で立法メイトルを表...
-
EXCELで日付と時刻が入ったセル...
-
エクセル 条件付き書式で文字...
-
数字の後ろにピリオドを表示す...
-
EXCELでセル内に打った文字が隠...
-
エクセルマクロで「1」を「01」...
-
セルの書式設定で一部のフォン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでの計算式で求められ...
-
エクセルのセル内の余白の設定...
-
エクセルで数式を入れても値が...
-
エクセルの計算結果を()括弧で...
-
Excelで 分:秒 と表示させる...
-
エクセルで日付が逆に登録され...
-
エクセルの計算式の後に、単位...
-
エクセルで折り返しと縮小の同...
-
エクセル 条件付き書式で文字...
-
エクセルで西暦に変更できない
-
エクセル 桁を増やす方法
-
エクセルで 何時間何分と表示...
-
【Excel】 特定セルだけに「ゼ...
-
エクセルの分数表示
-
数字の後ろにピリオドを表示す...
-
EXCELで日付と時刻が入ったセル...
-
Excelに「隠し文字」のような機...
-
エクセルで、書式設定をして表...
-
エクセル・文字列の先頭に空白...
-
Excelの単位で立法メイトルを表...
おすすめ情報