Excel VBA質問箱 IV

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

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


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

【19838】セル内のアルファベットで始まるところから びびこ 04/11/17(水) 17:59 質問[未読]
【19839】Re:セル内のアルファベットで始まるところ... Asaki 04/11/17(水) 18:03 発言[未読]
【19843】Re:セル内のアルファベットで始まるところ... Kein 04/11/17(水) 19:52 回答[未読]
【19859】セル内のアルファベットで始まるところから びびこ 04/11/18(木) 9:15 お礼[未読]
【19857】セル内のアルファベットで始まるところから びびこ 04/11/18(木) 9:14 お礼[未読]

【19838】セル内のアルファベットで始まるところか...
質問  びびこ  - 04/11/17(水) 17:59 -

引用なし
パスワード
   文字判定で検索したのですがなかなかわからないので、、
お願いします!!

A1 に 2-1 BOILER
という文字が入っていて、数字部分を抜いた文字列を取得したいのです。
2-1 の部分は4-1a などもあり、位置が決まっていないので、
文字判定するしか・・
アルファベットで始まる位置からの文字取得の方法を教えてください。
よろしくお願いします。

【19839】Re:セル内のアルファベットで始まるとこ...
発言  Asaki  - 04/11/17(水) 18:03 -

引用なし
パスワード
   こんにちは。

>A1 に 2-1 BOILER
このときは、BOILER が取れればよいのですよね?

>2-1 の部分は4-1a などもあり、位置が決まっていないので、
こっちは、 a で良いんでしょうか?

スペースがあれば、スペースで区切るなどでは?

【19843】Re:セル内のアルファベットで始まるとこ...
回答  Kein  - 04/11/17(水) 19:52 -

引用なし
パスワード
   4-1a BOILER
などと、スペースの後の文字を抜き出すなら

With ActiveCell
  MySt = Mid$(.Value, InStr(1, .Value, Chr(32)) + 1)
End With

ぐらいで出来ますが。

【19857】セル内のアルファベットで始まるところか...
お礼  びびこ  - 04/11/18(木) 9:14 -

引用なし
パスワード
   ▼Asaki さん:

帰社後、あっと気づきました(汗)
4-1a があると、アルファベットでは区別できませんもんね、、
空白が必ず入ってるので、それでやってみます!
ありがとうございました。

【19859】セル内のアルファベットで始まるところか...
お礼  びびこ  - 04/11/18(木) 9:15 -

引用なし
パスワード
   ▼Kein さん:
ありがとうございます!!
このまま使わせていただきますーーー!!
助かりました。ありがとうございました!!

>With ActiveCell
>  MySt = Mid$(.Value, InStr(1, .Value, Chr(32)) + 1)
>End With

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