EXCEL 数値と文字列の共存

質問

凄く初歩的な質問だとは思うのですが解決出来なくて困っています。

ユーザーフォーム上のテキストボックスから
セルに入力をする時に

485768

っと数値を入力すると入力はされますが
「数値が文字列として入力されています」
とエラーが出てしまします。
これだけなら「str」ってのを使うと解決するのですが
その同じテキストボックスで

3RD-544

のような文字列も入力します。
これだと「str」だとエラーが出てしまいます。
しかし「val」で解決します。
でも、すると数値のみの時にエラーが出てしまします。

・・・要するに文字列もしくは標準で入力したいのです。
if構文で数値の時は「str」、文字列の時は「val」
のように凄く回りくどくやれば出来そうな気はするのですが
もっとさくっと出来る方法はないでしょうか？

回答No.3

papayuka · ベストアンサー

#1です。

> ダメでした。

そうですか、、、
該当のメッセージが出るExcel2003では問題無かったので、ちょっと原因が思いつきません。
TextBoxに数値を入れた場合、セルに代入される際にセルの書式設定が標準ならば数値型に変換されると思うのですが、、、

新規ブックで新規UserFormにTextBox1とCommandButton1を置いて試しても同じですか？

Private Sub CommandButton1_Click()
　　Range("F2").NumberFormat = "General"
　　Range("F2").Value = TextBox1.Value
End Sub

更には

Private Sub CommandButton1_Click()
　　Range("F2").NumberFormat = "General"
　　Range("F2").Value = Trim(TextBox1.Value)
End Sub

のようにTrimを使っても同じですか？

お礼

おおお！！
「Trim」です！
探していたコードはまさにこれです！！
一気に片付きましたＯ(≧▽≦)Ｏ

ありがとうございます。

回答No.2

papayuka

#1です。

> セルの左寄りに表示され「！」でエラーが出ます。

エラーと言うより注意表示なのでしょうね。
何処かに非表示にする設定があると思いますけど、こちらの環境（Excel2000）では出ないので解りません。

Private Sub 入力_Click()
　　Range("F2").NumberFormat = "General"
　　Range("F2").Value = Text1.Value
End Sub

のようにするとどうでしょうか？

---

コマンドボタン等のオブジェクト名や変数には出来るだけ日本語を使わない方が無難です。
予期せぬ不具合が出る可能性がありますので。

お礼

ありがとうございます＾＾

Private Sub 入力_Click()
　　Range("F2").NumberFormat = "General"
　　Range("F2").Value = Text1.Value
End Sub

はダメでした。

>エラーと言うより注意表示なのでしょうね。
>何処かに非表示にする設定があると思いますけど、こちらの環境(Excel2000）では出ないので解りません。

これは確かに有効なんですけどこのファイルじたい
サーバーで共有して会社内全体で使いたいので全員分設定
変えなくちゃいけないのがネックです(>_<)

回答No.1

papayuka

ご質問を良く理解出来ませんでした。

> 「数値が文字列として入力されています」
> とエラーが出てしまします。

これはどんな状況で出るメッセージなのでしょう？
Excelのバージョンによるものなのかな？

Excelのバージョンとシート構成やUserFormの構成、書かれているコードを掲示された方が良いかも。

補足

すいません！補足します^^;
EXCELのバージョンはXPで
ユーザーフォームにテキストボックス(text1)とコマンドボタン(入力)
の２つがある状態

Private Sub 入力_Click()

Range("F2").Select
ActiveCell = Text1

End Sub

っとコードを書いた場合です。

これだとF2セルに「485768」のようなは入るは入るのですが
セルの左寄りに表示され「！」でエラーが出ます。
「このセルにある数値がテキスト形式、またはアポストロフィで始まっています」
っと言う内容です。
そこで
ActiveCell = Val(Text1)
にすると「485768」は無事数字として入力されるのですが
「3RD-544」は「3」しか入力されません。
なので
ActiveCell = str(Text1)
にしてみても上記と一緒でやっぱりだめです。

要するに「485768」も「3RD-544」エラーが出る事無く
入力出来る用になりたいのです。
どうにかなりませんでしょうか？