Excel VBA質問箱 IV

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

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


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

【40319】半角スペースまたは全角スペースの直前までを取得するには にしもり 06/7/11(火) 14:28 質問[未読]
【40320】Re:半角スペースまたは全角スペースの直前... Kein 06/7/11(火) 14:43 回答[未読]
【40321】Re:半角スペースまたは全角スペースの直前... にしもり 06/7/11(火) 14:48 お礼[未読]

【40319】半角スペースまたは全角スペースの直前ま...
質問  にしもり  - 06/7/11(火) 14:28 -

引用なし
パスワード
   こんにちは。
E列の2行目以下に次の文字列が入っているとします。
2行目は 書籍[半角スペース]ばかの壁
3行目は 書籍[全角スペース]ばかの壁
4行目は 書籍[全角スペース]ばかの壁
5行目は 雑誌[全角スペース]文春
6行目は 雑誌[半角スペース]文春
これを式で

I2に 書籍
I3に 書籍
I4に 書籍
I5に 雑誌
I6に 雑誌

と表出させたいと希望します。
I2以下に次の式を入れました。
=LEFT(E2,FIND(" ",E2,1)-1)
ところが実際には次のように出てしまいます。

I2に 書籍
I3に #VALUE!
I4に #VALUE!
I5に #VALUE!
I6に 雑誌

FINDをSEARCH関数を代えても同じでした。
ユーザー定義関数を作らなくては、希望とおりに表出さすのは無理でしょうか?

【40320】Re:半角スペースまたは全角スペースの直...
回答  Kein  - 06/7/11(火) 14:43 -

引用なし
パスワード
   数式でやるなら、こんな感じです。

=IF(ISERR(FIND(" ",E2)),LEFT(E2,FIND(" ",E2)-1),LEFT(E2,FIND(" ",E2)-1))

【40321】Re:半角スペースまたは全角スペースの直...
お礼  にしもり  - 06/7/11(火) 14:48 -

引用なし
パスワード
   ▼Kein さん:
いつもありがとうございます。

自力でも、なんとかできたようでございます。
=LEFT(E2,FIND(" ",ASC(E2),1)-1)
全角を半角にする関数というのがありました。
どうもありがとうございました。

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