Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10923 / 13644 ツリー ←次へ | 前へ→

【19132】セルの文字列から数字だけ取得したい mickeypapa 04/10/22(金) 22:23 質問[未読]
【19134】Re:セルの文字列から数字だけ取得したい ISK 04/10/22(金) 22:47 回答[未読]
【19142】Re:セルの文字列から数字だけ取得したい mickeypapa 04/10/23(土) 7:50 お礼[未読]
【19135】Re:セルの文字列から数字だけ取得したい かみちゃん 04/10/22(金) 22:47 回答[未読]
【19143】Re:セルの文字列から数字だけ取得したい mickeypapa 04/10/23(土) 7:54 お礼[未読]

【19132】セルの文字列から数字だけ取得したい
質問  mickeypapa WEB  - 04/10/22(金) 22:23 -

引用なし
パスワード
   こんにちは、またまたお世話になりたいと思います。
文字列の関数をいろいろ試してみたり、過去のログを
参考に見てみましたが、解決方法が浮かばないので、
お願い致します。
セルの文字列は、数字が1〜3桁と"km" か"H"との
組み合わせです。 例 "120km" "2H"
ユーザーフォームのテキストボックスにセルの文字列のうち
数字だけを取得したいのですが、"120" "2" のように
このようなことは可能でしょうか?

【19134】Re:セルの文字列から数字だけ取得したい
回答  ISK  - 04/10/22(金) 22:47 -

引用なし
パスワード
   ▼mickeypapa さん:
>こんにちは、またまたお世話になりたいと思います。
>文字列の関数をいろいろ試してみたり、過去のログを
>参考に見てみましたが、解決方法が浮かばないので、
>お願い致します。
>セルの文字列は、数字が1〜3桁と"km" か"H"との
>組み合わせです。 例 "120km" "2H"
>ユーザーフォームのテキストボックスにセルの文字列のうち
>数字だけを取得したいのですが、"120" "2" のように
>このようなことは可能でしょうか?


数字の後ろに文字が入力されているのであれば

TG="120km"
Textbox1.value=Val(TG)

で可能です。
試してみてください。

【19135】Re:セルの文字列から数字だけ取得したい
回答  かみちゃん  - 04/10/22(金) 22:47 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>セルの文字列は、数字が1〜3桁と"km" か"H"との
>組み合わせです。 例 "120km" "2H"
>ユーザーフォームのテキストボックスにセルの文字列のうち
>数字だけを取得したいのですが、"120" "2" のように

Val関数でできます。
以下のコードでは、A1に120kmと入力されていて、UserFormを初期化するときに、TextBox1に「120」と表示されます。
Private Sub UserForm_Initialize()
 TextBox1.Text = Val(Range("A1").Value)
End Sub

Val関数のヘルプを見ていただければいいのですが、「文字列中に数字以外の文字が見つかると、Val 関数は読み込みを中止します。」つまり、「120km」という文字列の場合は、「120」までが取得できます。なお、ヘルプに円記号やカンマの場合は、どうなるのかが書かれていますので、注意してください。

【19142】Re:セルの文字列から数字だけ取得したい
お礼  mickeypapa WEB  - 04/10/23(土) 7:50 -

引用なし
パスワード
   ▼ISK さん:
有り難うございます。Val関数を使って
足し算をしているのに、こんな方法は全く気づきませんでした。
自分の愚かさに呆然です。
また宜しくお願い致します。

【19143】Re:セルの文字列から数字だけ取得したい
お礼  mickeypapa WEB  - 04/10/23(土) 7:54 -

引用なし
パスワード
   ▼かみちゃん さん:
こんにちは、かみちゃん さん
回答有り難うございます。毎回VBAの基本的な
事も分からずに質問している私に、呆れずに親切な回答を
いただき、感謝しております。
今後も宜しくお願い致します。

10923 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free