こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

Excel VBA ユーザーフォームのテキストボックスで

Excel2000or2003でマクロを作っております。
ユーザーフォームのテキストボックスで、例えば時間を入力するとします。
Private Sub TextBox1_Change()
Worksheets("Work").Range("B3").Value = TextBox1
End Sub
と書いたところ、セルには数値としてではなく文字として入ってしまうようで、後のルーチンで計算できません。
数値として扱うには、どうしたら良いでしょうか?
お手数ですが、ご教授願います。

投稿日時 - 2007-02-13 23:09:40

QNo.2750309

すぐに回答ほしいです

質問者が選んだベストアンサー

TextBox1.Text
で取れる値は、数字で入力されても文字列の数字です。
文字通りテキストです。
Worksheets("Work").Range("B3").Value = Val(TextBox1)
で済むことでは。Val関数を使う。

投稿日時 - 2007-02-14 00:01:27

お礼

早速のご回答ありがとうございます。
Val関数を使ったところ、うまく出来ました。
大変助かりました。

投稿日時 - 2007-02-14 06:05:48

ANo.2

このQ&Aは役に立ちましたか?

1人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

Worksheets("Work").Range("B3").Value = TextBox1.Value

投稿日時 - 2007-02-13 23:15:49

お礼

ANo.2で解決できました。
ありがとうございました。

投稿日時 - 2007-02-14 06:07:57

あなたにオススメの質問