Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7253 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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列の２行目以下に次の文字列が入っているとします。
２行目は　書籍[半角スペース]ばかの壁
３行目は　書籍[全角スペース]ばかの壁
４行目は　書籍[全角スペース]ばかの壁
５行目は　雑誌[全角スペース]文春
６行目は　雑誌[半角スペース]文春
これを式で

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)
全角を半角にする関数というのがありました。
どうもありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7253 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free