
以前にユーザーフォーム上のテキストボックスにセル値反映する方法を下記(サンプル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.3ベストアンサー
- 回答日時:
こんばんは。
プロパティを省略ですか?
TextBox1.Value とか、TextBox1.Text とか、右辺であろうが、左辺であろうが省略しないほうがよいし、Range のプロパティも、.Value にしたほうがよいです。これは基礎だと思います。むしろ、マクロでは、そのプロパティの使い分けをするためですが。
>どのようにしたら、テキストボックスに小数が入力できるようになるのでしょうか?
ところで、その問題は、セルの書式が、「0」とか、小数点を出さないようになっているのではないでしょうか。
Sheets("Sheet1").Range("B1").NumberFormat = "General" 'これを入れれば変わるはずです。
ありがとうございます。
原因はテキストボックスのFormatを指定いたことだったみたいでした。
でも、Wendy02さんのご返答大変参考になりました。
No.2
- 回答日時:
テキストボックスには、数字英字記号など入力できます。
従って小数点も入力できます。結果はとりあえず文字列(注意)です。小数点つき数として扱いたいのなら、その文字列を数値、それもIntegerではなく、実数に変換せねばならない。これをやってますか。テキストボックスとコマンドボタンをフォームに設け
Private Sub CommandButton1_Click()
Cells(1, "A") = Val(TextBox1.Text)
End Sub
それにエクセルのシートのセルの場合、表示形式の小数点以下桁数指定などもあります。
少数例でテスト済み。
ありがとうございます。
原因はテキストボックスのFormatを指定いたことだったみたいでした。
でも、mogasiさんのご返答大変参考になりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 重複チェック後に値をワークシートに転記する方法を教えてください。 1 2023/03/19 12:43
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) ユーザーフォームで銀行に対応した支店コードの入力ができません Sheet1のA列に銀行名、B列に銀行 5 2022/07/28 17:50
- Visual Basic(VBA) フレーム内のオプションボタンの選択結果をセルに書き出したい。 図のような預金種目というフレームにオプ 2 2022/07/29 11:12
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Visual Basic(VBA) ユーザーフォームの書き出しで追加のご相談 ユーザーフォームの値をシートに書き出す際、コードが表示され 2 2022/08/05 10:58
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
このQ&Aを見た人はこんなQ&Aも見ています
-
それもChatGPT!?と驚いた使用方法を教えてください
仕事やプライベートでも利用が浸透してきたChatGPTですが、こんなときに使うの!!?とびっくりしたり、これは画期的な有効活用だ!とうなった事例があれば教えてください!
-
いちばん失敗した人決定戦
あなたの「告白」での大失敗を教えてください。
-
モテ期を経験した方いらっしゃいますか?
一生に一度はモテ期があるといいますが、みなさんどうですか? いまがそう! という方も、「思い返せばこの頃だったなぁ」という方も、よかったら教えて下さい。
-
AIツールの活用方法を教えて
みなさんは普段どのような場面でAIツール(ChatGPTなど)を活用していますか?
-
集中するためにやっていること
家で仕事をしているのですが、布団をはじめ誘惑だらけでなかなか集中できません。
-
ExcelVBAでテキストボックスの表示形式を小数点第二位まで表示する方法
Visual Basic(VBA)
-
Excel vba ユーザーフォームテキストボックス内の小数点表示
Visual Basic(VBA)
-
Excelのtextboxへの入力で小数点以下に0が続く場合でも正しく表示したい
Excel(エクセル)
-
-
4
ユーザーフォーム内のテキストボックス内の書式設定
Excel(エクセル)
-
5
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
6
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
7
ユーザーフォームのTextに数値を入れるとセルにエ
Excel(エクセル)
-
8
TextBoxから数字が文字として入力される?
Visual Basic(VBA)
-
9
UserForm1.Showでエラーになります。
工学
-
10
ユーザーフォームのテキストボックスに前回入力した値を表示する Excel
Visual Basic(VBA)
-
11
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
12
カンマ区切り
Visual Basic(VBA)
-
13
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
14
VB初心者。小数点以下の表示でつまづいています(2
Visual Basic(VBA)
-
15
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
16
excelのInitializeイベントとActivateイベントについて
Excel(エクセル)
-
17
EXCEL VBAの入力規則で小数点桁数を指定することはできますか?
Excel(エクセル)
-
18
Excel VBA ユーザーフォーム1のコンボボックスに別ブックの値を反映させたいです。
Visual Basic(VBA)
-
19
エクセルVBA ユーザーフォームのTextBoxを日付にしたい
Excel(エクセル)
-
20
Accessで小数の入力について
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセスでテキストボックスの...
-
Word縦書きで左から右への行
-
連番を変更するマクロ
-
ACCESSのタブオーダー
-
ワード テキストボックスの編...
-
Access レポート印刷するときに...
-
データベースのINT型項目にNULL...
-
passwordが入れられません・・・・
-
iphoneのフルスクリーンの解除方法
-
レコードを保存するコード ア...
-
サブフォームに対してGoToRecor...
-
vbaで列を非表示にする方法はあ...
-
Access VBA には Gridはないで...
-
「フォームを作成できませんで...
-
ACCESSのフォームからハイパー...
-
新規レコード行を非表示にしたい
-
入力規則違反-任意のエラーメ...
-
Accessレポートのチェックボッ...
-
Excel 入力規則 リスト 複数...
-
Accessでエラーメッセージの表...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Word縦書きで左から右への行
-
アクセスでテキストボックスの...
-
ユーザーフォーム上にある「テ...
-
チェックボックスのON OFFでの...
-
選択フォームに入力した条件を...
-
Accessテキストボックスの未入...
-
Access VBAボタンでテキストボ...
-
VBAでテキストボックスに斜線を...
-
ACCESSのタブオーダー
-
VBA 空白テキストボックスカウント
-
ワード テキストボックスの編...
-
アクセス Dlookup関数の表示が...
-
マクロ初心者です。エクセルの...
-
連番を変更するマクロ
-
ワード テキストボックスの検索
-
ACCESS 値の代入
-
ACCESSのテキスト自動入力方法
-
ACCESS 日付データ
-
ワード2010で画像の式は書ける...
-
indesignでテキストの連結順序...
おすすめ情報