Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10944 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   こんにちは、またまたお世話になりたいと思います。
文字列の関数をいろいろ試してみたり、過去のログを
参考に見てみましたが、解決方法が浮かばないので、
お願い致します。
セルの文字列は、数字が１〜３桁と"km" か"H"との
組み合わせです。 例　"120km" "2H"
ユーザーフォームのテキストボックスにセルの文字列のうち
数字だけを取得したいのですが、"120" "2"　のように
このようなことは可能でしょうか？
【19134】Re:セルの文字列から数字だけ取得したい
回答  ISK  - 04/10/22(金) 22:47 -
引用なし
パスワード
   ▼mickeypapa さん：
>こんにちは、またまたお世話になりたいと思います。
>文字列の関数をいろいろ試してみたり、過去のログを
>参考に見てみましたが、解決方法が浮かばないので、
>お願い致します。
>セルの文字列は、数字が１〜３桁と"km" か"H"との
>組み合わせです。 例　"120km" "2H"
>ユーザーフォームのテキストボックスにセルの文字列のうち
>数字だけを取得したいのですが、"120" "2"　のように
>このようなことは可能でしょうか？


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

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

で可能です。
試してみてください。
【19135】Re:セルの文字列から数字だけ取得したい
回答  かみちゃん  - 04/10/22(金) 22:47 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>セルの文字列は、数字が１〜３桁と"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 -
引用なし
パスワード
   ▼かみちゃん さん：
こんにちは、かみちゃん　さん
回答有り難うございます。毎回ＶＢＡの基本的な
事も分からずに質問している私に、呆れずに親切な回答を
いただき、感謝しております。
今後も宜しくお願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
10944 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free