以前にユーザーフォーム上のテキストボックスにセル値反映する方法を下記(サンプル1)のようにお教えいただいたのですが、下記のようにマクロを組むとテキストボックスに小数が入力できなくなってしまいます。
どのようにしたら、テキストボックスに小数が入力できるようになるのでしょうか?
お教えください。
事例)「1.234」とテキストボックスに打ち込むと「1」
「0.856」とテキストボックスに打ち込むと「0」と
なってしまいます。
(サンプル1)
'A1のデータを反映するとした場合
'OptionButton1のコード
Private Sub OptionButton1_Click()
TextBox1 = Sheets("Sheet1").Range("a1")
End Sub
'B1に反映するとして
'OptionButton2のコード
Private Sub OptionButton2_Click()
TextBox1 = ""
End Sub
'TextBox1のコード
Private Sub TextBox1_Change()
If OptionButton2 = True Then
Sheets("Sheet1").Range("B1") = TextBox1.Value
End If
End Sub
No.2
- 回答日時:
テキストボックスには、数字英字記号など入力できます。
従って小数点も入力できます。結果はとりあえず文字列(注意)です。小数点つき数として扱いたいのなら、その文字列を数値、それもIntegerではなく、実数に変換せねばならない。これをやってますか。テキストボックスとコマンドボタンをフォームに設け
Private Sub CommandButton1_Click()
Cells(1, "A") = Val(TextBox1.Text)
End Sub
それにエクセルのシートのセルの場合、表示形式の小数点以下桁数指定などもあります。
少数例でテスト済み。
ありがとうございます。
原因はテキストボックスのFormatを指定いたことだったみたいでした。
でも、mogasiさんのご返答大変参考になりました。
No.3ベストアンサー
- 回答日時:
こんばんは。
プロパティを省略ですか?
TextBox1.Value とか、TextBox1.Text とか、右辺であろうが、左辺であろうが省略しないほうがよいし、Range のプロパティも、.Value にしたほうがよいです。これは基礎だと思います。むしろ、マクロでは、そのプロパティの使い分けをするためですが。
>どのようにしたら、テキストボックスに小数が入力できるようになるのでしょうか?
ところで、その問題は、セルの書式が、「0」とか、小数点を出さないようになっているのではないでしょうか。
Sheets("Sheet1").Range("B1").NumberFormat = "General" 'これを入れれば変わるはずです。
ありがとうございます。
原因はテキストボックスのFormatを指定いたことだったみたいでした。
でも、Wendy02さんのご返答大変参考になりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
Excel vba ユーザーフォームテキストボックス内の小数点表示
Visual Basic(VBA)
-
Excelのtextboxへの入力で小数点以下に0が続く場合でも正しく表示したい
Excel(エクセル)
-
-
4
ユーザーフォーム内のテキストボックス内の書式設定
Excel(エクセル)
-
5
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
6
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
7
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
8
VBAで入力数値について
Visual Basic(VBA)
-
9
EXCEL VBAの入力規則で小数点桁数を指定することはできますか?
Excel(エクセル)
-
10
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
11
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
12
ユーザーフォームのTextに数値を入れるとセルにエ
Excel(エクセル)
-
13
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
14
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
15
ユーザーフォーム スクロールバー 非表示にしたい
Excel(エクセル)
-
16
エクセルの画面にユーザーフォームでテンキーを表示させたい
Excel(エクセル)
-
17
アクセスのテキストボックスの初期値を空白に
Access(アクセス)
-
18
カンマ区切り
Visual Basic(VBA)
-
19
ユーザーフォームで数字にカンマを付けたい
Excel(エクセル)
-
20
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Word縦書きで左から右への行
-
ユーザーフォーム上にある「テ...
-
Access VBAボタンでテキストボ...
-
Accessテキストボックスの未入...
-
アクセス Dlookup関数の表示が...
-
アクセスでテキストボックスの...
-
チェックボックスのON OFFでの...
-
VBAでテキストボックスに斜線を...
-
レコードを保存するコード ア...
-
Access レポート印刷するときに...
-
「フォームを作成できませんで...
-
YahooのIDがロックされてしまい...
-
passwordが入れられません・・・・
-
データベースのINT型項目にNULL...
-
サブフォームに対してGoToRecor...
-
【ACCESS】フォーム名/コントロ...
-
アクセスでフォームビューがみ...
-
クエリで出来た表にチェックボ...
-
アクセスで数値型のフィールド...
-
エクセルをACCESSのレポ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Word縦書きで左から右への行
-
アクセスでテキストボックスの...
-
Accessテキストボックスの未入...
-
ユーザーフォーム上にある「テ...
-
Access VBAボタンでテキストボ...
-
VBA 空白テキストボックスカウント
-
チェックボックスのON OFFでの...
-
ACCESS 値の代入
-
アクセス Dlookup関数の表示が...
-
VBAでテキストボックスに斜線を...
-
ACCESSのタブオーダー
-
ACCESSのテキスト自動入力方法
-
連番を変更するマクロ
-
openoffice Base の使い方
-
Access テキストボックスのフォ...
-
Wordについて
-
エクセルの縦書きテキストボッ...
-
vba(Access2003)の記述情報
-
テキストファイル(またはCSV)...
-
エクセルのVBA
おすすめ情報