以前にユーザーフォーム上のテキストボックスにセル値反映する方法を下記(サンプル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も見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
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
EXCEL VBAの入力規則で小数点桁数を指定することはできますか?
Excel(エクセル)
-
8
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
9
カンマ区切り
Visual Basic(VBA)
-
10
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
11
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
12
エクセルの画面にユーザーフォームでテンキーを表示させたい
Excel(エクセル)
-
13
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
14
VBAのTextBoxに半角数字のみ入力したい
Visual Basic(VBA)
-
15
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
16
ExcelVBA EnableプロパティがFalseの時に文字の色を変えたくない
Visual Basic(VBA)
-
17
ユーザーフォーム スクロールバー 非表示にしたい
Excel(エクセル)
-
18
Excelにて、ユーザーフォームで作成したテンキーの、表示している数字を セルに転記したい
Yahoo!ショッピング
-
19
VBの質問#if 0 then ってどう言う意味?
Excel(エクセル)
-
20
VBAのフォームでTextBoxがいっぱいある時
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォーム上にある「テ...
-
アクセスでテキストボックスの...
-
Access VBAボタンでテキストボ...
-
Accessテキストボックスの未入...
-
Wordのテキストボックスの位置...
-
ACCESSのテキスト自動入力方法
-
Word縦書きで左から右への行
-
Access レポート印刷するときに...
-
passwordが入れられません・・・・
-
データベースのINT型項目にNULL...
-
ACCESS フォームをそのまま印刷...
-
「フォームを作成できませんで...
-
YahooのIDがロックされてしまい...
-
レコードを保存するコード ア...
-
サブフォームに対してGoToRecor...
-
フォームで入力しても反映されない
-
アクセスで数値型のフィールド...
-
エクセルをACCESSのレポ...
-
Accessレポートのチェックボッ...
-
Accessで、フォームからフォー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセスでテキストボックスの...
-
Word縦書きで左から右への行
-
ユーザーフォーム上にある「テ...
-
ACCESS 値の代入
-
チェックボックスのON OFFでの...
-
VBA 空白テキストボックスカウント
-
Access VBAボタンでテキストボ...
-
Accessテキストボックスの未入...
-
VBAでテキストボックスに斜線を...
-
Access テキストボックスのフォ...
-
もう一点、組織図について
-
テキストボックスや図、オブジ...
-
accessのフォームで日付を定形...
-
スクロールテキストボックスで...
-
イラストレーターのCS2を使用し...
-
マクロ初心者です。エクセルの...
-
エクセル2000での2つのテキスト...
-
アクセス Dlookup関数の表示が...
-
【Access】 テキストボックスへ...
-
連番を変更するマクロ
おすすめ情報