以前にユーザーフォーム上のテキストボックスにセル値反映する方法を下記(サンプル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
カンマ区切り
Visual Basic(VBA)
-
9
テキストボックスの番号を使ったFor~Next文について
Visual Basic(VBA)
-
10
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
11
エクセル ユーザーフォームにオートシェープ(図形)を貼り付けるこは可能なのでしょうか?
Excel(エクセル)
-
12
VBA エンターキーでイベントに入りたい。
PowerPoint(パワーポイント)
-
13
エクセルVBAでテキストボックスに入力があった場合のみ、ワークシートに転記したい
Visual Basic(VBA)
-
14
VBAのフォームでTextBoxがいっぱいある時
Access(アクセス)
-
15
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
16
複数のテキストボックスに同じ処理をしたい
Visual Basic(VBA)
-
17
TextBoxから数字が文字として入力される?
Visual Basic(VBA)
-
18
VBAのTextBoxに半角数字のみ入力したい
Visual Basic(VBA)
-
19
最も近い数値のあるセルを探す
Excel(エクセル)
-
20
VBA テキストボックスを選択状態にしたい
その他(プログラミング・Web制作)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセスでテキストボックスの...
-
Word縦書きで左から右への行
-
チェックボックスのON OFFでの...
-
Access テキストボックスのフォ...
-
ACCESS 値の代入
-
ユーザーフォーム上にある「テ...
-
Access レポート印刷するときに...
-
データベースのINT型項目にNULL...
-
アクセスで数値型のフィールド...
-
レコードを保存するコード ア...
-
passwordが入れられません・・・・
-
サブフォームに対してGoToRecor...
-
YahooのIDがロックされてしまい...
-
ACCESS フォームをそのまま印刷...
-
「フォームを作成できませんで...
-
ACCESSのフォーム上で複数検索...
-
アクセスでフォームビューがみ...
-
Accessのフォームで、画面表示...
-
条件に応じてコンボボックスの...
-
ExcelVBAでセルをクリックして...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセスでテキストボックスの...
-
Word縦書きで左から右への行
-
Access VBAボタンでテキストボ...
-
チェックボックスのON OFFでの...
-
VBA 空白テキストボックスカウント
-
VBAでテキストボックスに斜線を...
-
ユーザーフォーム上にある「テ...
-
Accessテキストボックスの未入...
-
ACCESSのタブオーダー
-
ACCESS 値の代入
-
openoffice Base の使い方
-
アクセス Dlookup関数の表示が...
-
連番を変更するマクロ
-
エクセルVBA テキストボックス...
-
Wordのテキストボックスの位置...
-
エクセルの縦書きテキストボッ...
-
テキストボックスや図、オブジ...
-
スクロールテキストボックスで...
-
マクロ初心者です。エクセルの...
-
indesignでテキストの連結順序...
おすすめ情報